问与答67： 如何每3列中同一行只允许一个单元格中能输入数据？

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

图1

A：对照工作表分析一下列号的规律，列B、C、D、E、F、G、……对应的列号为2、3、4、5、6、7、……，每个数字除以3，依次以每3个为一组，它们的余数均为2、0、1，这就好办了！

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

Set rng =Range("B6:S20")

With Target

If Not Intersect(Target, rng) Is Nothing Then

If (.Column Mod 3) = 2 Then

.Offset(0,1).ClearContents

.Offset(0,2).ClearContents

ElseIf (.ColumnMod 3) = 0 Then

.Offset(0, -1).ClearContents

.Offset(0,1).ClearContents

ElseIf (Target.Column Mod 3) = 1 Then

.Offset(0,-2).ClearContents

.Offset(0,-1).ClearContents

End If

End If

End With

End Sub

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

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim rng As Range

Set rng =Range("B6:S20")

With Target

If Not Intersect(Target, rng) Is Nothing Then

If (.Column Mod 3) = 2 Then

.Offset(0,1).ClearContents

.Offset(0,2).ClearContents

ElseIf (.ColumnMod 3) = 0 Then

.Offset(0,-1).ClearContents

.Offset(0,1).ClearContents

ElseIf (Target.Column Mod 3) = 1 Then

.Offset(0,-2).ClearContents

.Offset(0,-1).ClearContents

End If

End If

End With

End Sub

代码的图片版如下：