VBA从26个英文字母中选取5个进行组合把所有组合的情况用excel VBA编辑并输出到txt文件.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 01:52:58
VBA从26个英文字母中选取5个进行组合把所有组合的情况用excel VBA编辑并输出到txt文件.
sub azpailie()
For i = 97 To 118
For j = i + 4 To 122
For k = 97 To 100
Range(Chr(k) + CStr(m + 1)).Value = Chr(i + n)
n = n + 1
Next k
Range("e" & CStr(m + 1)).Value = Chr(j)
n = 0
m = m + 1
Next j
Next i
msgbox "搞定!复制到记事本保存就可以了."
end sub
要详细点初学者能比较容易看懂的.感激不尽
sub azpailie()
For i = 97 To 118
For j = i + 4 To 122
For k = 97 To 100
Range(Chr(k) + CStr(m + 1)).Value = Chr(i + n)
n = n + 1
Next k
Range("e" & CStr(m + 1)).Value = Chr(j)
n = 0
m = m + 1
Next j
Next i
msgbox "搞定!复制到记事本保存就可以了."
end sub
要详细点初学者能比较容易看懂的.感激不尽
你的程序中的m和n都没列出来,应该控制起始位置的,假定这两个值都是0
而且这段代码肯定是有问题的,中间那个For k = 97 To 100内的代码不对
For i = 97 To 118 ------97开始是小写a的ascii码值,97到118就是a到v
For j = i + 4 To 122 ------i+4就是从101开始(101是e,122是z)
For k = 97 To 100 ------a到d
Range(Chr(k) + CStr(m + 1)).Value = Chr(i + n) ------chr是将前面的97这些数值转成具体的小写字母,比如chr(97)就是a,如果是asc("a")就是97,整个这行就是将单元格a1到dm全填入值,这一句实际执行的是类似于range("A1").value="a"
n = n + 1
Next k
Range("e" & CStr(m + 1)).Value = Chr(j)
n = 0
m = m + 1
Next j
Next i
而且这段代码肯定是有问题的,中间那个For k = 97 To 100内的代码不对
For i = 97 To 118 ------97开始是小写a的ascii码值,97到118就是a到v
For j = i + 4 To 122 ------i+4就是从101开始(101是e,122是z)
For k = 97 To 100 ------a到d
Range(Chr(k) + CStr(m + 1)).Value = Chr(i + n) ------chr是将前面的97这些数值转成具体的小写字母,比如chr(97)就是a,如果是asc("a")就是97,整个这行就是将单元格a1到dm全填入值,这一句实际执行的是类似于range("A1").value="a"
n = n + 1
Next k
Range("e" & CStr(m + 1)).Value = Chr(j)
n = 0
m = m + 1
Next j
Next i
VBA从26个英文字母中选取5个进行组合把所有组合的情况用excel VBA编辑并输出到txt文件.
从1到0的10个数字中选出7个数字,不重复进行组合,顺序无所谓,有多少个组合,怎么算?
求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!
把26个英文字母中选出三个的所有可能
26个字母组合的问题26个英文字母,第一步首先任选两个进行组合,共有共有325种组合方式,第二步然后从这325种种组合里
1到33个数字取6个不同的数字组合,EXCEL公式
根据组合公式可以计算出从n个不同元素取出m 个元素的组合数,用C语言编写程序,输入2个正整数m和n,计算并输出组合数,要
英文字母26个,4个字母1个组合,有多少种不同的组合?
c语言程序设计:从1-6这6个数字中取出3个,设每个组合的3个数字从小到大排列输出,求出所有的可能组合
求救EXCEL随机函数A~Z这26个字母的随机排列公式,由3个字母组合递增到5个字母的组合,
英语的所有词汇都是由26个英文字母组合而成
用Matlab 写一个m文件,从1到100中随机抽取50个数字,输出其间的素数,并进行降序排列,最后求和.求程序