返回列表下一主題上一主題發帖

[發問] 請教各位前輩,如何簡化程式,感恩.

dou10801

中學生 Rank: 2

帖子: 140
主題: 39
精華: 0
積分: 221
點名: 104
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-4-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-4-28 13:11 | 顯示全部帖子

[發問] 請教各位前輩,如何簡化程式,感恩.

Dim objCol As Object
i = 1
Set objCol = Union(Columns(i), Columns(i + 4), Columns(i + 8), Columns(i + 12), Columns(i + 16)) '第1,5,9,13欄
objCol.Select
objCol.ColumnWidth = 8.13  '欄位寬度
'=============================
j = 2
Set objCol = Union(Columns(j), Columns(j + 4), Columns(j + 8), Columns(j + 12), Columns(j + 16)) '第2,6,10,14欄
objCol.Select
objCol.ColumnWidth = 15.3
'=============================
k = 3
Set objCol = Union(Columns(k), Columns(k + 4), Columns(k + 8), Columns(k + 12), Columns(k + 16)) '第3,7,11,15欄
objCol.Select
objCol.ColumnWidth = 20.13
   '=============================
l = 4
Set objCol = Union(Columns(l), Columns(l + 4), Columns(l + 8), Columns(l + 12), Columns(l + 16))  '第4,8,12,16欄
objCol.Select
objCol.ColumnWidth = 5.13
'---------------------------------------------------