Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6523 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【44768】コントロールの繰り返し処理 初歩的な質問 06/11/30(木) 22:55 質問[未読]
【44770】Re:コントロールの繰り返し処理 ichinose 06/11/30(木) 23:06 発言[未読]
【44772】Re:コントロールの繰り返し処理 初歩的な質問 06/11/30(木) 23:19 お礼[未読]
【44768】コントロールの繰り返し処理
質問  初歩的な質問  - 06/11/30(木) 22:55 -
引用なし
パスワード
   初歩的な質問ですみません。
ユーザーフォームで配置するテキストボックスやチェックボックスでFor〜Next文を作成する際にどのようにすれでよろしいのでしょうか？
例えば以下のような例文です。
　　　　If TextBox1 = enpty Then
　　　　Else
　　　　　　CheckBox1 = True
　　　　End If
　　　　If TextBox2 = enpty Then
　　　　Else
　　　　　　CheckBox2 = True
　　　　End If
　　　　If TextBox3 = enpty Then
　　　　Else
　　　　　　CheckBox3 = True

このような文があったとして、これをFor文を使用して以下のようにしたのですがどうもうまくいきません。

　　　　Dim X As integer　　　　　
　　　　　For X = 1 to 3　　　　
　　　　　 If TextBoxX = enpty Then
　　　　　　Else
　　　　　　CheckBoxX = True
　　　　　Next X

どなたか教えてください。
【44770】Re:コントロールの繰り返し処理
発言  ichinose  - 06/11/30(木) 23:06 -
引用なし
パスワード
   ▼初歩的な質問 さん：
こんばんは。

>ユーザーフォームで配置するテキストボックスやチェックボックスでFor〜Next文を作成する際にどのようにすれでよろしいのでしょうか？
>例えば以下のような例文です。
>　　　　If TextBox1 = enpty Then
>　　　　Else
>　　　　　　CheckBox1 = True
>　　　　End If
>　　　　If TextBox2 = enpty Then
>　　　　Else
>　　　　　　CheckBox2 = True
>　　　　End If
>　　　　If TextBox3 = enpty Then
>　　　　Else
>　　　　　　CheckBox3 = True
>
>このような文があったとして、これをFor文を使用して以下のようにしたのですがどうもうまくいきません。
>
>　　　　Dim X As integer　　　　　
>　　　　　For X = 1 to 3　　　　
>　　　　　 If TextBoxX = enpty Then
>　　　　　　Else
>　　　　　　CheckBoxX = True
>　　　　　Next X

　　Dim g0 As Long
　　For g0 = 1 To 3
　　　 If Controls("textbox" & g0).Value = "" Then
　　　　　Controls("checkbox" & g0).Value = True
　　　　　End If
　　　 Next g0

というようにControlsコレクションを使ってコントロールを
操作して下さい。
【44772】Re:コントロールの繰り返し処理
お礼  初歩的な質問  - 06/11/30(木) 23:19 -
引用なし
パスワード
   ▼ichinose さん：
ありがとうございます。うまく動きました。
とても感謝です！


>▼初歩的な質問 さん：
>こんばんは。
>
>>ユーザーフォームで配置するテキストボックスやチェックボックスでFor〜Next文を作成する際にどのようにすれでよろしいのでしょうか？
>>例えば以下のような例文です。
>>　　　　If TextBox1 = enpty Then
>>　　　　Else
>>　　　　　　CheckBox1 = True
>>　　　　End If
>>　　　　If TextBox2 = enpty Then
>>　　　　Else
>>　　　　　　CheckBox2 = True
>>　　　　End If
>>　　　　If TextBox3 = enpty Then
>>　　　　Else
>>　　　　　　CheckBox3 = True
>>
>>このような文があったとして、これをFor文を使用して以下のようにしたのですがどうもうまくいきません。
>>
>>　　　　Dim X As integer　　　　　
>>　　　　　For X = 1 to 3　　　　
>>　　　　　 If TextBoxX = enpty Then
>>　　　　　　Else
>>　　　　　　CheckBoxX = True
>>　　　　　Next X
>
>　　Dim g0 As Long
>　　For g0 = 1 To 3
>　　　 If Controls("textbox" & g0).Value = "" Then
>　　　　　Controls("checkbox" & g0).Value = True
>　　　　　End If
>　　　 Next g0
>
>というようにControlsコレクションを使ってコントロールを
>操作して下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6523 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free