在excel中不包含一些单元格数值的随机数方法介绍
发布时间:2022-09-15 20:38:10
这篇教程是向脚本之家的朋友介绍在excel中不包含一些单元格数值的随机数方法,教程真的很不错,有需要的朋友可以过来参考一下,希望能对大家有所帮助
excel是办公尤其是处理数据的一个好帮手,他能给需要进行各类数据处理提供很强大的支持,这是我在工作中遇到的一个问题,是这样的,比如有两个单元格有固定值,而另外还有一个单元格需要取随机数,但又要求不要和那两个有固定值得单元格重复。如何取呢?随机函数?rand()和randbetween()都可以,但是一时间还真想不出满足要求的写法。于是我想用VBA编写也许更简单。于是就有了下文。
工具/原料
硬件:满足允许要求的电脑
软件:Office excel(我这里用的是Excel 2013版)
方法/步骤
这里为了方便验证,我们将随机数值尽量取小一点,如果你要大一些的随机数,可以修改程序。
设在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程序的时候要细心,如果有错误提示,需要理性分析,耐心检查。
以上就是在excel中不包含一些单元格数值的随机数方法介绍,大家学会了吗?希望能对大家有所帮助!
猜你喜欢
- 我们在制作word文档时,有时会需要做上封面、目录、摘要,而封面、目录、摘要不需要添加页码,也就是说第一页应从整份文档的中间某页开始,那么下
- word批量快速制作小标签?word中想要从信息中提取所需字段批量快速制作小标签,该怎么制作呢?下面我们就来看看详细的教程,需要的朋友可以参
- Word快速插入时间日期。在Word中,有两个快捷键能够直接生成当前日期和时间。方法一:运用快捷键Alt+Shift+D,可以在Word上添
- Excel在统计数据时,特别是在统计学生成绩时,在需要将同一标准的学生成绩进行合并单元格并评价的时候,那excel怎么把重复数据进行删除呢?
- Word修改痕迹怎么显示?由于我们在使用Word进行编写论文、工作相关方案时,会有多次的修改,为了让修改可以很好的看出来,我们可以设置Wor
- 在创建列表时,有时部分列表项中的文本缩进过长,而您想要将这些项与其他项对齐。 图11.在未正确对齐的其中一个列表项
- 今天,我们来聊一条神奇的横线,它出现在页眉中,这条横线突然的出现,也需要用意想不到的方式让它消失打开 word 点击页眉
- 机器安装了 windows和office, 由于某种原因,需要清除激活信息。方法/步骤1.首先要卸载掉KMS的程序
- Word文档全屏显示的方法怎么弄?今天就由小编教大家解决这个问题!希望可以帮到大家!word文档全屏显示1、启动Word 2013并打开需要
- 有很多用户都喜欢使用Word来进行一些文档的编辑,而我们在使用Word的时候难免会遇到开始栏被隐藏的情况,不过一些刚接触软件不久的用户还不清
- 自从微软推出win10 2004版本之后,很多用户都选择更新,不过在更新完win10 2004版本系统之后就有用户遇到了开机闪屏且无法进入桌
- WORD安全模式问题的现象是:双击WORD文档时,程序弹出出错对话框,显示“正在处理的信息有可能丢失,Microsoft Office Wo
- 大家在使用Excel表格总汇大批量数据时,难免会发现一些重复行和重复数据,这时我们就应该将那些重复的数据删除,以免会影响我们的工作,在Exc
- 在Win10系统中,快捷键是非常重要的一项功能,它可以帮助我们快速地打开所需要的应用,提高工作效率。最近有用户反馈Win10快捷键无法使用的
- 截屏是使用比较频繁的操作,在浏览网页遇到有用的内容或者聊天时想要截下一段话都需要使用到截屏,对电脑了解一点的朋友可能会打开QQ之类的第三方软
- 如何在Word2003中输入公式①进入Word2003,单击菜单栏的“插入”中的“对象”命令;②在弹出的“对象”对话框中选择“Kingsof
- 近日有不少预装了office2016家庭和学生版的电脑用户反映,在进行激活后office文件图标突然变成了空白,且桌面新建菜单中office
- 笔者曾经介绍过用MS VISIO 2002制作工作流程图的方法,但是很多朋友反映自己的电脑上并没有安装VISIO,而且对VISIO还有种陌生
- 图文并茂的文档,会给人留下深刻的印象,但是用习惯了word2003,现在使用word2010和word2013还不习惯,比如插入图片后设置图
- Win10系统BADSYSTEMCONFIGINFO蓝屏通常是系统问题,具体原因很多,如果不行的话重新安装最快,让我们来看看详细的教程。Wi