A100 コンボボックスの解決方法

質問者が納得コンボボックスではなく入力規則のリストでやってみました。シートモジュールとして記述 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Exit Sub If Target.Offset(, -1).Value = "" Then Exit Sub Dim 表, 元の値 As String 表 = [Sheet3!A1:B1