特定のセルをクリックしてフォームを表示するには？ (ID:122945)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 えっとExcel はしてないので、ちょっと的外れになるかもしれませんが 特定のあるセルのみダブルクリックしたらFormがでればいいんですよね？ >Private Sub userform1_BeforeDoubleClick(ByVal Target As Excel.Range, _ > Cancel As Boolean) > If ActiveCell.FormulaR1C1 = "=R[0]C[1]" Then > UserForm1.Show > Cancel = True > Else > MsgBox "", vbCritical > End If >End Sub この部分はよくわからなかったので これで再現はできたんですけど、試してみてください。 >Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, _ >Cancel As Boolean) If Target.Row = 1 and Target.Column = 4 then ' 1行目4列目がクリックされたら画面を表示 UserForm1.Show Else Cancel = True End If >End Sub