エクセル VBA

質問

エクセルのユーザーフォームのチェックボックスについて
教えて下さい。

現在チェックボックスが15個あるのですが
例えばテキストボックスが2個あり
テキストボックス1に数字の2
テキストボックス2に数字の6
を入れ、コマンドボタンを押すと
チェックボックスの2から6にまとめてチェックが入るようなコードが組みたいです。

宜しくお願いします。

回答No.1

SI299792 · ベストアンサー

チェックボックスには、CheckBox1～CheckBox15のオブジェクト名が付いているものとします。違っていたら誤動作するので、オブジェクト名は確認して下さい。
　テキストボックスに 1～15以外を入れた場合などの対応はしておりません。必要なら追加して下さい。
'
Option Explicit

Private Sub CommandButton1_Click()
'
　　Dim NControl As Control
　　Dim No As Integer
'
　　For Each NControl In Controls

　　　　If NControl.Name Like "CheckBox*" Then
　　　　　　No = Mid(NControl.Name, 9)
　　　　　　NControl.Value = (No >= TextBox1 And No <= TextBox2)
　　　　End If
　　Next NControl
End Sub

お礼

ありがとうございます。
まさに求めていたことができました。
本当にありがとうございます。