ユーザーフォームをWorksheet上で表示
数日前、このカテゴリで相談した事の続きです。
以前の相談は、次の通りです。
http://okwave.jp/qa/q8892460.html
この相談の中で出来たことは
1 ユーザーフォームを保存終了
2 Worksheet上にボタンを作成、そのボタンをクリックでユーザーフォームを表示
以上のことはできました。
作成したコードは次のとおりです。
'//
Private Sub UserForm_Initialize()
With Worksheets("Sheet1")
TextBox1 = .Cells(1, 1).Value
TextBox2 = .Cells(2, 1).Value
TextBox3 = .Cells(3, 1).Value
TextBox4 = .Cells(4, 1).Value
TextBox5 = .Cells(5, 1).Value
).Value
End With
End Sub
Private Sub UserForm_Terminate()
With Worksheets("Sheet1")
.Cells(1, 1).Value = TextBox1
.Cells(2, 1).Value = TextBox2
.Cells(3, 1).Value = TextBox3
.Cells(4, 1).Value = TextBox4
.Cells(5, 1).Value = TextBox5
End With
End Sub
'//
Private Sub cmdsyuuryo_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
Myform.Show vbModeless
End Sub
そこで質問です。
現在Worksheet上にボタンを作成、クリックしてユーザーフォームを表示しているの
を、WorksheetのセルA1(名前を記述してある)をクリックするだけでユーザーフォー
ムを表示する方法はありませんか？
ユーザーフォームの保存先は「Sheet1」のA1からA5までです。
できれば、この設定で具体的なコードの記述をお願いします。
Excel2013です。
よろしくお願いします。
お礼
ありがとうございます。できました！