Excel如何用條件格式做出橫線（如圖）

沒有他們說的那麽難，只是關於畫圖，牽扯到像素的計算，和線條的設置，比較麻煩！多動下腦子還是可以實現的，下面的代碼運行壹下，妳就能看到效果，只是根據單元格位置畫圖的代碼，其他的我沒寫，相信有畫圖的方法，妳就有思路了！

Sub?Paint()

Dim?x0?As?Double,?y0?As?Double,?x1?As?Double,?y1?As?Double

Dim?x2?As?Double,?y2?As?Double,?x3?As?Double,?y3?As?Double

With?ActiveSheet

x0?=?.Range("a1").Left

y0?=?.Range("a1").Top

x1?=?.Range("c3").Left?+?.Range("c3").Width

y1?=?.Range("c3").Top?+?.Range("c3").Height

x2?=?.Range("a3").Left

y2?=?.Range("a3").Top?+?.Range("a3").Height

x3?=?.Range("c1").Left?+?.Range("c1").Width

y3?=?.Range("c1").Top

.Shapes.AddConnector?msoConnectorStraight,?x0,?y0,?x1,?y1

.Shapes.AddConnector?msoConnectorStraight,?x2,?y2,?x3,?y3

End?With

End?Sub