![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
No.1ベストアンサー
- 回答日時:
TypeName関数を使ってみてください。
'--------------------------------------
Private Sub CommandButton1_Click()
Dim myCtrl As Control
For Each myCtrl In Me.Controls
Select Case TypeName(myCtrl)
Case "TextBox"
myCtrl.BackColor = RGB(255, 0, 0)
Case "Label"
Case "ListBox"
myCtrl.BackColor = RGB(0, 255, 0)
Case "CheckBox"
Case "ComboBox"
Case "CommandButton"
End Select
Next myCtrl
End Sub
'------------------------------------------
勘違いでしたらご容赦願います。
以上ここまで。
No.2
- 回答日時:
シートにコントロールのタイプと名前をリストアップします。
(フォームにページやタブを使用した場合までの確認はしていません。)
参考までに(対象はUserForm1にしてあります)
Sub test()
Dim c As Control, r As Long
Load UserForm1
r = 3
Cells(1, 1) = ("コントロール数:" & UserForm1.Controls.Count)
Cells(2, 1).Value = "No"
Cells(2, 2).Value = "名前"
Cells(2, 3).Value = "種類"
For Each c In UserForm1.Controls
Cells(r, 1).Value = r - 2
Cells(r, 2).Value = c.Name
Cells(r, 3).Value = TypeName(c)
r = r + 1
Next c
End Sub
わざわざ、表を作るプログラムまで教えて下さり、ありがとうございました。
お礼は、早い順に付けたので10ptになってしまいましたが、
感謝の気持ちは20ptの人と同様です。
また、お願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- イヤホン・ヘッドホン・補聴器 LinkBuds S について質問です。 イヤホンから外音コントロールやアンビエントサウンドにする時 1 2022/06/04 17:22
- Excel(エクセル) コントロールにリンクするセルが選択されない 3 2022/06/12 14:37
- 数学 M種類の部品からN種類の部品を抽出する効率的なアルゴリズム 2 2022/04/22 16:51
- 仕事術・業務効率化 上司をコントロールする能力を身につける方法などありますか? クソみたいな上司にいつかは仕返しがしたい 3 2022/04/12 19:44
- その他(パソコン・スマホ・電化製品) リモートコントロールの仕方。 1 2022/06/12 18:38
- 発達障害・ダウン症・自閉症 発達障害、感情障害は改善しますか? 7 2023/01/20 23:18
- Word(ワード) Google ドキュメントで改ページを挿入する方法 1 2022/05/25 19:22
- Bluetooth・テザリング スマートウォッチについて質問です。 スマートウォッチには音楽コントロール(再生、停止など)ができる機 1 2022/03/27 18:27
- 法学 全部取得条項付株式の取得と引換えにする株式の発行 申請書について 1 2022/12/21 17:32
- C言語・C++・C# ActiveXコントロールを.NETにインポートできない??? 2 2023/05/02 02:50
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
コントロールの存在確認
Visual Basic(VBA)
-
変数をコントロール型で使用する方法
Visual Basic(VBA)
-
-
4
コマンドボタンがあるかどうかを取得するには?
PowerPoint(パワーポイント)
-
5
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
6
TextBoxコントロールを引数として渡すには?
その他(教育・科学・学問)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
11
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
12
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除
Visual Basic(VBA)
-
13
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
14
リストビューをスクロールさせるには
Visual Basic(VBA)
-
15
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
フォーム上の現在アクティブなコントロールの取得
Access(アクセス)
-
18
どこにもフォーカスを当てたくない
Access(アクセス)
-
19
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
20
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C#で角が丸いテキストボックス
-
C#で自分のウインド・ハンド...
-
エクセル・VBA CheckBoxのオブ...
-
コントロールを移動できない
-
カメラスクロールするのを動画...
-
VBAのフォームでTextBoxがいっ...
-
ACCESS2010のVBAでフォーム内ク...
-
コントロールの絶対位置を取得...
-
エクセル コントロールツール...
-
EXCELでactivexコントロールを...
-
ユーザコントロールのイベント...
-
Groupboxの配下のコントロール...
-
自マシンのIPアドレスを変更す...
-
Excelコマンドボタン名を変数に...
-
C# タブのコントロール取得
-
無料で使えるグリッドコントロール
-
Labelコントロールの(左右)余...
-
excelのリストボックスで選択し...
-
VBAのエラーについて、”実行時...
-
VBのフォーム上にPDF文書を表示...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル・VBA CheckBoxのオブ...
-
カメラスクロールするのを動画...
-
vb.netで画面のコントロールId...
-
C#,vb.netで業務用アプリ開発と...
-
EXCELでactivexコントロールを...
-
フォーム上の現在アクティブな...
-
ExcelVBAでListViewが使用できない
-
コンボボックスの文字によるif...
-
C#で角が丸いテキストボックス
-
エクセルVBAでオプションボタン...
-
ユーザーフォームで動的(Me.Con...
-
VBAのフォームでTextBoxがいっ...
-
アクセス特有の書き方?
-
エクセル コントロールツール...
-
間違えて配置してしまったコン...
-
変数をコントロール型で使用す...
-
(VBA)スピンボタンの大量...
-
Labelコントロールの(左右)余...
-
excelのリストボックスで選択し...
-
Excel VBA で Richtextboxを使...
おすすめ情報