Excel VBA質問箱 IV

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

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


6521 / 13644 ツリー ←次へ | 前へ→

【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コレクションを使ってコントロールを
>操作して下さい。

6521 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free