当前位置:主页 > Office办公 > VBA代码

VBA代码

利用excel中vba代码随机生成姓名列表的方法
利用excel中vba代码随机生成姓名列表的方法

数字可以使用rand、RANDBETWEEN函数来随机生成。可是姓名如何弄呢,本文介绍使用VBA自动随机生成姓名。  具体的随机生成姓名如下介绍:  第一步,新建一个excel工作薄  这个工作薄里面包含两个工作表,分别是“姓名数据”和“生成随机姓名”。  其中的“姓名数据”工作表,有三列数据:百家姓、男子名、女子名,是我们之前已经输入好了的。  第二步,切换到“生成随机姓名”工作表,单击“生成随机姓名”按钮,excel会出现一个输入框,提示我们输入要生成的人名数。比如我们输入100,单击“确定”,此工作表A列就会随机生成姓名100个。  下面提供随机生成姓名的VBA代码,使用方法是按下ALT+F11组合键,打开VBE编辑器,插入——模块,复制下面的代码,然后为了操作方便,我们在“生成随机姓名”工作表中插入了一个按钮,将这段代码指定给按钮。Sub 随机生成姓名() Dim Arr, Arr2, Arr3, I%, N&, S As Boolean, Str$, Dic, A&, B& N = Val(InputBox("请输入要生成的人名数:"))     '输入要生成的随机人名数量 If N = 0 Then Exit Sub      '如果未输入或点了取消则退出程序 Set Dic = CreateObject("scripting.dictionary")  '创建字典项目,用于清除生成的重复的人名 With Sheet1     '从sheet1中读取数据并随机生成姓名     Arr = .Range(.[a2], .Cells(.Rows.Count, 1).End(3))  '读取百家姓放入数组     Arr2 = .Range(.[b2], .Cells(.Rows.Count, 2).End(3))    '读取男子名常用字放入数组     Arr3 = .Range(.[c2], .Cells(.Rows.Count, 3).End(3))     '读取女子名常用字放入数组     Do  '循环执行         Str = ""       '先清空用于存储生成的名字的变量         S = Rnd > 0.5   '用取得的随机数来判断生成男子名还是女子名         I = 2 + IIf(Rnd > 0.8, 0, 1)    '用随机数确定生成的名字的字符数(80%的几率为三个字)         If S Then   '如果是男子名,则             A = Int(Rnd * (UBound(Arr) - 2)) + 2    '取得姓对应的数组下标             B = Int(Rnd * (UBound(Arr2) - 2)) + 2   '取得名字的对应下数组下标             Str = Arr(A, 1) & Arr2(B, 1)    '串接名字             If I > 2 Then   '如果名字的字符数大于2,则再得一次名字的字符下标并串接给字符串变量                 B = Int(Rnd * (UBound(Arr2) - 2)) + 2                 Str = Str & Arr2(B, 1)             End If         Else    '如果是女子名,则取对应的女子名数组内容,处理方式同上             A = Int(Rnd * (UBound(Arr) - 2)) + 2             B = Int(Rnd * (UBound(Arr3) - 2)) + 2             Str = Arr(A, 1) & Arr3(B, 1)             If I > 2 Then                 B = Int(Rnd * (UBound(Arr3) - 2)) + 2                 Str = Str & Arr3(B, 1)             End If         End If         Dic(Str) = ""   '将随机姓名放入字典中     Loop Until Dic.Count = N    '如果字典项目数量达到输入的数值则跳出循环 End With With Sheet2     '将结果写入sheet2中     .Cells.Clear    '清空原有内容     If Dic.Count > 65536 Then   '防止数量太多时无法转置及数据超出单元格最大行号的情况         Arr = Dic.keys         For N = LBound(Arr) To UBound(Arr)             Cells((N Mod 65536) + 1, N \ 65536 + 1) = Arr(N)         Next N     Else    '数量少时直接转置         .[a1].Resize(Dic.Count, 1) = Application.Transpose(Dic.keys)    '转置字典的keys值     End If End With Set Dic = Nothing   '清空字典项目 End Sub

871 次浏览
如何利用VBA代码统计相同格式的excel单元格数量
如何利用VBA代码统计相同格式的excel单元格数量

Excel 中经常要做数量统计,比如 COUNT 统计数字单元格,COUNTA 统计非空单元格,COUNTIF 单条件统计等等。那么如果要统计区域中有多少个填充绿色的单元格,有多少个字体为红色的单元格,如何实现呢?接下来介绍如何通过简单的VBA代码实现自编函数,统计相同填充色和字体颜色的单元格数量。以下代码以填充色和字体色为例(代码稍作修改,还能统计各种格式包括字体加粗/倾斜/字号/边框等的单元格数量)第一步:单击【开发工具】→【查看代码】→【插入】→【模块】第二步:输入以下代码(不区分大小写)※代码含义提示CountFormat 可自己命名,但不可与系统函数或关键字同名X和Y分别表示此函数的第1、2个参数Font.Color 指字体颜色,Interior.Color 指填充颜色

508 次浏览
excel中使用VBA代码来提取文件夹名称的具体操作步骤
excel中使用VBA代码来提取文件夹名称的具体操作步骤

在网上看到有人用批处理命令提取文件夹名称。其实在excel中使用VBA代码也同样可以提取文件夹名称。  比如需要将电脑E盘“论坛工作资料”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列,可以使用下面的代码。  使用方法是:新建一个excel文档,按ALT+F11,打开VBE编辑器,单击插入——模块,将下面的代码复制到右边的代码编辑区,然后按工具栏中的“运行”按钮即可。Sub 提取文件夹名称() Dim fs As Object n = 1 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.getfolder("E:\论坛工作资料") For Each fd In f.subfolders Cells(n, 1) = fd.Name n = n + 1 Next Set f = Nothing Set fs = Nothing End Sub  下面是VBE编辑器中写入的提取文件夹名称相关的一个截图演示:  举一反三,如果需要提取F盘下面文件夹名称,路径更改一下就OK。