Excel VBA質問箱 IV

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

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


40914 / 76732 ←次へ | 前へ→

【40907】Re:多数のテキストブックスに同じ処理
発言  jugg  - 06/7/26(水) 0:10 -

引用なし
パスワード
   こんばんは

>ただ興味(向学的に)として題名のような処理を簡素化する方法
>をご存知でしたらご教授ください。過去にあったような気がするので

まず、TextBox名を下記のようにしたとします
フレーム1→(TextBox1_1 〜 TextBox4_1)
フレーム2→(TextBox1_2 〜 TextBox4_2)
フレーム3→(TextBox1_3 〜 TextBox4_3)
フレーム4→(TextBox1_4 〜 TextBox4_4)

あとは
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 お礼

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