1

それぞれ 2 つのルールを持つ 24 個のテキスト ボックスを条件付きで書式設定する必要があります。各ルールは月によって若干異なります。条件付き書式ルールをすべて 1 つの画面に入力して、多くのボタンをクリックする必要がないようにする方法はありますか? さらに、ルールを編集する必要がある場合でも、これによりかなりの時間を節約できます。疑似コード:

Style1 = FontFill.Red
Style2 = FontFill.Yellow

txtField1.ConditionalFormatting.Add("<rule text>", Style1)
txtField1.ConditionalFormatting.Add("<rule text>", Style2)

txtField2.ConditionalFormatting.Add("<rule text>", Style1)
txtField2.ConditionalFormatting.Add("<rule text>", Style2)
4

1 に答える 1

1

擬似コードの代わりにFormatConditions.Add メソッドを使用できます。デザイン ビューで "Form3" を開いた状態で、イミディエイト ウィンドウで次の操作を行いました。

Forms("Form3").Controls("txtNote").FormatConditions.Add acFieldValue, acBetween, 10, 100
Forms("Form3").Controls("txtNote").FormatConditions(0).ForeColor = vbRed
' confirm the FormatCondition is enabled ...
? Forms("Form3").Controls("txtNote").FormatConditions(0).Enabled
True

次に、フォームプロパティからフォーマット条件を調べると、これが得られました...

条件付き書式のスクリーン ショット

24 個のコントロールの場合、条件付き書式を適用する手順を作成できます。規則が変更された場合は、手順を変更してください。または、ルールをテーブルに保存し、プロシージャにテーブルからルールを読み取らせます。

于 2013-01-16T09:26:25.157 に答える