[已解决]能这样加线吗

hvail · 发表于 2012-7-24 13:28

Sheets("sheet1").Range("d3", "d4", "c5", "F5", "Q5", "aa5", "aa3", "aa4").Underline = xlUnderlineStyleSingleAccounting

最佳答案

ws278106483

2012-7-24 14:36

Sub jxhx()
Sheets("sheet1").Range("d3, d4, c5, F5, Q5, a5, aa3, aa4").Font.Underline = xlUnderlineStyleSingleAccounting
End Sub

ws278106483 · 发表于 2012-7-24 14:33

Sub jh()
Sheets("sheet1").Range("A1,b1,c1,d1").Font.Underline = xlUnderlineStyleSingleAccounting

End Sub

ws278106483 · 发表于 2012-7-24 14:36

Sub jxhx()
Sheets("sheet1").Range("d3, d4, c5, F5, Q5, a5, aa3, aa4").Font.Underline = xlUnderlineStyleSingleAccounting
End Sub

ws278106483 · 发表于 2012-7-24 14:36

楼主看下哦。呵呵。

hwc2ycy · 发表于 2012-7-24 14:54

ws278106483 发表于 2012-7-24 14:36
楼主看下哦。呵呵。

都开始搞VBA了，牛啊。

ws278106483 · 发表于 2012-7-24 14:57

hwc2ycy 发表于 2012-7-24 14:54
都开始搞VBA了，牛啊。

别这么说啦，班长。都是皮毛而已。呵呵。

hvail · 发表于 2012-7-24 15:45

hwc2ycy 发表于 2012-7-24 14:54
都开始搞VBA了，牛啊。

班长应该帮助和鼓励新人嘛

hwc2ycy · 发表于 2012-7-24 15:46

hvail 发表于 2012-7-24 15:45
班长应该帮助和鼓励新人嘛

当然的。

hvail · 发表于 2012-7-24 15:49

hwc2ycy 发表于 2012-7-24 15:46
当然的。

班长,皮毛对我来说也是一座山呀

		自动登录	找回密码
密码			注册