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

名前

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

本文 次の様なプログラムを組んだんですけど・・・行き詰まっています。 Excelです。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) UserForm1.Show Cancel = True End Sub 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