这里是我的代码---我合并单元格B7:C8 因此想要输出该范围内的值。这是TextBox
,我想输入值,然后根据代码显示范围B7:C8 中的数字。我在最后一行得到的错误是
错误438"对象不支持此属性或方法"。
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
答案 0 :(得分:1)
我猜Agevar
应该代表您在文本框中输入的值?
在您的IF声明之前添加此内容:
Agevar = Me.TextBox21.Value
- 这会将文本框中的值放入变量中(没有检查以确保您在框中输入正确的值 - 如果您输入一个字母,它会抛出错误,或者从框中删除所有值。)
从@jsheeran评论中删除值s
- Value
。
仅引用合并单元格中的第一个单元格 - Range(B7)
。