こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル VBA 

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

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

宜しくお願いします。

投稿日時 - 2018-02-22 11:19:06

QNo.9431524

すぐに回答ほしいです

質問者が選んだベストアンサー

 チェックボックスには、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

投稿日時 - 2018-02-22 13:02:21

お礼

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

投稿日時 - 2018-02-22 14:05:59

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問