Excel VBA質問箱 IV

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

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


40912 / 76732 ←次へ | 前へ→

【40909】Re:多数のテキストブックスに同じ処理
質問  かじったばかり  - 06/7/26(水) 6:40 -

引用なし
パスワード
   ▼jugg さん:

おはようございます。
教えていただいた For 〜 Next
はわかったんですが ありがとうございます。

Private Sub TextBox4_Change()

のようなイベントのところは
どのように記述するのでしょうか
お手数ですがよろしくお願いします。


>あとは
>For i = 1 to 4
>  If Val(Me.Controls("TextBox2_" & i).Value) = 0 Then
>    If Val(Me.Controls("TextBox4_" & i).Value) > _
>             Val(Me.Controls("TextBox1_" & i).Value) Then
>      MsgBox "入力値確認して ”
>    End If
>  Else
>    If Val(Me.Controls("TextBox4_" & i).Value) > _
>             Val(Me.Controls("TextBox3_" & i).Value) Then
>      MsgBox "入力値確認して 多いですよ"
>      Me.Controls("TextBox4_" & i).Value = ""
>    End If
>  End If
>Next
>
>この例は、ご提示のコードをなにも考えずに簡素化した例です。
>基本的にはKeinさんの意見に賛成です。

0 hits

【40900】多数のテキストブックスに同じ処理 かじったばかり 06/7/25(火) 22:00 質問
【40903】Re:多数のテキストブックスに同じ処理 Kein 06/7/25(火) 22:51 発言
【40904】Re:多数のテキストブックスに同じ処理 かじったばかり 06/7/25(火) 23:16 質問
【40907】Re:多数のテキストブックスに同じ処理 jugg 06/7/26(水) 0:10 発言
【40909】Re:多数のテキストブックスに同じ処理 かじったばかり 06/7/26(水) 6:40 質問
【40910】Re:多数のテキストブックスに同じ処理 jugg 06/7/26(水) 7:16 発言
【40957】Re:多数のテキストブックスに同じ処理 かじったばかり 06/7/26(水) 19:17 お礼

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