出産前後の痔にはご注意!

フォームのテキストボックスやリストボックスの書式
設定をVBAでしようと思っているのですが、
複数のオブジェクトの設定を一括して同じ設定にする
方法はありませんか?

今はひとつひとつ↓のように設定してます。

With Me.性別
.TabStop = False 'タブストップ
.BorderStyle = 0 '境界線スタイル
.SpecialEffect = 0 '立体表示
.Locked = True '編集ロック
End With

このQ&Aに関連する最新のQ&A

A 回答 (2件)

Dim Ctl As Control



For Each Ctl In Me.Controls
If Ctl.Section = acDetail Then
On Error Resume Next 'エラーを無視

Ctl.TabStop = False 'タブストップ
Ctl.BorderStyle = 0 '境界線スタイル
Ctl.SpecialEffect = 0 '立体表示
Ctl.Locked = True '編集ロック

Err = 0
End If
Next Ctl

この場合は、「詳細部」セクションにある全ての
コントロールの設定を変更します。
    • good
    • 0

こんにちは。

maruru01です。

No.1の方の補足程度ですが。

特定のコントロール(オブジェクト)のみを設定したい場合は、Tagプロパティを使用する手があります。
設定したいコントロールのみのTagプロパティに、例えば「a」と入力しておいて、
For Eachの中の条件式を、

If Ctl.Tag = "a" Then

という風にすればいいわけです。
Tagプロパティの設定の仕方で、いろいろなパターンでの設定が出来るようになります。

あとは、コレクションを使用する方法もあります。
コレクションについては、以下の質問を参照して下さい。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=172927

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=172927
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング