返回列表 上一主題 發帖

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

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

未命名.png
2020-12-26 21:45

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

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

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

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

請詳見五行工作表。

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


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

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

謝謝 !

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

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

TOP

本帖最後由 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後的其它程式碼有哪些是相關的,所以就更不知道怎麼修改了

目前只能更改下載源格式表格~將第1列號碼移到第2列,再將標題填在第1列~以n大的原解答(Ans_5)(列39改為註解)暫用

不好意思,該題(Ans_14)的貴解,我才剛下載,尚未作詳細測試和研讀,因此現在並沒有針對貴解做討論(有結論後,再向您報告)~
請見諒~謝謝您

TOP

回復 3# papaya

厄......原來是這樣阿,我還在想,怎麼一樣的題目,不同人再發一次呢.......

直接用原本的程式改給你,你應該是有地方沒改到,檔案如下


程式主檔1230.rar (22.69 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 4# n7822123
n7822123大大 : 您好 !
測試成功
謝謝您的幫忙和指導

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始,每一個時刻都是自己的警惕。
返回列表 上一主題