在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程序的时候要细心，如果有错误提示，需要理性分析，耐心检查。
0
投稿猜你喜欢
- 1.巧分窗口如果仔细观察可能会发现，在Excel垂直滚动条上方与带黑三角形按钮相邻的地方，有一个折叠起来的按钮，双击(以下双击均指双击鼠标左
- 现在我们经常在办公中使用word软件，但很多时候word也会发小脾气出故障，word打不开的情况是比较常发生的，下面是小编整理的word打不
最近收到一位老师私信说：“收到学生家长填写的100+Excel表格，要怎么样快速合并整理到一个表格中呢？总是一个个复制合并，耗费了大量的时间- word中插入的gif动画怎么设置动起来？我们都知道，word中如果插入gif动图保存以后，动图都不动了，该怎么解决这个问题呢？下面我们就来
- 我们在excel中进行排序的时候，是有着一个区域的，有时候会发现这个区域无法进行扩展是怎么回事呢?下面就跟小编一起来看看excel表格排序时
- OA工作流怎么使用转入转出条件?工作流模块是OA办公自动化软件的精华所在，也是最重要的模块。在设计工作流程的时候，转入转出条件是必用的一个功
- 在编辑word文档时候，我们很多时候都会运用文档中的页眉以及页脚功能，所以当我们打开一些文件的时候就会发现很多小伙伴都喜欢使用页眉以及页脚功
- “excle比较合并工作簿”可以将不同的文件中的数据进行合并。下面是小编为大家精心整理的关于Excle中如何合并工作簿？希望能够帮助到你们。
- 常见原因：如果公式返回的错误值为“#DIV/0!”，这是因为在公式中有除数为零，或者有除数为空白的单元格(Excel把空白单元格也当作0)。
- 最近有用户问电脑桌面的图标桌面任意摆放。如果想要实现随意摆放图标，我们可以用鼠标右击桌面，在弹出的选项中进行相关的选择便可以实现这种操作。w
- Excel2016中，在快速工具栏添加了好多的快速启动项。那么，需要把Excel表格的快速访问工具栏恢复到默认的状态应该怎样做呢？一起来了解
- 在使用Word文档的过程中，我们可能会遇到想要快速精准定位到某个词或某个句子的情况，这篇文章我们一起来学习一下解决办法。应用案例下图为一份多
- 我们在平时使用Word编辑、打印文件时常会用到“页面设置”命令，最通常的操作方法是：执行“文件→页面设置”菜单命令。其实，我们完全可以将Wo
- excel怎么使用vba快速重命名未打开的文件？excel想要对未打开的文件重命名，该怎么操作呢？我们可以使用vba来实现，下面我们就来看看
- word文档中的文字如何直接变成繁体字?很多朋友并不是很清楚，所以下面小编就为大家详细介绍一下，不会的朋友可以参考本文我们在使用word的时
- Word文档怎么添加页码并对页码样式1、打开“插入”选项卡，在“页眉和页脚”组中单击“页码”按钮，在展开的下拉列表中选择“页面底端”选项，在
- Excel中经常会遇到有着绿色三角的表格，这些绿色三角具体该如何进行消除的呢?下面是由小编分享的excel表格消除绿色三角的方法，不懂的朋友
- 如何将Excel转换成txt，txt转为Excel？请看下面方法。Excel转换成txt1、打开Excel。2、点击文件。3、选择另存为。4
- 一、增加数据系列1、鼠标移至散点图，右键=〉“选择数据”。2、在打开的“选择数据源”对话框中找到“添加”按钮，点击。3、在出现的“编辑数据系
- 我需要在Word文档中添加箭头符号，我捣鼓了半天没找到，怎么在Word公式中添加箭头符号？第1步，打开Word2010文档窗口，单击需要添加
