使用VBA选择另一个单元时，保持选择Word表格单元格

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时，第一行的第二个coluimn中的文本仍保持选中状态。这与按住CTRL键然后单击要复制的单元格的效果相同。我只是想使用复选框来达到同样的目的。

Answer 1

你需要它们吗？＃34;突出显示＆＃34; 或者只是希望改变背景颜色 这很容易

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

您可以稍后搜索不同的背景颜色来处理数据

但我建议不要使用表格并转而使用用户表单 这可以设置为通过点击进行任何操作

您需要设置表单，以便一个复选框不会关闭其他表单

我在EHR中使用了很多这样的表格进行数据输入

如果您不想更改整个单元格 只需使用高亮

    Selection.Range.HighlightColorIndex = wdTeal