VBA简单代码输入，然后显示使用ElseIF

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

错误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

来源

2016-08-30 Vinayak Bakshi

'Range'没有名为'Values'的成员。你的意思是“价值”吗？ – jsheeran

嗨jsheeran thanx为点。但问题是，当我在文本框中键入no时，它不会自动反映范围b10中的否。如何在文本框中输入时自动显示它？ –

jsheeran我把你的代码，但在任何情况下的答案只是1.我没有得到任何其他答案。当我改变文本框中的输入值时，如何使它自动更改答案？ –

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

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

来源

2016-08-30 10:24:22

VBA简单代码输入，然后显示使用ElseIF

回答

相关问题