VBA着色Celldata之间的指定值

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在第一个应用程序中popup。input框我的目标是实现值在开始和结束之间变为绿色的单元格。

Answer 1

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

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

同样的下一行。 在这里使用Application.InputBox似乎没有多less意义，所以我放弃了Application 。 我添加了Val将inputstring转换为数字。

另外，当您将范围指定给范围variables时，您需要使用Set ：

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