问：工作表同一行中每三个单元格同时只能有一个单元格显示数据。如下图 1所示，在单元格区域 B6：D6中，如果在单元格 B6中输入了数据，那么单元格 C6和 D6中的内容就会被清除；如果在单元格 C6中输入的数据，那么单元格 B6和 D6中的内容会被清除；如果在单元格 D6中输入的数据，那么单元格 B6和 C6中，内容就会被清除。同样，对于单元格区域 E6：G6也如此， H6：J6也如此 ……，依此类推。并且，下面的第 7行至第 20行也都是如此。该如何实现？

图 1

甲：对照工作表分析一下列号的规律，列乙， Ç ， d ， ê ， ˚F ， G ^ ， … 对应的列号为 2 ， 3 ， 4 ， 5 ， 6 ， 7 ， …… ，每个数字除以 3 ，依次以每 3 个为一组，它们的余数均为 2 ， 0 ， 1 ，这就好办了！

如果当前输入的单元格所在列的列号除以 3 ，余数为 2 ，表明当前单元格在该组 3 个单元格的第 1 个单元格，那么其相邻的两个单元格中的内容就要清空。如果当前单元格所在的列的列号除以 3 ，余数为 0 ，表明当前单元格处在 3 个单元格的中间，那么其相邻的垂直和顶部单元格中的内容要清空。如果当前单元格所在列的列号除以 3 ，余数为 1 ，表明当前单元格处在 3 个单元格的最后一个单元格，那么其前面的两个单元格中内容要清空。

按照这个思路，在工作表所在的模块中输入事件过程代码：

专用子Worksheet_SelectionChange（按目标的ByVal目标）

调光范围

设置rng = Range（“ B6：S20”）

有目标

如果不相交（目标，rng）什么都没有

如果（.Column Mod 3）= 2

.Offset（0,1）.ClearContents

.Offset（0,2）.ClearContents

ElseIf（.ColumnMod 3）= 0然后

.Offset（0，-1）.ClearContents

.Offset（0,1）.ClearContents

ElseIf（Target.Column Mod 3）= 1然后

.Offset（0，-2）.ClearContents

.Offset（0，-1）.ClearContents

万一

万一

结束于

结束子

如果工作簿中的所有工作表都要实现上述功能，那么可以将在工作簿模块中编写事件代码：

私有子工作簿_SheetSelectionChange（ByVal Sh作为对象，ByVal目标作为范围）

调光范围

设置rng = Range（“ B6：S20”）

有目标

如果不相交（目标，rng）什么都没有

如果（.Column Mod 3）= 2

.Offset（0,1）.ClearContents

.Offset（0,2）.ClearContents

ElseIf（.ColumnMod 3）= 0然后

.Offset（0，-1）.ClearContents

.Offset（0,1）.ClearContents

ElseIf（Target.Column Mod 3）= 1然后

.Offset（0，-2）.ClearContents

.Offset（0，-1）.ClearContents

万一

万一

结束于

结束子

代码的图片版如下：

阅读全文