VBA着色在指定值之间的Celldata

Question

Sub einfarben()
Worksheets("2_Basisdata").Activate
Dim Startvalue As Variant
Dim Endvalue As Variant
Application.InputBox("startvalue") = Startvalue
Application.InputBox("endvalue") = Endvalue
Dim C As Range
Dim rng As Range
rng = Range("B2;J13")
For Each C In rng
On Error Resume Next
If Startvalue < C And C < Endvalue Then
   C.Font.ColorIndex = 4
End If
Next C
End Sub

我的问题：我遇到了几个运行时错误。 Holdmarker弹出第一个Application.Inputbox 我的目标是实现价值在开始和结束之间变为绿色的单元格。

Answer 1

您需要切换涉及InputBox的两个语句的右侧和左侧。第一个应该读

Startvalue = Val(InputBox("start value"))

同样适用于下一行。在这里使用Application.InputBox似乎没什么意义所以我放弃了Application。我添加了Val来将输入字符串转换为数字。

此外，在为范围变量指定范围时，需要使用Set：

设置rng =范围（“B2：J13”）