首页 > Excel专区 > Excel教程 >

如何每3列中同一行只允许一个单元格中能输入数据?

Excel教程 2022-01-08 21:15:31

工作表同一行中每三个单元格同时只能有一个单元格显示数据。如下图 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

万一

万一

结束于

结束子

代码的图片版如下:


标签: Excel图表制作Excel常用函数excel数据透视表excel教程

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.