Excel VBA：動的データ検証入力メッセージ（インデックス一致）

Question

データ検証入力メッセージでは、名前付き範囲（ "MyRange"）内の各セルについて、Table1 [Column1]と照合し、表1 [列2]。

アクティブなセルは一定であり、範囲全体に同じ入力メッセージがあるので、ループするためにはこれが必要です。私は数式INDEX MATCHにコミットしていない、それだけでその機能を実行する必要があります。

Sub Tester() 
    Dim mycell As String 
    mycell = ActiveCell 
     With Range("MyRange").Validation 
     .Delete 
     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, _ 
     Operator:=xlBetween, Formula1:="=INDIRECT(Test1&Test2)" 
     .IgnoreBlank = True 
     .InCellDropdown = True 
     .InputTitle = "" 
     .ErrorTitle = "" 
     .InputMessage = Application.WorksheetFunction.Index(Range("Table1[Column2]"), _ 
     Application.WorksheetFunction.Match(mycell, Range("Table1[Column1]"), 0)) 
     .ErrorMessage = "" 
     .ShowInput = True 
     .ShowError = False 
    End With 
End Sub 

ありがとうございました！

Answer 1

あなたが今持っているコードの周りを囲みます。基本的には、Debug.Printという行にコードを貼り付けます。 。 。非常に小さな変更が加えられています。

Sub LoopRange() 

    Dim rCell As Range 
    Dim rRng As Range 

    Set rRng = Sheet1.Range("A1:A6") 

    For Each rCell In rRng.Cells 
     Debug.Print rCell.Address, rCell.Value 
    Next rCell 

End Sub 

Loop through each cell in a range of cells when given a Range object