'セルが対象の場所を押下するとユーザーフォームが出てくる技 '*** 検索・入力画面 表示 *** Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'フォームを表示する処理 'セル8行目以上,列(6~8(F~H)列)の時 '数値に変換すると、列・F=6 列・G=7 列・H=8 '「cbk_makuro」は、エクセル上に配置したチェックボックス '「form_list_Search_syori」と言う、ユーザーフォームを表示 If cbk_makuro.Value = True Then If Target.Row >= 8 And Target.Column = 6 Then Call form_list_Search_syori ElseIf Target.Row >= 8 And Target.Column = 7 Then Call form_list_Search_syori ElseIf Target.Row >= 8 And Target.Column = 8 Then Call form_list_Search_syori End If End If End Sub