作业帮如何用VBA生成规定数量的连续16进制数?例如：首字是:"0016F514176D",生成数量:4,点击按钮：生成!在一个表格中生成如下数列：0016F514176D0016F514176E0016F514176F0016F5141770
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/28 05:14:38
如何用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