如何每3列中同一行只允许一个单元格中能输入数据？
发布时间：2022-04-19 21:15:26
问：工作表同一行中每三个单元格同时只能有一个单元格显示数据。如下图 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
万一
万一
结束于
结束子
代码的图片版如下：
0
投稿猜你喜欢
用户在使用windows7旗舰版的系统在网页上看视频的时候，突然提示“Could not load plugins:File not fou- Win10 的虚拟桌面在哪里？“多桌面”是 Linux 桌面中早就有的功能了，它使多窗口、多任务的组织更加有条理和高效率。现在，新的 Win
- 在win10系统中默认的权限等级还是较高的，虽然给我们的系统安全带来一定保障，但对我们平常的操作也会带来烦人的提示，特别是安装某些软件时系统
- 在Word2010中提供了多种视图模式供用户选择，这些视图模式包括“页面视图”、“阅读版式视图”、“Web版式视图”、“大纲视图”和“草稿视
- 系统启动项过多，会导致电脑的开机速度减慢，我们可以通过禁用一些启动项来恢复电脑的开机速度。下面就和大家演示一下win10系统启设置启动项的方
- 通常我们在word中设置页码都是连续的，那有用户想要从第三页开始设置页码，要怎么操作呢？针对这个问题，下面小编就给大家带来详细的解决方法。w
- Win10系统怎么把画图/扫描等小工具添加到桌面？这些常用的工具桌面都没有，每次都要去工具栏里找，天天使用的工具，所以想把它们添加到桌面上来
- Excel中经常需要使用到冻结功能，文档窗口具体该如何冻结呢?下面是由小编分享的excel2003冻结窗口的方法，以供大家阅读和学习。exc
- 稿纸功能用于生成空白的稿纸样式文档，或将稿纸网格应用于 Word 文档中的现有文档。通过“稿纸设置”对话框，可以随时根据需要轻松地设置稿纸属
- 在日常统计数据时，为了更方便分析数据，常常通过Excel表格的“排序”功能，当我们有多重条件要求时，如何对Excel表格中的多列数据同时排序
- Win11系统安装autocad失败如何处理？autocad是很多设计人员都会安装使用的图纸设计软件，最近有用户用Win11系统安装auto
- 近来发现Win7系统的运行速度越来越慢，网络卡到不行，打开任务管理器发现CPU内存都要被mscorsvw.exe进程占满了，而且居然还无法关
- 如果用户经常大量复制粘贴文件，剪贴板则会存放越来越多的数据，导致系统资源被占用，影响了运行速度。因此我们应该定时清理剪贴板，不过很多用户还不
- 电脑系统里会自带很多的输入法，其实很多我们是不需要的，平时打字的时候用快捷键切换时候也麻烦，下面分享删除Win7系统中多余的输入法的教程，需
- 在Excel表格中复制粘贴数据是常有的事，但若想源数据和复制出的新数据始终联动，保证一致性和完整，是不是就要涉及代码了?错了，那是你还不知道
- 在表格操作中，我们经常会遇到某些较为复杂的任务，比如多条件数据求和，比如查找或引用另外工作表中符合条件的数据等。以下是小编为您带来的关于WP
- 单变量模拟运算主要用来分析当其他因素不变时， 一个参数的变化对目标值的影响。前面章节中介绍了根据年限、年利率等条件求解顾客回款额的计算， 相
- XP系统图标出现黑色方框，用户在使用xp系统的时候，可能在桌面上的图标突然就出现了黑色的方块遮挡，这种情况大多数人之前都没有遇到过，所以他们
- Win10系统使用时间久了，总是会出现各种各样的故障问题，比如点击“开始菜单”没反应，要如何解决此项问题呢？下面就来一起看看解决方法吧。Wi
- 最近有使用笔记本电脑的小伙伴发现，win10电脑的右下角的倒三角不在了，不知道如何解决，下面小编就为大家带来Win10笔记本电脑的倒三角突然
