|
こんにちは。かみちゃん です。
>年間の時間割を作っています。現在の仕様は、ラベルは、国、算、社、理・・・・・となっており、クリックすると、captionがコピーされ、テキストボックスは縦に6こ(1時間目から6時間目)横に5こ(月から金まで)の任意の位置に貼り付けられるようになっています。それをセルに反映し、一年間分の時間割が作成されるようになっています。
とりあえず、こんな感じでできるのかな?と思いますが・・・
Option Explicit
Dim strCaption As String
Private Sub Label1_Click()
strCaption = ""
strCaption = Label1.Caption
End Sub
Private Sub Label2_Click()
strCaption = ""
strCaption = Label2.Caption
End Sub
Private Sub TextBox1_Enter()
TextBox1.Value = strCaption
strCaption = ""
End Sub
Private Sub TextBox2_Enter()
TextBox2.Value = strCaption
strCaption = ""
End Sub
|
|