我用錄制宏得到了“把選中表格設置為三線表的代碼”
可是不知道怎么用循環把每一個都進行相同的設置~
求大禮幫忙解答一下~
下面是我錄制宏得到的代碼
Sub 單個三線圖()
' 三線表格式設置
.(). =
.(). =
.(). =
.(). =
.(). =
.().=
表格設置簡明型.(). =
.(). =
' 上邊框1.5磅
.th =
With .()
. = .le
. = .th
.Color = .
End With
' 上邊框1.5磅
.th =
With .()
. = .le
. = .th
.Color = .
End With
' 中間邊框0.5磅
.th =
With .Rows(1).() '第一行的底邊框
.=表格設置簡明型.le
. = .th
.Color = .
End With
End Sub