☰

Excel の名前/値のペアのドロップダウンを作成する方法

tag-icon • tag-icon microsoft-excel
Excel の名前/値のペアのドロップダウンを作成する方法

以下のコラムがあります

A     | B
Name  | Value
One   | 1
Two   | 2
Three | 3

列 C には、名前と値の連結 (つまり、1 - 1、2 - 2 など) を表示する検証ドロップダウン リストが必要です。ユーザーが選択すると (つまり、2 - 2)、値列のデータのみがセルに入力されます (つまり、2)。

この偉業を達成するにはどうすればいいでしょうか?

答え1

次のようなデータがあります:

ここに画像の説明を入力してください

次の VBA マクロを標準モジュールに配置して実行します。

Sub DV_Maker()
   Dim i As Long
   Dim s As String

   For i = 2 To 4
      s = s & "," & Cells(i, 1) & " - " & Cells(i, 2)
   Next i
   s = Mid(s, 2)

   With Range("C2:C4").Validation
   .Delete
           .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
             xlBetween, Formula1:=s
           .IgnoreBlank = True
           .InCellDropdown = True
           .InputTitle = ""
           .ErrorTitle = ""
           .InputMessage = ""
           .ErrorMessage = ""
           .ShowInput = True
           .ShowError = False
   End With
End Sub

セルのデータ検証を設定しますC2、C3、 そしてC4次に、このイベント マクロをワークシートのコード領域に配置します。

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range
   Set rng = Range("S2:C4")

   If Intersect(Target, rng) Is Nothing Then Exit Sub
   Application.EnableEvents = False
      Target.Value = Split(Target.Value, " - ")(1)
   Application.EnableEvents = True
End Sub

イベント マクロは、データが入力された後にセルからテキストを削除します。

関連情報