在excel中不包含一些单元格数值的随机数方法
时间:2023-07-12 13:59:08
excel是办公尤其是处理数据的一个好帮手,他能给需要进行各类数据处理提供很强大的支持,这是我在工作中遇到的一个问题,是这样的,比如有两个单元格有固定值,而另外还有一个单元格需要取随机数,但又要求不要和那两个有固定值得单元格重复。如何取呢?随机函数?rand()和randbetween()都可以,但是一时间还真想不出满足要求的写法。于是我想用VBA编写也许更简单。于是就有了下文。
在excel中不包含一些单元格数值的随机数方法
这里为了方便验证,我们将随机数值尽量取小一点,如果你要大一些的随机数,可以修改程序。
设在D1单元格里取随机数(1——5之间),A1、B1单元格为有固定数值的单元格,当然数值范围也在1——5直接,否则毫无意义。
要编写VBA,首先就要打开VBA,打开VBA的方法不止一种,这里我们就使用最简单最快捷的方式,使用快捷键吧。按“Alt+F11”打开VBA窗口。VBA窗口右侧子窗口就是输入代码用的。
输入代码,如下:
Public Sub btsj()Dim sjd As Range Set sjd = Range("D1")line1: sjd.ClearContents Randomize sjd = Int(Rnd * 5 + 1) If sjd = Range("A1") Or sjd = Range("B1") ThenGoTo line1End IfEnd Sub
完成后就可以试运行并保存,运行是那个小三角,好像播放图标一样的,保存的图标不用多说。点击小三角图标后可能会弹出一个窗口,再点击运行即可。
为了快速验证,我们可以给宏加上快捷键,如图所示,这里我们给它设置快捷键“Ctrl+s”,现在我们只要按Ctrl+s就可以快速运行该宏/程序了。
注意事项
编写VBA程序的时候要细心,如果有错误提示,需要理性分析,耐心检查。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
没有收到21H1正式版推送怎么办 怎么才能获得Win10 21H1正式版推送
![](https://img.aspxhome.com/file/2023/26/a221922_0s.jpg)
Excel2013怎么设置数据以百万单位显示?
![](https://img.aspxhome.com/file/2023/2/36062_0s.jpg)
收不到Win10推送怎么办?Win7/8没收到win10升级提示情况的解决办法
![](https://img.aspxhome.com/file/2023/28/a249709_0s.jpg)
Word2013中怎样对项目符号和编号使用"正文"样式
![](https://img.aspxhome.com/file/2023/3/21133_0s.jpg)
怎么进入惠普bios设置u盘启动顺序
![](https://img.aspxhome.com/file/2023/3/a294978_0s.png)
如何安装win10 iso文件 安装win10 iso文件方法步骤
![](https://img.aspxhome.com/file/2023/6/49266_0s.png)
Win11怎么测试麦克风?Win11测试麦克风方法
![](https://img.aspxhome.com/file/2023/28/a239929_0s.jpg)
如何移除Win10资源管理器左侧栏中的“3D对象”?
![](https://img.aspxhome.com/file/2023/4/a310865_0s.png)
1.75亿网站的服务器仍在使用Windows Server 2003系统 包括阿里
![](https://img.aspxhome.com/file/2023/28/a248160_0s.jpg)
Word 2003中如何打开和取消菜单折叠(word里面展开折叠标志如何去掉)
![](https://img.aspxhome.com/file/2023/8/18958_0s.jpg)
在WPS文字的段落编辑中如何将段落置于文章的中心
![](https://img.aspxhome.com/file/2023/8/a164408_0s.jpg)
Excel中AND函数的语法和用法
如何关闭win10系统通知?win10关闭系统和应用消息通知的方法
![](https://img.aspxhome.com/file/2023/28/a239577_0s.jpg)
双核cpu也一样 提高win7的启动速度三步搞定
Win8.1按键盘后蓝屏提示bad pool caller
![](https://img.aspxhome.com/file/2023/2/a284493_0s.jpg)
MAC如何保存土豆网的视频
![](https://img.aspxhome.com/file/2023/0/a216550_0s.jpg)
win7系统设备管理器在哪
![](https://img.aspxhome.com/file/2023/4/a310560_0s.png)
WPS表格如何自定义填充颜色图文教程
Win10系统Edge浏览器快捷键介绍
![](https://img.aspxhome.com/file/2023/4/a306878_0s.jpg)
Word2010中如何让多个文档比较并合并的详细图文步骤
![](https://img.aspxhome.com/file/2023/1/29421_0s.jpg)