如何每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
万一
万一
结束于
结束子
代码的图片版如下:
猜你喜欢
- 在Word文档中,鼠标放到需要插入圆点处单击,然后打开“插入”标签,在符号栏中单击“符号”按钮,一些常用符号会在此列出,如果有您需要的,单击
- Excel表中有一种表叫“超级表”,它功能超级强大,简单高效,不仅可以轻松的管理和分析数据,还可以方便的对数据进行排序、筛选和设置格式等。&
- excel函数查找第5个反斜杠的位置,下面列出了一个完整的文件路径:D:\myData\category\ Excel\VBA\Skills
- excel2016标尺怎么设置单位?excel2016中想要使用标尺,该怎么调出标尺并设置单位呢?下面我们就来看看excel2016设置标尺
- 当我们在Excel表格中 需要输入大量的重复数据时,往往利用数据的有效性来制作一个下拉菜单以提高重复数据的输入速度。但在实际的操作过程中,必
- 使用Excel 2007录入数据时,经常会需要输入一系列具有相同特征的数据,例如周一到周日、一组按一定顺序编号的产品名称等。如果经常用到同样
- 我们知道要想在平时的工作或者学习中效率高点,就必须要使用一些小技巧,而在编辑WPS表格中,我们也可以使用一些快捷键来提高速度,回车键就是不错
- 如何在Word 2007中进行基本的通配符搜索?使用通配符,您可以在Word 2007文档中找到仅一部分或一组字母相似的单词。诀
- hi,小伙伴,好久不见了。我们经常需要给领导或者部门做一些组织架构图,但是又找不到好的模板,今天就给大家带来112套组织架构模板,这些模板的
- 在使用Word的过程中,我们经常会碰到要在文档中划出横线、着重线、虚线等。下面总结了四种方法: 工具/原料word
- 添加下划线可以说是word的专利,但是,用excel也是可以处理的,而且方法不止一种,下面小编就为大家介绍在Excel单元格中给文字加下划线
- win101909没有n卡控制面板如何解决?NVIDIA图形卡又称n卡控制面板,这是电脑显卡的大脑,很多显卡的设置都需要它。那有部分用户在更
- win10系统自带的防火墙能够阻止众多第三方软件的运行,如果用户在设置win10防火墙的时候提示防火墙无法更改某些设置,错误代码0x8007
- 在很多新人入职场的时候都会遇到这样的问题,老板或单位都是要人先做个简历。当然现在有很多现成的模板,大家只要填写就可以了。但如果对word不是
- 由于工作的关系,一些办公用户可能经常需要将一些Word文件转换成网页文件,但是转换后的网页文件会改变原来Word文件的排版格式,还得手工进行
- 最近,小伙伴在玩英雄联盟时,win10系统崩溃,经常出现。我们该怎么办事实上,我们可以下载新的系统,使用u盘安装或更改安装。今天,边肖带来了
- 我们知道,在Excel中几个单元格合并时只会保留第左上角单元格的值,那么Excel如何合并单元格并把内容都保留呢?下面小编就为大家详细介绍一
- 如果想把自己的Word文件发布到网上和别人共享,一般都是直接保存为网页格式,但是这样会改变原先的排版格式,其实我们可以用“FlashPape
- office可以使用LaTex语法快速键入公式。如下以powerpoint 2016为例。1 . 插入(横排)文本框后,在输入位置,Alt+
- 《Excel2003入门动画教程33、保存和使用表格模板》。演示动画保存表格模板 表格制作好了以后,执行“文件→保