- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ＶＢＡ Ｄｏ…Ｌｏｏｐについて）
VBA Do...Loopについて
このQ&Aのポイント
- VBAのDo...Loopを使って、テキストボックスに入力した数値から1ずつ引いていくプログラムを作成したいです。
- ただし、Do...Loopの前にある「Me.text2.Value = Me.text1.Value」の部分を修正しないと、入力した数値が反映されなくなってしまいます。
- 修正することで、入力した数値から1ずつ引かれた数値がテキストボックスに表示されるようになります。
- nanamizuki77
- お礼率4% (1/25)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
＞doloop前の「Me.text2.Value = Me.text1.Value」を正さないといけないようです。（課題です） ＞これがないと入力された数字そのものが入らなくなってしまうのですが… ここでtext2に入れるのではなく、Do～Loop内で入れるようにすればすっきりします。 Dim I As Variant I = Me.text1.Value 'Me.text2.Value = Me.text1.Value ←この行は不要 Do Until I = 0 Me.text2.Value = Me.text2.Value & " " & I ’数字を区切るため” ”で空白を挿入 I = I - 1 Loop
お礼
とっても助かりました！！ ありがとうございます！！