excel中利用VBA生成一列随机字符串 代码
发布时间:2023-07-08 09:59:19
标签:代码,字符串,生成,随机,Excel函数
用下面的VBA代码可以在A1:A100区域中生成由大小写字母和数字组成的12位长度的随机字符串,从中挑选几个作为密码用还是不错的。
在Excel中按Alt+F11打开VBA编辑器,双击“工程”窗口中的某个工作表名称,在右侧的代码窗口中输入下列代码:
Sub MakeRandomString()
Dim J As Integer
Dim K As Integer
Dim iTemp As Integer
Dim sNumber As String
Dim RandomStr(1 To 100, 1 To 1) As String
Dim bOK As Boolean
Randomize
For J = 1 To 100
sNumber = ""
For K = 1 To 12
Do
iTemp = Int((122 – 48 + 1) * Rnd + 48)
Select Case iTemp
Case 48 To 57, 65 To 90, 97 To 122
bOK = True
Case Else
bOK = False
End Select
Loop Until bOK
bOK = False
sNumber = sNumber & Chr(iTemp)
Next K
RandomStr(J, 1) = sNumber
Next J
Range("A1:A100").Value = RandomStr
End Sub
最后运行代码。如果要生成其他长度的随机字符串,将其中的
For K = 1 To 12
中的“12”改为其他数字即可,如:
For K = 1 To 10
即可生成10位长度的随机字符串。
0
投稿
猜你喜欢
- Excel中提示发送错误具体该如何解决这个问题呢?接下来是小编为大家带来的excel2003提示发送错误的解决方案,供大家参考。excel2
- 在word中,默认插入的嵌入式图片是不能批量统一设置格式版式的,只有将默认修改为四周型后,才可以批量修改图片版式或大小,接下来小编举例简单的
- 问题描述:最近收到一些网友来信,他们反映称自己的360浏览器在点击导出Excel按钮时下载窗口一闪而过或者导出文件内容空白,不能正常保存Ex
- 相信大多数人在使用Word的时候,都只是使用Word文档中比较基础的办公操作,很少用到其他方面的功能。今天要介绍的就是Word中的论文版式功
- 我们在word文档编辑过程中,如果进入了页眉编辑状态,即使没有输入内容,也会自动产生一条横线,如图示:
- Word中页面设置和段落设置对话框是最重要的对话框,那如何快速打开呢?下面给大家介绍一下。一、快速打开【段落设置】对话框操作:双击缩进按钮&
- 平时在使用Win10系统的过程当中,会有字体模糊情况出现,于是会开启字体平滑功能,让字体看上去更加平滑圆润,但是这样的设置有时候会有弊端出现
- 凭借戴口罩解锁这个新功能,iOS 15.4不仅喜提热搜,还吸引了一大批用户在第一时间进行了升级。但用了几天后,果粉们似乎并不开心,这是为什么
- win10自动更新怎么关闭?小编是希望大家能对win10开启自动更新的,因为没有更新,你不知道现在的系统漏洞补上没有。对往后使用电脑存在风险
- Win10系统可以说是最常用的系统之一,但是随着使用时间越长,遇到死机的现象就越多,那么我们应该如何在电脑重启之后查看错误日志的报告呢?下面
- 相信大家都喜欢会动的画面在word中出现,以增强视觉效果,那么问题来了,如何在word中插入GIF动画,下面小编教你怎么做,希望小编整理的对
- 启动Excel 2003,即可进入其工作窗口。Excel 2003的工作界面主要包括标题栏、菜单栏、工具栏、状态栏、编辑栏和工作表区等。如图
- 在现代高科技时代,对于办公人员来说,PPT是日常办公中最常用的软件,根本就是离不开的。所以一旦PPT出现打不开或者出现一些异常现象,可能就会
- excel的功能非常的强大,但是我们在日常生活工作中用到的只是excel的一部分功能,其中包括一些简单的功能很多朋友都不是很懂,比如exce
- 可以用分栏功能:1、首先设置好页面,这里以A4纸为例,单击WORD文件菜单,在下拉菜单中选择页面设置命令;2、切换到纸张选项卡,在纸张大小处
- Excel2016怎么取消单元格右下角显示粘贴的选项?Excel2016复制粘贴数据的时候单元格右下角往往会出现显示粘贴选项,很烦人,该怎么
- 由于工作需要,时常会在Word图片中插入文字,但你知道该怎么操作吗?其实实现的方法有很多,这里与大家分享两个快速实现的技巧:第一个:在图片上
- ‘); (window.slotbydup=window.slotbydup || []).push({ &nbs
- 写长文档的时候最害怕遇到什么?假设写了一篇300页的文档,里面的各种插图也超过100张了,在写的时候,插图已经被标上了“图1”、“图2”之类
- excel如何从记事本导入数据,在我们的工作中,我们经常会遇到很多需要处理的数据,但是我们并不是每次都那么幸运。为了更好地处理这些数据,我们