システムwiki

MicrosoftWordクエリ-tableの条件付き書式設定に役立ちます

MCJPeek 受付中 最終更新日:2022-05-26 19:45

こんにちは、

ドロップダウンメニューに基づいて自動的に更新されるtableを作成しようとしています.= IFステートメントである必要があると思いますが、コーディング方法がわかりません.以下のExcelの表に条件の詳細が示されていますが、Wordを使用する必要があります(PDFを作成するため)

したがって、ドロップダウンを使用する

そして、以下の表の条件

例.= IF(可能性=(ほぼ確実)および結果=(マイナー))

次に

リスク評価ボックスは自動的に=非常に低い

に更新されます

乾杯

返信リスト(回答:1)

1 #
DougRob 2

簡単な数式を使用して結果を計算できるため、ドロップダウンで数値を使用する方が簡単です.

注:ここには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

で終わる

サブの終了