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

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

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

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

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

請詳見”五行”工作表。

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

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

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

謝謝 !

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2020-12-27 22:13 | 只看該作者

測試檔 : 希望能依據第2列的文字做分段的各起始欄(由B欄算起)~1_將各偶數段落(由B欄算起)的A3:A14標示3 ...
papaya 發表於 2020-12-26 21:46

感覺上底下這個討論串已經可以達到你的需求了:
[發問] 不定區域段落的格式化語法。

TOP

papaya

中學生 Rank: 2

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

3^#

發表於 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後的其它程式碼有哪些是相關的，所以就更不知道怎麼修改了