Excel VBA中如何将文本框值传递给RandBetween公式？

你的问题核心在于Excel工作表公式无法直接识别VBA中的用户窗体对象和Val函数——你当前的代码里，把Val(UserForm1.TextBox3.Value)直接写进了公式字符串里，但Excel的公式引擎根本不知道这个VBA语法是什么，自然没法正确解析区间值。

这里给你修正后的代码，同时优化一下单元格定位的写法（避免用Select/ActiveCell，让代码更高效稳健）：

Private Sub CommandButton1_Click()
    Dim min As Integer
    Dim max As Integer
    Dim targetCell As Range
    
    ' 获取文本框中的数值并转换为整数
    min = Val(UserForm1.TextBox3.Value)
    max = Val(UserForm1.TextBox4.Value)
    
    ' 找到A列最后一行下方的目标单元格，无需激活/选中
    Set targetCell = Range("A1").End(xlDown).Offset(1, 0)
    
    ' 将VBA变量的实际值直接拼入公式字符串
    targetCell.Formula = "=RANDBETWEEN(" & min & ", " & max & ")"
End Sub

关键说明： #

• 我们已经在VBA里把文本框的值转成了min和max整数变量，只需要把这两个变量的实际值拼接进公式字符串里，这样Excel拿到的就是一个标准的=RANDBETWEEN(最小值, 最大值)公式，自然能正常运行。
• 去掉了Select和ActiveCell的操作，直接通过对象引用赋值，这是VBA编写的最佳实践之一，能避免因工作表切换等操作导致的错误。
• 注意RANDBETWEEN函数在Excel里不区分大小写，但大写书写更符合公式的通用习惯。

内容的提问来源于stack exchange，提问作者P.R