質問者が納得コンボボックスではなく入力規則のリストでやってみました。シートモジュールとして記述
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
5168日前view7