在 VBA 中循环内运行两个函数

在 VBA 中循环内运行两个函数

=DEC2HEX(RANDBETWEEN(100,1000),8)我有这个在 excel 表中创建随机数的公式。但我想将其转换为 vba。

经过很多麻烦之后我得到了这个:

ActiveSheet.Range("A" & (lRow + 1)).Value = WorksheetFunction.RandBetween(1, 5000)

但是我只能像示例一样导入一个函数。但我必须同时导入函数RandbetweenDEC2HEX

希望理解!

答案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 是可编辑的。

相关内容