如何用VBA从7个字符串中随机抽取2至4个字符串

如题所述

举报该问题

推荐答案 2015-08-24

Sub a()
Dim str$, m%, i%, st$
str = "ABCDEFG" '假设有这样7个字符
For i = 1 To 4
m = Application.RandBetween(1, 7)
st = Mid(str, m, 1)
MsgBox "随机抽取的第" & i & "字符是：" & st
Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/p92Unp2s9sUnU2s29D.html

第1个回答 2015-08-23

这个不难的

相似回答

EXCEL怎么用VBA提取字符串?答：可以使用函数提取一个字符串中的一段字符。 MID 用来返回文本字符串中从指定位置开始的特定数目的字符,该数目由用户指定，函数 MID 始终将每个字符。应该用到三个字符串函数：LEFT、RIGHT、MID LEFT函数用法：LEFT（要提取字符所在单元格,从左侧开始提取的个数)。RIGHT函数用法：RIGHT(要提取字符所在单元...

excel中利用VBA生成一列随机字符串代码答：在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 F...

从字符串S中的第2个字符开始获得4个字符的子字符串函数是( )。答：本题考查取子串函数的知识。在VBA中有3种取子串函数：Left函数用于从字符串左端开始取n个字符；Right函数用于从字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串。截取第2个字符开始的4个字符应该用Mid(S，2，4)。

EXCEL 用VBA 提取字符串答：可以使用函数提取一个字符串中的一段字符。MID 用来返回文本字符串中从指定位置开始的特定数目的字符，该数目由用户指定。函数 MID 始终将每个字符（不管是单字节还是双字节）按 1 计数。语法：MID(text, start_num, num_chars)参数：MID函数语法具有下列参数：Text 必需。包含要提取字符的文本字符串...

vba中怎么提取每一个字符?答：字符由中文及英文构成，在AutoCAD里面，中文默认为两个字窜符构成，所以要分析。如果不分析的话，中文拆开后就是乱码了。怎么分析是中文，很简单，利用 ASCII表来解决，把字符转换为数值，如果数值大于127，那么是中文。;;文字内容拆开;AutoCAD程序(defun lsp20150926 (&_#ac1 / &_#ac1 &_#ac2 &_...

如何用excel中的VBA的正则表达式提取出字符串?答：1、首先打开需要编辑的Excel表格，进入到编辑页面中。2、然后点击打开主菜单栏开发工具中的“Visual Basic”选项。3、还可以鼠标右键单击工作标签，选择打开“查看代码”。4、然后在弹出来的窗口中点击输入：Function REFIND(str, re)Dim Reg As New RegExp With Reg .Global = True .Pattern = re S...

大家正在搜

如何随机抽取如何随机抽取人员随机抽取数字的抽奖如何用数组表示字符串随机抽取随机抽取幸运观众随机抽取是什么意思随机抽取一位幸运观众怎么随机抽取数据

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

请问：如何用VBA取得字符串中从左起出现的第一个数值？

如何用excel中的VBA的正则表达式提取出字符串？

如何用vba读取字符串中某个字符串

怎么用vba提取字符串中的数字

VBA怎么根据不同字符串长度提取其中数据，要提取第二个横线之...

在excel中如何用vba来实现查找特定的字符串？