回答編集履歴
2
位置変更
answer
CHANGED
|
@@ -24,13 +24,12 @@
|
|
|
24
24
|
|
|
25
25
|
Dim NewB As CommandButton
|
|
26
26
|
Set NewB = UserForm2.Controls.Add("Forms.CommandButton.1", "url" & n, True)
|
|
27
|
+
Call ctrlBtn(n).SetCtrl(NewB)
|
|
27
28
|
NewB.Top = 34 * n
|
|
28
29
|
NewB.Left = 10
|
|
29
30
|
NewB.Height = 20
|
|
30
31
|
NewB.Width = 50
|
|
31
32
|
NewB.Caption = "copy"
|
|
32
|
-
NewB.TakeFocusOnClick = True
|
|
33
|
-
Call ctrlBtn(n).SetCtrl(NewB)
|
|
34
33
|
Row = Row + 1
|
|
35
34
|
Next
|
|
36
35
|
End With
|
1
VBA
answer
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
イベントであればこんな感じです。
|
|
2
2
|
Classモジュール名:EventButtonClass
|
|
3
|
-
```VBA
|
|
3
|
+
```VBA
|
|
4
4
|
'(Test_Sample_Miniature)
|
|
5
5
|
Private Const MAX_CONTROL_NUMBER = 100
|
|
6
6
|
Private ctrlBtn(1 To MAX_CONTROL_NUMBER) As New EventButtonClass
|
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
End With
|
|
37
37
|
End Sub
|
|
38
38
|
```
|
|
39
|
-
```
|
|
39
|
+
```Class
|
|
40
40
|
Private WithEvents tgtCtrl As MSForms.CommandButton
|
|
41
41
|
Public Sub SetCtrl(new_ctrl As MSForms.CommandButton)
|
|
42
42
|
Set tgtCtrl = new_ctrl
|