Excel 2007 マクロについて

初心者なりに試行錯誤しながら、チャレンジしています。

B1セルには日付が入力されています。
B1をダブルクリックしたときにUserForm1のTextBox1にその
日付を表示したいのですが上手くいきません。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B1:B15")) Is Nothing Then Exit Sub
Cancel = True
UserForm1.Show
UserForm1.TextBox1.Value = Target.Value
Unload UserForm1
End Sub

どこをどのように修正したらよろしいでしょうか？

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/05/21 21:59

showすると自動的にloadしてくれるので省略してしまう人が多いようですが…

修正：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B1:B15")) Is Nothing Then Exit Sub
Cancel = True
load userform1
UserForm1.TextBox1.Value = Target.text
UserForm1.Show　’ここでようやっと止まる
userform1.hide
End Sub

この回答へのお礼

無事望み通りのものができました。
ありがとうございました。

お礼日時：2011/05/21 22:03