Excel VBA質問箱 IV

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

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


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

【24645】複数のTextBoxのデータを消したいのですが… kobakoba 05/4/30(土) 16:29 質問[未読]
【24646】Re:複数のTextBoxのデータを消したいのです... つん 05/4/30(土) 16:34 回答[未読]
【24647】Re:複数のTextBoxのデータを消したいのです... つん 05/4/30(土) 16:40 発言[未読]
【24648】Re:複数のTextBoxのデータを消したいのです... kobakoba 05/4/30(土) 16:43 お礼[未読]

【24645】複数のTextBoxのデータを消したいのです...
質問  kobakoba  - 05/4/30(土) 16:29 -

引用なし
パスワード
   TextBoxが1から100まであります。
それをForNextやDoLoopを使って中のデータを消すことは出来るのでしょうか?
今は100行使って一つずつ消しています。
初心者なので分かりやすい回答をお願いいたします。

【24646】Re:複数のTextBoxのデータを消したいので...
回答  つん E-MAIL  - 05/4/30(土) 16:34 -

引用なし
パスワード
   ▼kobakoba さん:
こんにちは^^

>TextBoxが1から100まであります。
>それをForNextやDoLoopを使って中のデータを消すことは出来るのでしょうか?
>今は100行使って一つずつ消しています。
>初心者なので分かりやすい回答をお願いいたします。

テキストボックスの名前が連番になってるなら、
以下のやりかたで出来ると思います。

  Dim i As Long
  
  For i = 1 To 100
    Me.Controls("TextBox" & i).Value = ""
  Next i

これはフォーム上の場合ね。

【24647】Re:複数のTextBoxのデータを消したいので...
発言  つん E-MAIL  - 05/4/30(土) 16:40 -

引用なし
パスワード
   シート上だったら

Worksheets("Sheet1").OLEObjects("TextBox" & i).Object.Value = ""

【24648】Re:複数のTextBoxのデータを消したいので...
お礼  kobakoba  - 05/4/30(土) 16:43 -

引用なし
パスワード
   つんさんこんにちわ

ありがとうございました!出来ました!

これで醜いプログラムからおさらばできます。

プログラムまで書いていただき本当に助かりました。

ありがとうございました。

初心者なのでまた分からないことがあったら書き込みしますので

そのときはまたよろしくお願いいたします。

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