作业帮如何用VBA生成规定数量的连续16进制数?
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/05/22 15:45:11
如何用VBA生成规定数量的连续16进制数?
例如：首字是:"0016F514176D",生成数量:4,点击按钮：生成!
在一个表格中生成如下数列：
0016F514176D
0016F514176E
0016F514176F
0016F5141770
例如：首字是:"0016F514176D",生成数量:4,点击按钮：生成!
在一个表格中生成如下数列：
0016F514176D
0016F514176E
0016F514176F
0016F5141770
因为不知道你的窗体,所以将起始数字放在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
再问： 你好，首先谢谢你的回答！我想用类似于如下的窗口： 把数据保存到EXCEL中，A列保存序列号，B列保存MAC地址。如何用那个“生成数据”的按钮触发呢？
代码只做了功能,没有具体到你的窗体内容,你可以根据自己的需要如下代码
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
再问： 你好，首先谢谢你的回答！我想用类似于如下的窗口： 把数据保存到EXCEL中，A列保存序列号，B列保存MAC地址。如何用那个“生成数据”的按钮触发呢？