- Excel的线条变色可否详解一下？万分感谢！
- 可否详解一下？万分感谢！
- 好的，说明一下。
Sub ysbh()
rsz = IIf([A2] = 1, 2, 3)'这句是说A2单元格是1就返回2并赋值给变量rsz，若不是1返回3且赋值给变量rsz
ActiveSheet.Shapes.Range(1).Line.ForeColor.SchemeColor = rsz'这句就是改变颜色代码，变成什么颜色由第一句得到的变量rsz值决定（其中2是红色，3是绿色）
End Sub
还有就是你不明白为什么改成选项按钮后，平阳虎老师的答案就不能用了，其实道理很简单，他的代码执行是由单元格修改事件触发的，改成选项按钮后，选项的改变并不触发单元格修改事件，所以代码不运行，颜色就不改变，我改用成把宏直接链接到选项按钮上，所以就一切正常了。