如何用VBA生成规定数量的连续16进制数?例如:首字是:"0016F514176D",生成数量:4,点击按钮:生成!在一个表格中生成如下数列:0016F514176D0016F514176E0016F514176F0016F5141770
来源:学生作业帮助网 编辑:六六作业网 时间:2024/07/13 16:31:51
如何用VBA生成规定数量的连续16进制数?例如:首字是:"0016F514176D",生成数量:4,点击按钮:生成!在一个表格中生成如下数列:0016F514176D0016F514176E0016F514176F0016F5141770
如何用VBA生成规定数量的连续16进制数?
例如:首字是:"0016F514176D",生成数量:4,点击按钮:生成!
在一个表格中生成如下数列:
0016F514176D
0016F514176E
0016F514176F
0016F5141770
如何用VBA生成规定数量的连续16进制数?例如:首字是:"0016F514176D",生成数量:4,点击按钮:生成!在一个表格中生成如下数列:0016F514176D0016F514176E0016F514176F0016F5141770
因为不知道你的窗体,所以将起始数字放在A1单元格,生成数量放在B1单元格
代码只做了功能,没有具体到你的窗体内容,你可以根据自己的需要如下代码
Sub hex_serial()
start_num = Cells(1,1)
For i = 1 To Len(start_num)
If Mid(start_num,i,1) "0" Then GoTo next_step
Next
next_step:
hex_num = Right(start_num,Len(start_num) - i + 1)
For j = 1 To Val(Cells(1,2))
temp_num = WorksheetFunction.Dec2Hex(WorksheetFunction.Hex2Dec(hex_num) + j - 1)
Cells(j + 1,1) = String(Len(start_num) - Len(temp_num),"0") & temp_num
Next
End Sub