Question

这里是我的代码---我合并单元格B7：C8 因此想要输出该范围内的值。这是TextBox，我想输入值，然后根据代码显示范围B7：C8 中的数字。我在最后一行得到的错误是

错误438＆＃34;对象不支持此属性或方法＆＃34;。

Private Sub TextBox21_Change()

Dim Agevar As Integer

If Agevar >= 40 And Agevar <= 45 Then
    Worksheets("Scorecard").Range("B7:c8").Values = 4
ElseIf Agevar >= 60 Then
    Worksheets("Scorecard").Range("b7:c8").Values = 3
ElseIf Agevar >= 30 And Agevar <= 40 Then
    Worksheets("Scorecard").Range("b7:c8").Values = 2
Else
    Worksheets("Scorecard").Range("b7:c8").Values = 1
End If

End Sub

Answer 1

我猜Agevar应该代表您在文本框中输入的值？

在您的IF声明之前添加此内容：
Agevar = Me.TextBox21.Value - 这会将文本框中的值放入变量中（没有检查以确保您在框中输入正确的值 - 如果您输入一个字母，它会抛出错误，或者从框中删除所有值。）
从@jsheeran评论中删除值s - Value。
仅引用合并单元格中的第一个单元格 - Range(B7)。

用于输入的VBA简单代码，然后使用ElseIF进行显示

1 个答案: