0

複数のシートを持つワークブックを作成しました。シートの 1 つで、アクティブ x ボタンをクリックすると別のシート (定義済みのセル) にドロップダウン値を作成するマクロを作成しました。

問題は、マクロを実行すると完全に実行されますが、マクロを削除すると、マクロを削除する前にファイルを保存したにもかかわらず、ドロップダウン値が消えます。

詳細が必要な場合はお知らせください。

コードスニペット -

Private Sub CommandButton1_Click()
'Define the variables
Dim vRangeDefined, vRowCount, vCounter, vCellValue As String, vDataValue As String
Dim wbk As Workbook

'Define the range where the values are entered
vRangeDefined = ActiveSheet.Range("A:B").Value
vRowCount = ActiveSheet.UsedRange.Rows.Count

For vCounter = 2 To vRowCount
    vCellValue = vRangeDefined(vCounter, 1)
    vDataValue = vRangeDefined(vCounter, 2)

   'Assign the names to cells as per the range
    Sheets(2).Select
    ActiveSheet.Range(vCellValue).Select

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=vDataValue
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Next

MsgBox "Process complete..."

End Sub

ありがとう！

4

1 に答える 1

0

必要なのは、ここに入力するだけの範囲A1：B2のセルの4つの値だけです。

コメントとして追加したかったので、その投稿（上の行のテキストで始まっています）をお詫びします。携帯電話で失敗しました。したがって、私はここで続けます...

私はあなたが説明したことをすべて行いましたが、異常なことは何も起こりません。あなたが抱えている問題はありません。私はExcel2010でテストしました。私のさらなる提案は次のとおりです。

  1. マクロが削除された後に追加の操作を行う場合は、この状況では重要ではないと思われる可能性があると考えてください。

  2. マクロをボタンから切り離して標準モジュール（例：Module1）に配置し、VBAエディターからF5キーを使用して実行してみてください。

最終的に解決策が見つかった場合はお知らせください。

于 2013-03-15T04:23:04.860 に答える