ユーザーフォームを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です。
よろしくお願いします。
お礼
いつも有り難うございます。 やってみましたが、結果は同じ（表示されません）でした。 背景は白いままです。 教えを見て、 ロードする前に、プロパティをセットしていたからだ、と思ったのですが。 結果は変わりませんでした。 userform1.show vbmodeless のvbmodeless を外すと見事に表示されます。 この場合、教えていただいた load userform1を入れなくてもです。 また、userform1のcaptionは見事に変わります。 （事前の loadが在っても無くても） まとめますと、 captionはloadを入れても入れなくても期待したとおりに変わるのですが、 背景だけは入れても入れなくても白いままということです。 本コードは、標準モジュールに書いていますが、 場所が違うのでしょうか。 それとも、「背景」（backcolor)の他にも何か指定が必要なのでしょうか。 何分、ユーザーフォームは初心者です、 引き続き宜しくお願いいたします。
補足
お騒がせしました。 解決しました。 userform1.repaintを入れましたら、 完璧に表示されました。 有り難うございました。