Excel VBA質問箱 IV

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

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


66187 / 76734 ←次へ | 前へ→

【15113】Re:オブジェクトを配列化できないでしょうか?
回答  Ron  - 04/6/15(火) 22:19 -

引用なし
パスワード
   こんにちは。
参考までに。

'=====フォームのモジュールに==========================

Private MyLabels() As String 'test2用

Private Sub UserForm_Click()

'  Call test1
  Call test2

End Sub

'test2の場合
Private Sub UserForm_Initialize()

  Dim ctrl As MSForms.Control
  Dim i As Long
  With Me
    For Each ctrl In .Controls
      If ctrl.Name Like "lbl*" Then
        ReDim Preserve MyLabels(i)
        MyLabels(i) = Mid(ctrl.Name, 4)
        i = i + 1
      End If
    Next
  End With

End Sub

Sub test2()

  Dim i As Long
  For i = LBound(MyLabels) To UBound(MyLabels)
    With Me.Controls("lbl" & MyLabels(i))
      .BackColor = &H8000000F
      .Caption = MyLabels(i)
    End With
  Next

End Sub

Sub test1()

  Dim ctrl As MSForms.Control
  With Me
    For Each ctrl In .Controls
      If ctrl.Name Like "lbl*" Then
        ctrl.BackColor = &H8000000F
        ctrl.Caption = "1"
      End If
    Next
  End With

End Sub

'===================================================================

では。
1 hits

【15105】オブジェクトを配列化できないでしょうか? はっしー 04/6/15(火) 17:38 質問
【15106】Re:オブジェクトを配列化できないでしょう... 角田 04/6/15(火) 17:52 回答
【15107】Re:オブジェクトを配列化できないでしょう... Jaka 04/6/15(火) 17:56 発言
【15113】Re:オブジェクトを配列化できないでしょう... Ron 04/6/15(火) 22:19 回答
【15136】Re:オブジェクトを配列化できないでしょう... はっしー 04/6/16(水) 12:27 お礼

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