Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
Userform上の複数の多数存在する LabelをクリックでLabel名を取得したい
投稿日時: 18/06/25 19:34:14
投稿者: munakata_末

UserForm上の複数のLabelをクリックしてラベル名を取得したいのですが
コマンドボタンでは次で可能ですがLabelではどのようにすれば良いのでしょうか
すでに同じ質問があるかもしれませんがよろしくお願いします。
 
'クラスプロシージャのコード
Option Explicit
Private WithEvents Btn As MSForms.CommandButton
Private Index As Integer
 
 Public Sub NewClass(ByVal c As MSForms.CommandButton, _
 ByVal i As Integer)
     Set Btn = c
     Index = i
 End Sub
 
 Private Sub Btn_Click()
    MsgBox Index
 End Sub
 
'ユーザーフォームのコード
 
Option Explicit
Private NumBtn(0 To 2) As New Class1
Private Sub UserForm_Initialize()
     Dim i As Integer
    For i = 0 To 2
        NumBtn(i).NewClass Controls("CommandButton" & i), i
    Next
End Sub
 

回答
投稿日時: 18/06/25 20:32:32
投稿者: hatena
投稿者のウェブサイトに移動

クラスモジュール中の CommandButton を Label に変更すればOK。

投稿日時: 18/06/25 21:25:42
投稿者: munakata_末

早速の回答ありがとうございます。
おかげさまで解決いたしました。