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

[發問] 自動分段標示和總計列最大數標示的語法。

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-12-26 21:46 | 顯示全部帖子

[發問] 自動分段標示和總計列最大數標示的語法。

測試檔 : 程式主檔.rar (16.05 KB)

希望能依據第2列的文字做分段的各起始欄(由B欄算起)~

1_將各偶數段落(由B欄算起)的A3:A14標示34號底色和5號粗框線。

2_將第14列(總計)各個段落的最大數標示38號底色

請詳見”五行”工作表。

PS︰”八卦”,”生肖”,”均值”等工作表可當作測試檔。

請問 : 以上2項的需求語法，應該如何編寫 ?

敬請各位大大不吝指導是幸 !

謝謝 !

樓主熱帖

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

2^#

發表於 2020-12-28 09:23 | 顯示全部帖子

本帖最後由 papaya 於 2020-12-28 09:36 編輯

回復 2# luhpro
Luhpro大大 :
感謝您的提醒~
我也是看到該題，才知道能以一式程式碼解決各種不同排序的檔案。
因為我下載源的表格是號碼在第1列，第2列空白，所以分段標題只能填在第2列。

有將該題的n大解答 :
列17 K = 0: Set Rg = [A1].End(2)程式碼改為 K = 0: Set Rg = [A2].End(2)
列39 ‘Cells(Rrr(K), Crr(K)).Resize(, C_Cnt).Interior.ColorIndex = 36 改為註解
其餘程式碼都沒有更動(因為總計和小計是以"計"為搜尋關鍵字，所以不敢亂動)~
只可惜，牽一髮動全身，改為A2後的各種排序之最後一個段落都失效了(最後一個段落的前3大的標示和框線範圍都不對了)。

雖然我的需求比較簡單~沒有小計，只有總計，而且總計列固定在第14列，
但不知道改為A2後的其它程式碼有哪些是相關的，所以就更不知道怎麼修改了