- ベストアンサー
テキストボックスやリストボックスの書式設定
フォームのテキストボックスやリストボックスの書式 設定をVBAでしようと思っているのですが、 複数のオブジェクトの設定を一括して同じ設定にする 方法はありませんか？ 今はひとつひとつ↓のように設定してます。 With Me.性別 .TabStop = False 'タブストップ .BorderStyle = 0 '境界線スタイル .SpecialEffect = 0 '立体表示 .Locked = True '編集ロック End With
- sac
- お礼率19% (26/133)
- その他(データベース)
- 回答数2
- ありがとう数0
- みんなの回答 （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 この場合は、「詳細部」セクションにある全ての コントロールの設定を変更します。
その他の回答 (1)
- maruru01
- ベストアンサー率51% (1179/2272)
こんにちは。maruru01です。 No.1の方の補足程度ですが。 特定のコントロール（オブジェクト）のみを設定したい場合は、Tagプロパティを使用する手があります。 設定したいコントロールのみのTagプロパティに、例えば「a」と入力しておいて、 For Eachの中の条件式を、 If Ctl.Tag = "a" Then という風にすればいいわけです。 Tagプロパティの設定の仕方で、いろいろなパターンでの設定が出来るようになります。 あとは、コレクションを使用する方法もあります。 コレクションについては、以下の質問を参照して下さい。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=172927
