Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


63090 / 76732 ←次へ | 前へ→

【18241】ラベルのクリックを取得するには
質問  ponpon  - 04/9/19(日) 3:37 -

引用なし
パスワード
   こんにちは
3連休なのでちょっと勉強しています。
ユーザーフォーム上にLabelが20ほどとTextBoxが60ほど貼り付けてあります。
 今までは、コントロール配列がほとんど理解できていなかったので、
テキストボックスのクリアもtextbox1=""、textbox2=""、・・・・
ラベル1がクリックされたら、・・・・・と一つ一つクリックイベントでやってましたが、コントロール配列に挑戦しようとしていますが、うまくいきません。
 どなたか教えていただけないでしょうか?

ラベルが、クリックされたら、そのcaptionをコピーしして、テキストボックスを
クリックしてそこに貼り付けたいのです。
 わからないまま、コードを書いてみました。よろしくお願いします。
 また、コードはどこに書いたらよいのでしょうか?sub UserForm_Initialize()で
 よいのですか?
 
Private Sub Labelコピー()
 Dim i As Integer
 Dim myLbl As MSForms.Label

 Set myLbl = Form時間割.Controls("Labe" & i)
 For each myLbl in Form時間割.Controls
 
  If myLblがクリックされたら Then
 
  Worksheets("祝日設定").Range("A300") = myLbl.Caption
  Worksheets("祝日設定").Range("A300").Copy
  myLbl.ForeColor = &HFF&    ↑
                   ↑
  End If            ラベルのCaptionがコピーできないので
 Next
End Sub

Private Sub Labelの貼り付け()
  dim j as Integer
  Dim mytxt As MSForms.TextBox
  Dim mytxt2 As MSForms.TextBox

   Set mytxt = Form時間割.Controls("TextBox" & "A" & j)
   Set mytxt2 = Form時間割.Controls("TextBox" & "B" & j)

   For Each mytxt in Form時間割.Controls  
   If mytxtがクリックされたら then
    mytxt.Value = ""
    mytxt.past
   End If 
   Next

   For Each mytxt2 in Form時間割.Controls  
   If mytxt2がクリックされたら then  
    mytxt2.Value = ""    
    mytxt2.past
   End If

   Next
End sub

0 hits

【18241】ラベルのクリックを取得するには ponpon 04/9/19(日) 3:37 質問
【18242】Re:ラベルのクリックを取得するには かみちゃん 04/9/19(日) 8:17 発言
【18243】Re:ラベルのクリックを取得するには ponpon 04/9/19(日) 10:03 質問
【18244】Re:ラベルのクリックを取得するには かみちゃん 04/9/19(日) 10:28 回答
【18245】Re:ラベルのクリックを取得するには ichinose 04/9/19(日) 10:40 回答
【18246】Re:ラベルのクリックを取得するには ponpon 04/9/19(日) 11:03 お礼
【18248】Re:ラベルのクリックを取得するには ponpon 04/9/19(日) 14:36 質問
【18253】Re:ラベルのクリックを取得するには ichinose 04/9/19(日) 19:16 発言
【18254】Re:ラベルのクリックを取得するには 追伸 ichinose 04/9/19(日) 19:24 発言
【18258】Re:ラベルのクリックを取得するには 追伸 ponpon 04/9/20(月) 0:08 お礼
【18285】Re:ラベルのクリックを取得するには 追伸 ichinose 04/9/20(月) 12:47 発言
【18415】Re:ラベルのクリックを取得するには 追伸 Kobasan 04/9/22(水) 22:04 発言
【18422】Re:ラベルのクリックを取得するには 追伸 ponpon 04/9/23(木) 12:00 質問
【18423】Re:ラベルのクリックを取得するには 追伸 ponpon 04/9/23(木) 12:12 お礼

63090 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free