ExcelのVBAに詳しい方へ｡
下記ｺｰﾄﾞで､ﾎﾞﾀﾝを押したときにﾎﾞﾀﾝ名が表示されるようにしています｡
が､途中で｢end｣するﾎﾞﾀﾝを押すと､その後はどのﾎﾞﾀﾝを押しても反応しなくなります｡( [PROBLEM]ﾎﾞﾀﾝ｡)
どうしたら途中で｢end｣しても､その後にﾎﾞﾀﾝが動作するでしょうか｡
◆ThisWorkbook
Dim myBtnTbl As New Collection
Private Sub Workbook_Open()
Dim obj As Object
Dim myCls As New Class1
Dim Sht As Worksheet
For Each Sht In Worksheets
With Sht
For Each obj In Sht.OLEObjects
If obj.progID = "Forms.CommandButton.1" Then
myCls.BtnEvent obj.Object
myBtnTbl.Add myCls
Set myCls = Nothing
End If
Next
End With
Next Sht
End Sub
◆標準ﾓｼﾞｭｰﾙ
Sub test()
Dim testFlag As Boolean
MsgBox "PROBLEM"
testFlag = True
If testFlag = True Then
End
End If
End Sub
◆ｸﾗｽﾓｼﾞｭｰﾙ
Private WithEvents mybtn As MSForms.CommandButton
Public Sub BtnEvent(newbtn As MSForms.CommandButton)
Set mybtn = newbtn
End Sub
Private Sub mybtn_Click()
Select Case mybtn.Name
Case "A"
MsgBox "A"
Case "B"
MsgBox "B"
Case "PROBLEM"
Call test
End Select
MsgBox "終了！"
End Sub
