[發問] 以vba判斷最後1筆資料後畫上框線

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 197
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2025-10-25

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-8-13 15:20 | 只看該作者

[發問] 以vba判斷最後1筆資料後畫上框線

請教各位先進前輩老師們

工作表1:為固定格數畫框線

工作表2:如何以vba判斷最後1筆資料後畫上框線

謝謝指導

活頁簿1.zip (20.33 KB)

樓主熱帖

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 197
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2025-10-25

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

6^#

發表於 2021-8-13 16:18 | 只看該作者

回復 5# singo1232001

感謝 singo1232001 大大指導

現在已完全運用
謝謝'singo1232001 大大指導

敏而好學,不恥下問

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-8-13 16:12 | 只看該作者

回復 4# BV7BW

R = Columns("A:C").Find("*", , -4163, , 1, 2).Row
Range("A1:C" & R).Borders.LineStyle = xlContinuous

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 197
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2025-10-25

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

4^#

發表於 2021-8-13 16:05 | 只看該作者

回復 2# samwang

請問 samwang 大大
現在是以A為基準去判斷
如可以A.B.C.3個判斷點可行?
因有時"A"沒資料或""B"沒資料.或"C沒資料
但一定在"A""B""C"中3格中其中必有1格會友資料
謝謝指導

敏而好學,不恥下問

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 197
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2025-10-25

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

3^#

發表於 2021-8-13 15:58 | 只看該作者

回復 2# samwang
謝謝 samwang 大大

就是這樣需求沒錯

非常感謝

敏而好學,不恥下問

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

2^#

發表於 2021-8-13 15:53 | 只看該作者

回復 1# BV7BW

是這樣嗎?

R = Range("a65536").End(xlUp).Row
Range("A1:C" & R).Borders.LineStyle = xlContinuous '實線