![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
アクセスです
フォーム上のコントロールの名前を配列に格納したいのですが
もっとスマートな方法はありますか?
私が考えたコードは
Dim avarContorol As Variant
Dim ctl As Control
Dim mystr As String
For Each ctl In Forms(Me.Name).Controls
mystr = mystr & ctl.Name & ","
Next ctl
'右から1文字消す
mystr = Left(mystr, Len(mystr) - 1)
avarContorol = Split(mystr, ",")
なのですが、
ループのみで格納できる方法があれば教えてください。
No.1ベストアンサー
- 回答日時:
ループのみと言えるかどうか?
Dim avarControl As Variant
Dim ctl As Control
Dim i As Integer
ReDim avarControl(Me.Controls.Count - 1)
For i = 0 To Me.Controls.Count - 1
avarControl(i) = Me.Controls(i).Name
Next i
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
UWSCの終了の仕方
-
VBAでの一時停止と再開の方法
-
DoEventsが必要な理由について
-
乱数の桁数指定、または範囲指定。
-
vb.netからエクセル関数書き込み
-
VBA Boxが空白の場合のメッセー...
-
Java 南京錠
-
vbscriptでIE自動入力(途中で...
-
ループを回すという意味は何で...
-
GIFアニメをループさせたくない
-
Do whileでExitせず、ループの...
-
エクセルの当番表を作っていま...
-
ループ内での条件処理
-
範囲指定したセルを1つずつ飛...
-
WHILE (CHKIMG(”A.bmp”)=FALSE)...
-
モンテカルロ法
-
UWSCに制限時間を付けたいです
-
csh foreachで「*」でエラ...
-
スレッド起動したフォームを正...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
VBAで3秒だけ時間を止めたい
-
範囲指定したセルを1つずつ飛...
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
vbscriptでIE自動入力(途中で...
-
乱数の桁数指定、または範囲指定。
-
GIFアニメをループさせたくない
-
プログラミングについて。 1つ...
-
エクセルの当番表を作っていま...
-
テキストボックスの名前に変数...
-
ループフリー
-
vb.netからエクセル関数書き込み
-
CSVファイルの特定の行だけを読...
-
VBA for i=1 to lastrow
-
どなたかこのプログラミングを...
-
Do whileでExitせず、ループの...
おすすめ情報