For Next ループの終了時のイベント

解決


匿名  2010-07-09 03:47:30  No: 146964

Dim kaisuu As Integer

        For kaisuu = 1 To TextBox1.Text
     
       イベント

        Next kaisuu

これでループを開始します。

ループの回数はTextbox1.textに入力されている回数です。

textbox1に入力されている数  ループされたら

msgbox("ループが終了しました")などと

ループ終了時に処理を行うにはどのようにしたらいいのでしょうか?


うらの畑で  2010-07-09 04:04:56  No: 146965

ちょっこし データ型がちがうかな
For kaisuu = 1 To TextBox1.Text
     
TextBox1.Textを数値にしなければだめなのではないかな


匿名  2010-07-10 00:42:43  No: 146966

もちろんtextbox1.textは数値が入力されていることを前提です


魔界の仮面弁士  2010-07-10 01:14:38  No: 146967

> もちろんtextbox1.textは数値が入力されていることを前提です
数字と数値は違いますよ。

CInt 関数などを使って、
  For kaisuu = 1 To CInt(TextBox1.Text)
などとしましょう。

> ループ終了時に処理を行うにはどのようにしたらいいのでしょうか?
Next の次の行に MsgBox を配置すれば OK かと。


匿名  2010-07-10 02:21:16  No: 146968

いろいろと試行してみたところうまくいきました〜〜
おふたかたとも本当にありがとうございます
やりたいことができました

ループ終了時の処理は魔界さんの
おっしゃるとおりNextの次に入力すればできました


※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。






  このエントリーをはてなブックマークに追加