どのようにMSのExcelのキー値のペアの検証を達成するために？

Question

私はデータ値 - > validation - > listを使用して値のリストからセル値を選択する方法を知っています...

これを2つの同様のリストになるように拡張する必要があります。私は簡単にE3の値を3に変更する必要があります（逆も同様です）を選択すると、{単純、平均、複合} & {3、5、7}

これは優れていますか？

Answer 1

これは単なる例です。データ検証（DV）ルックアップリストをセルに入れてD5〜E7とします。そして、ワークシートのコード領域に次のイベントマクロをインストール

：その後、手動でD3とE3にDVを置く `VLOOKUP`または` INDEXため

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim E As Range, D As Range 
    Dim i As Long, v As Variant 

    Set E = Range("E3") 
    Set D = Range("D3") 
    If Target.Count <> 1 Then Exit Sub 
    v = Target.Value 
    With Application.WorksheetFunction 
    Application.EnableEvents = False 
     If Not Intersect(Target, E) Is Nothing Then 
      i = .Match(v, Range("E5:E7"), 0) 
      D.Value = Range("D5").Offset(i - 1, 0).Value 
     End If 
     If Not Intersect(Target, D) Is Nothing Then 
      i = .Match(v, Range("D5:D7"), 0) 
      E.Value = Range("E5").Offset(i - 1, 0).Value 
     End If 
    Application.EnableEvents = True 
    End With 
End Sub