セルの値を変更した時のプルダウンメニューのリストを更新する方法をお伝えします。
ある特定のセルを更新したら、別のセルにある入力規則を利用して作ったプルダウンメニューのリストを更新するようにします。
例えば、A1セルに「日本」と入力されたら、B1セルに「トヨタ、ホンダ、日産」のリストを出し、A1セルに「米国」と入力されたら、B1セルに「GM、フォード」とリストを出すようにします。
下記は私が書いたVBAコードの例です。
VBAコードの例
For Each s In example
pulldownList = pulldownList & s & ","
Next
pulldownList = Left(pulldownList, Len(pulldownList) - 1)
With cwsheet.Cells(7, 2).Validation
.Delete
.Add Type:=xlValidateList, Formula1:=pulldownList
End With
End If
特定のセルが変更されたら、変数のpulldownListにカンマ区切りで要素を足していきます。
それをFormula1:=pulldownListでリストに格納しています。