MicrosoftWordクエリ-tableの条件付き書式設定に役立ちます
こんにちは、
ドロップダウンメニューに基づいて自動的に更新されるtableを作成しようとしています.= IFステートメントである必要があると思いますが、コーディング方法がわかりません.以下のExcelの表に条件の詳細が示されていますが、Wordを使用する必要があります(PDFを作成するため)
したがって、ドロップダウンを使用する
そして、以下の表の条件
例.= IF(可能性=(ほぼ確実)および結果=(マイナー))
次に
リスク評価ボックスは自動的に=非常に低い
に更新されます乾杯
返信リスト(回答:1)
簡単な数式を使用して結果を計算できるため、ドロップダウンで数値を使用する方が簡単です.
注:ここには2つのtableがあり、2番目のtableには値と数式を含む3つの行が含まれています.以下のコードを実行する場合、選択は2番目のtableにある必要があります.
table内のセルをシェーディングするために使用されるコードは次のとおりです.
Dim j As Long、k As Long
範囲として薄暗いcrange
Sub ColorizeSingle()
エラー時GoToExitThis
Selection.Tables(1)を使用
j=1から.Rows.Count-1へ
.Rows(j)を使用
.Cells(4).Range.Fields.Update
.Cells(7).Range.Fields.Update
k=2から7の場合
ケースkを選択
ケース2、3、5、6
crange=.Cells(k).Range
を設定しますcrange.End= crange.End-1
IsNumeric(Trim(crange.Text))およびAsc(crange.Text)32ではない場合
MsgBox「エントリは1から5までの数字でなければなりません.」
crange.Select
サブを終了
終了する場合
Case Val(crange.Text)を選択します
ケース1から3
crange.Cells(1).Shading.BackgroundPatternColor= RGB(153、204、0)
ケース4
crange.Cells(1).Shading.BackgroundPatternColor= RGB(255、153、0)
ケース5
crange.Cells(1).Shading.BackgroundPatternColor= RGB(255、80、80)
ケースは>5
MsgBox「値は5を超えてはなりません.」
crange.Select
サブを終了
場合
Len(crange.Text)<5 Then
の場合crange.Cells(1).Shading.BackgroundPatternColor= RGB(255、255、255)
終了する場合
選択の終了
ケース4、7
crange=.Cells(k).Range
を設定しますcrange.End= crange.End-1
Case Val(crange.Text)を選択します
ケース1から4
crange.Cells(1).Shading.BackgroundPatternColor= RGB(153、204、0)
ケース5から12
crange.Cells(1).Shading.BackgroundPatternColor= RGB(255、153、0)
ケースは>12
crange.Cells(1).Shading.BackgroundPatternColor= RGB(255、80、80)
場合
Len(crange.Text)<5 Then
の場合crange.Cells(1).Shading.BackgroundPatternColor= RGB(255、255、255)
終了する場合
選択の終了
選択の終了
次のk
で終わる
次のj
で終わる
サブの終了