如何在Excel VBA中用预定义单元格区域替换InputBox实现自动文本着色

没问题，我来帮你搞定这个VBA代码的修改！其实思路非常清晰，核心就是把原来依赖用户输入区域的交互逻辑，替换成直接指定你预定义的单元格区域，具体步骤和修改后的代码如下：

修改思路 #

• 移除用户交互代码：删掉原来用InputBox弹窗让用户选择区域的代码段（就是你代码里Set WorkRng = Application.InputBox(...)这类语句），不需要再发起用户输入请求了。
• 直接指定固定区域：用Range对象直接定义你想要设置颜色的单元格范围，比如你要处理Sheet1里的A1到C10区域，就写Set WorkRng = ThisWorkbook.Worksheets("Sheet1").Range("A1:C10")，记得根据你的实际需求修改工作表名称和区域地址哦。
• 保留核心着色逻辑：原来遍历单元格设置文本颜色的代码完全不用动，只需要替换掉获取目标区域的那部分就行。

修改后的完整代码示例 #

Sub changeTextColor()
    Dim rng As Range
    Dim WorkRng As Range
    
    ' 直接指定预定义的固定区域，请替换为你需要的工作表和单元格范围
    Set WorkRng = ThisWorkbook.Worksheets("Sheet1").Range("A1:C10")
    
    ' 遍历区域内的每个单元格设置文本颜色（这里用红色举例，可自行修改颜色）
    For Each rng In WorkRng
        rng.Font.Color = vbRed ' 也可以用RGB值自定义颜色，比如RGB(255,0,0)
    Next rng
    
    ' 可选：设置完成后弹出提示
    MsgBox "指定区域文本颜色设置完成！"
End Sub

小细节提示 #

• 如果目标区域在当前激活的工作表上，也可以简化成Set WorkRng = Range("A1:C10")，但更推荐加上工作表名称，避免切换工作表时出现错误。
• 颜色值除了用VBA内置常量（比如vbBlue、vbGreen），还可以用RGB(R,G,B)自定义颜色，比如RGB(128,0,128)就是紫色。

内容的提问来源于stack exchange，提问作者Felix Joe Jasper