如何使用VBA生成随机字符串

最新推荐文章于 2024-04-01 09:51:48 发布
最新推荐文章于 2024-04-01 09:51:48 发布
阅读量4.7k 收藏 4
点赞数 1
分类专栏： Excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zw_2011/article/details/8658679
版权

在VBA中生成随机字符串的代码实现，原理还有待研究

------------------------------------

Sub RA()
Dim i As Integer, s As String, s1 As String
For i = 1 To 80
    Randomize
    s = Chr(IIf(10 * Rnd > 5, Int(26 * Rnd + 65), Int(26 * Rnd + 97)))
    s1 = s1 & s
Next i
Cells(1, 1) = s1
End Sub
天天向尚6
关注
  • 1
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
VBA产生随机数的函数
jinggangshi的专栏
03-23 1万+
'Dim min As Integer '定义随机数的最小值 'Dim max As Integer '定义随机数的最大值 '限制只产生500个，VBA的速度问题 Public Function CreateRND(ByVal min As Integer, _
随机生成汉字[vb]
05-09
随机生成汉字[vb]~~~~~~~~~~~~~~~~~
vba 2-6位随机大小写字母
weixin_30348519的博客
12-13 639
Function randnumber() '随机加字母大小写，加的位数不一样，2-6位 Dim temprnd, temprnd2 As String Dim temprndnum As Long temprnd2 = "" temprndnum = Int((4 * Rnd) + 2) '随机数 For i = 1 To temprndnum ...
生成随机字符串（UUID方法）
weixin_30650039的博客
06-13 340
这是另一种用UUID生成随机字符串的方法。 1 public class RandomGenerator{ 2 private int length; 3 4 public void setLength(int length) { 5 this.length = length; 6 } 7 public Random...
Vba实现按选定类型排序标记
h_XUYUAN的博客
05-08 512
一、案例概述： 本案例主要实现的是在同一列数据中根据不同的类型筛选出成绩后三的数据，且将后三成绩进行颜色标记。 二、案例如下： （1）源数据：我们要将业务型、发展中和开拓中语文成绩后三的数据筛选出来进行颜色标记。 （2）代码部分： Sub shishi() Application.ScreenUpdating = False Dim A As Integer Set 总表 = Sheets("Sheet1") Set 字典 = CreateObject("Scripting.Dictionary")
Excel-VBA宏编程实例源代码-生成随机字符串.zip
12-14
本实例“Excel-VBA宏编程实例源代码-生成随机字符串.zip”聚焦于利用VBA宏生成随机字符串，这在数据模拟、密码生成、测试用例创建等多种场景中非常实用。下面我们将详细探讨这一主题。 首先，让我们了解什么是VBA宏...
vba 随机产生考试试卷
05-25
只要按照题库文档形式，制作好试题库文档。注意，题库中题号为7位数字字符串，...每题以end字符串结尾，答案用（）包含，不得有空格，判断以特殊符号勾叉表示，先运行试卷参数配置宏，再运行试卷整理宏，生成试卷A.DOC
vb字符串加解密
12-05
3. 示例代码：使用AES加密字符串的VB示例： ```vb Imports System.Text Imports System.Security.Cryptography Public Function EncryptString(ByVal plainText As String, ByVal key As String) As String Dim ...
VBA典型试题-及答案.doc
07-08
在这些VBA典型试题中，我们看到了一系列关于Visual Basic for Applications (VBA)编程的问题，这些问题涉及了数据生成、统计分析、排序、条件判断、循环、数组操作、字符串处理以及用户交互等多个方面。以下是每个...
API.rar_Excel API函数_api vba_excel API_excel vba api_vbaapi随机函数
09-21
- 描述中提到的“根据列的中文名查询到列的索引值”可能涉及使用API函数处理字符串和数组，找到特定列的标识信息。 3. **VBAAPI随机函数**： - Excel VBA中的`Rnd`函数可以生成随机数，但其功能有限。API调用可以...
015集——vba 产生随机字符
最新发布
yongshiqq的博客
04-01 118
第一个随机字符随机8个字符（具体数字可自己设定），第二个随机字符为1个特殊字符，2个数字和5个字母（可自己设置），同时包含了数字、字母、特殊字符。
VBA的随机数生成：整数范围内随机（更好些），小数范围内随机
奔跑的犀牛先生
09-18 2万+
用EXCEL生成随机数 用VNA生成随机数 生成1-10的随机数 p1 = Int(1 + 10* Rnd()) ---这里正确，刚好10=10-1+1 p1 = Int(1 + (10-1+1) * Rnd()) --总是正确 如果生成 2-9之间的随机数 p2 = Int( 2 + 9* Rnd() ) --错误的 p2 = Int(2 + (9-2+1) * Rnd()) ----正确 ...
编程实现让计算机生成指定范围内的随机数,VBA生成特定范围内的随机数| VBA示例教程...
weixin_33918358的博客
07-21 3704
在我们的工作中，有时会遇到一些随机问题，例如随机排序，随机抽样等. 在Excel VBA中解决这些问题的基础是首先生成一系列随机数. 今天，我们将了解如何使用VBA生成满足我们需求的随机数. 在Excel中生成随机数的函数是Rnd，在VBA中，随机函数也是Rnd. Rnd函数生成的随机数范围是[0,1)，包括0但不包括1，然后通过对该范围进行操作，您可以获得符合我们要求的范围. 让我们看一下如何...
EXCEL 利用随机数公式生成随机字母、随机密码
热门推荐
sdy的博客
10-12 2万+
1.随机生成一个大写字母： =CHAR(RAND()*26+65) 2.随机生成一个小写字母： =CHAR(RAND()*26+97) 3.随机生成6位数字 =ROUND(RAND()*10^6,0) 4.随机生成2位字母+6位数字的密码 =CHAR(RAND()*26+97)&CHAR(RAND()*26+97)&(ROUND(RAND()*10^6,0))...
C++随机生成汉字
杨名天吓
07-16 4430
#include #include using namespace std; #include  #include  int main(){ srand((unsigned)time(NULL)); int iRange1 = 0xf7 - 0xb0; int iRange2 = 0xfe - 0xa1; for (int i=0;i { char iCo
【VBA研究】生成随机密码
驽马十驾 才定不舍
08-11 4208
作者：iamlaosong 很简单的一个功能，网上也有很多在线生成器，也有小工具可以下载，这儿用VBA做一个，结果就保存到当前工作表中，简单、快速。生成函数也可以放到其它程序中使用。函数实现的流程是：用一个变量保存所有用到的字符，然后根据级别取不同的子串，最后产生随机数，从子串中取出字符合并出随机密码。程序如下： '生成密码并保存到当前工作表中 Sub GetPassword() ...
EXCEL随机数据 如何使用使用Excel VBA或单元格表达式快速生成随机数据
神会找你的博客
09-18 5154
EXCEL随机数据 使用 单元格表达式 以及 Excel VBA 快速生成随机数据。使用单元格表达式（函数）在指定范围产生随机整数、小数、大小写英文字符、字符串、随机日期和随机时间，并设定输出的时间格式和日期格式。产生两个及更多范围的随机数。可以用于制作一份随机数据或随机表单。一共讲解了RANDBETWEEN()、RAND()、CHOOSE()、CHAR()、Round()、Trim()、Chr()、Str()、DataSerial()、TimeSerial()、Foramt()这11个Excel函数的使用
vba excel查找字符串
06-08
要在 Excel 中使用 VBA 查找字符串，可以使用以下代码： ```VBA Sub FindString() Dim searchString As String Dim searchRange As Range Dim foundCell As Range '设置要查找的字符串 searchString = "要查找的字符串" '设置要查找的范围 Set searchRange = ActiveSheet.Range("A1:D10") '在范围内查找字符串 Set foundCell = searchRange.Find(what:=searchString, LookIn:=xlValues, lookat:=xlPart) '如果找到了字符串，将其选中 If Not foundCell Is Nothing Then foundCell.Select Else MsgBox "未找到字符串！" End If End Sub ``` 在上面的代码中，你需要修改以下行来适应你的需求： - `searchString = "要查找的字符串"`：将字符串 `"要查找的字符串"` 替换为你要查找的字符串。 - `Set searchRange = ActiveSheet.Range("A1:D10")`：将范围 `"A1:D10"` 替换为你要查找的范围。 - `lookat:=xlPart`：如果要查找完全匹配的字符串，将 `xlPart` 替换为 `xlWhole`。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值