=DEC2HEX(RANDBETWEEN(100,1000),8)
我有这个在 excel 表中创建随机数的公式。但我想将其转换为 vba。
经过很多麻烦之后我得到了这个:
ActiveSheet.Range("A" & (lRow + 1)).Value = WorksheetFunction.RandBetween(1, 5000)
但是我只能像示例一样导入一个函数。但我必须同时导入函数Randbetween
和DEC2HEX
。
希望理解!
答案1
您需要使用这个 VBA 代码:
Sub HEXARandomNumber()
Dim randomNumber As Integer
Dim DEC2HEXNUM As Variant
randomNumber = Int(100 + Rnd * (1000 - 2 + 1))
DEC2HEXNUM = WorksheetFunction.Dec2Hex(randomNumber, 8)
Debug.Print randomNumber
Debug.Print DEC2HEXNUM
ActiveSheet.Range("A1").Value = randomNumber
ActiveSheet.Range("A2").Value = DEC2HEXNUM
End Sub
注意:
- 要在两个值之间生成一个随机数,您必须使用 RND 和 INT 函数的组合。
- 值 100,1000 和单元格范围 A1, A2 是可编辑的。