![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Excel2000のVBAでユーザーフォームを使って簡単なインターフェースを作っています。
今まではほとんど IF~Then 文のみでどうにかなるよう処理をしてきましたが、今回はさすがにコードが長くなってしまうので何とかしたいと思い質問させていただきました。
現在
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
…
TextBox50.Value = ""
のような処理になっています。
こういった処理が複数回あり、コードが長くなってしまっています。
これを簡素化する方法はないでしょうか?
No.3ベストアンサー
- 回答日時:
こんにちは。
単に、以下のような単独のプロシージャーか、サブルーチン化させるなら、同じUserformモジュールにしたらいかがですか?
Private Sub CommandButton1_Click()
For i = 1 To 50
Me.Controls("TextBox" & CStr(i)).Value = ""
Next
End Sub
'--------------------------------
'または、
Private Sub CommandButton1_Click()
Call s_TextBoxesClear
End Sub
Sub s_TextBoxesClear()
For i = 1 To 50
Me.Controls("TextBox" & CStr(i)).Value = ""
Next
End Sub
もちろん、Userformが複数あるなら、標準モジュールを使うべきかもしれませんが。
回答ありがとうございました。
今回はコードの記述を簡素化したかったので、上の方法で解決できました。
For~Nextを使うところまでは推察できていたのですが、CStrを知りませんでした。これで一つお利口になれましたw
No.2
- 回答日時:
失礼・・・。
わざわざオブジェクトに入れる必要ありません^^;(しかもObject型つかっちゃってるし・・・)【UserForm1】
Private Sub UserForm_Click()
Call TextInitialize(Me)
End Sub
【Module1】
Public Sub TextInitialize(ByRef Frm As UserForm)
Const CtrlName As String = "TextBox"
Const CtrlStIdx As Long = 1
Const CtrlEdIdx As Long = 50
Dim i As Long
For i = CtrlStIdx To CtrlEdIdx
Frm.Controls(CtrlName & CStr(i)).Text = ""
Next
End Sub
他にもミスしてそう・・・(笑)
No.1
- 回答日時:
> こういった処理が複数回あり、コードが長くなってしまっています。
複数回あるのであれば、この部分だけサブルーチン化してしまえば良いと思います。
以下は例です。
【UserForm1】
Private Sub UserForm_Click()
Call TextInitialize(Me)
End Sub
【Module1】
Public Sub TextInitialize(ByRef Frm As UserForm)
Const CtrlName As String = "TextBox"
Const CtrlStIdx As Long = 1
Const CtrlEdIdx As Long = 50
Dim Obj As Object
Dim i As Long
For i = CtrlStIdx To CtrlEdIdx
Set Obj = Frm.Controls(CtrlName & CStr(i))
Obj.Text = ""
Next
End Sub
早速の回答ありがとうございました。
こんなに早く回答がくるとは思っていませんでした。
今回はとりあえず簡単そうな方法でやってみることにします。
行き当たりばったりで作っているので、苦労してますが、今後必要に応じてサブルーチン化も検討したいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) VBAでのループ順序について 3 2023/03/13 10:55
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- JavaScript javascriptのちょっとした動作不良(原因は突き止めたのですが) 1 2023/06/15 19:58
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2000VBA 複数のテキストボ...
-
例外処理のフローチャートの記...
-
サブルーチンやif分以外での中括弧
-
”:”がいっぱいの文について。
-
VBAで旧字体を異字体に一括で変...
-
【vba】フォームに書いてあ...
-
文章の分割
-
「デバイスは PRN を初期化でき...
-
Perlソースコードをコンパイル...
-
VBA This Workbookモジュール...
-
モジュールとは何ですか
-
Cからシェルを起動し返り値をハ...
-
VBからブラウザの表示状態(リ...
-
Excel VBAでリンク切れをチェッ...
-
VBAProjectのモジュ...
-
エクセルVBAでシートモジュール...
-
ASPが実行できない(エラー500
-
Excel VBA 定義されたプロージ...
-
perlのgrepで日本語の処理でエ...
-
エクセルVBAで標準モジュー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
例外処理のフローチャートの記...
-
Excel VBAで、ユーザーフォー...
-
モジュールとサブルーチン
-
”:”がいっぱいの文について。
-
オフコン(富士通Kシリーズ)...
-
ExcelVBA AddinでOnAction
-
ACCESSのVBAでPrivate Sub ~en...
-
Attempt to free unreferenced ...
-
VBAで2重のDoLoop関数から抜け...
-
COBOLで、Shellを起動するには?
-
GOSUB命令とは
-
サブルーチンを認識しません。
-
同じコンボボックス、リストボ...
-
Perlのスレッド?
-
サブルーチンを外部ファイルで...
-
配列と互換性のない型の要素に...
-
サブルーチンの中にサブルーチ...
-
初心者です。Perlではどんな時...
-
プログラミング Fortran
-
サブルーチンを使った再帰的な...
おすすめ情報