如何让VBA让用户仅能在指定单元格或单元格区域中输入数字
发布时间：2023-02-27 18:40:38
标签：excel图表制作,excel常用函数,excel数据透视表,Excel教程
通常，我们可以使用Excel的“数据验证”功能来设置指定单元格或单元格区域仅能输入指定范围的整数或者小数，如下图1所示。
图1
设置好后，仅能在单元格C2中输入介于1至100之间的整数，如下图2所示。
图2
其实，使用VBA也能够实现上述功能且更灵活和强大。例如，我们想要限定用户在单元格区域B2:D6中仅能输入数字。在VBE中，双击单元格区域所在的工作表模块，输入下面的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Application.EnableEvents = False
For Each rng In Target
‘限定程序执行在单元格区域B2:D6
If Not Application.Intersect(rng,Range(“B2:D6”)) Is Nothing Then
‘判断是否为数字
‘如果不是数字则清空
If Not IsNumeric(rng.Value) Then
rng.Value = vbNullString
End If
End If
Next rng
Application.EnableEvents = True
End Sub
这样，在该工作表单元格区域B2:D6中，如果输入的是非数字，则会自动清空。并且，这个单元格区域可以输入整数或小数。
0
投稿猜你喜欢
目前市面上大部分的音乐播放软件都支持播放倍速调整，QQ音乐自然也不例外。不过，由于调整选项设计的过于隐秘，许多QQ音乐用户都不了解调整播放倍- 移动硬盘这个大家应该不陌生吧，大部分人应该都有。移动硬盘内存空间大，便于储存文件等等。但最近有用户在Win7系统电脑上使用移动硬盘，出现了这
- 我们有时候为了一些文件的安全性会对文件夹进行加密，但是还有还不少使用Win7的小伙伴不清楚文件夹如何加密，那么遇到这种情况要怎么办呢？下面就
- PPT怎么画正方形？ppt中想要插入一个正方形，该怎么插入呢？下面我们就来看看使用ppt画正方形图形的教程，很简单， 需要的朋友可以参考下p
- Win10系统可以说是最常见的系统之一，在使用的过程中总会遇到各种问题，例如有的小伙伴遇到打开“此电脑”查看资料一直提示正在处理它没有响应的
- 安装升级win101909版本系统后，在运行的过程中出现了提示Explorer.EXE错误，升级win101909版本后提示Explorer
- 在windows操作系统中.exe文件也是属于可以执行的问题件，一般情况双击.exe文件即可打开，但有用户在win7系统中遇到.exe此类型
- 很多win8用户在玩dota2的时候回遇到无法连接至steam网络的问题，那么win8系统dota2无法连接至steam网络怎么办？下面小编
- ppt绘图工具打开ppt文件，新建一个幻灯片。在开始菜单-形状选框，打开三角，有很多形状。随便选择几个画一下，例如矩形。把颜色调整白色，编辑
- 在使用win10系统的过程中，我们经常需要返回桌面的方法。通过这些方法，我们可以快速适应和发挥win10系统。 教程/方法&nbs
- 找不到msvcr100.dll怎么办？我们在打开计算机程序时，系统提醒没法启动此程序，由于计算机中丢失MSVCR100.dll，试着重新安装
- MAC系统连接蓝牙播放音乐会卡顿该怎么办？使用mac系统连接蓝牙耳机或者音箱后总是出问题，播放音乐总是出现一卡一卡的，该怎么吧呢？下面我们来
- 在Excel中复制 粘贴表格经常会出现“#REF!”的标志原因：复制的表格中带有公式方法：选择性粘贴步骤：第一步：如图是待复制的列第二步：很
- 许多小伙伴在使用电脑的时候，经常会需要使用到摄像头，但是万一摄像头损坏又急需使用怎么办呢？其实我们可以通过调用手机的摄像头来应急，今天小编就
- 虽然以目前苹果的定价策略来看， 日版的iPhone无论是价格还是保修政策都没优势，而且据说最近转运地址砍单严重。如果你国行、港版和美版都没买
- 智慧的外甥女学会了九九乘法表，见到我就背给我听，还要我给她打一份大的， 由于文具盒里的乘法表 过小了。 怎样办呢？咱 不克不及 消除小孩子
- boss直聘是一款非常不错的招聘软件，很多的小伙伴都在这上面寻找自己心仪的工作，但是很多的小伙伴登录的时候都遇到过服务器繁忙的情况，下面就来
- 用户在使用xbox商店的时候，发现自己买错了游戏，但如今Xbox推出了退款功能，那么xbox商店如何退款呢？接下来让我们一起看看xbox商店
- Win10系统虽然已经推出很久了，但是微软一直在完善系统，会不断发布更新使系统功能更加舒适更加完善，那我们如果系统没有自动进行更新，要如何进
- 升级win10后图片查看器看图颜色变黄该怎么办？电脑升级win10以后出现了一个问题，使用图片查看器看图片，颜色发黄向老照片，严重失真，ps
