| |
不特定多数のワークシートと同じ数、同じ名前で自動生成したチェックシートのチェックの入った名称を変数にとる（チェックできる数は1つ）方法がわかりません。現状、自動生成まではできるのですが、チェック数を1つ制限する方法と、チェックが入ったチェックボックスの名称を変数に取る方法がわかりません。
もしよろしければコードも踏まえて教えていただけないでしょうか？
仕様はコマンドボタンを1つ配置し、押した時、チェックの入っている名称を変数に移す事です。
Private Sub UserForm_Click()
Dim s As Integer
Dim myCheckBox As Control
For s = 1 To Sheets.Count
Set myCheckBox = Me.Controls.Add("Forms.CheckBox.1")
With myCheckBox
.Height = 20
.Width = 80
.Left = 10
.Top = (s - 1) * .Height + 10
.Caption = Sheets(s).Name
End With
Next s
End Sub
|
|
YOUSUKE
- 08/4/19(土) 23:16 -
