使用VBA選擇另一個單元格時保持Word Table單元格處於選中狀態

Question

我有2列的表格。 第一個具有復選框，第二個包含文本。 復選框突出顯示單元格

Sub CB1_Click()
If CB1 = True Then
For Each itable In ActiveDocument.Tables
itable.Cell(1, 2).Range.Select
Next
End If
End Sub

問題是，如果我向下檢查第三行，第一行將丟失其選擇並且不會保持突出顯示：

Sub CB3_Click()
If CB3 = True Then
For Each itable In ActiveDocument.Tables
itable.Cell(3, 2).Range.Select
Next
End If
End Sub

如何更改代碼，所以在單擊CB1后，單擊CB3時，第一行第二行的文本仍保持選中狀態。 這與按住CTRL鍵，然后單擊要復制的單元格的效果相同。 我只想將復選框用於相同目的。

Answer 1

您是否需要“突出顯示”它們，或者只是想簡單地更改背景顏色

    itable.Cell(1, 2).Shading.BackgroundPatternColor =wdColorAqua

您以后可以搜索不同的背景顏色來處理數據

但我建議不要使用表格，而要使用可以設置為幾乎可以執行任何點擊操作的用戶表單

您需要設置表格，以便一個復選框不會關閉其他復選框

我在EHR中使用了許多此類表格來進行數據輸入

如果您不想更改整個單元格，請使用突出顯示

    Selection.Range.HighlightColorIndex = wdTeal