返回列表 上一主題 發帖

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

BV7BW

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-8-13 15:20 | 只看該作者

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

請教 各位 先進 前輩 老師們


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

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


謝謝 指導 活頁簿1.zip (20.33 KB)
收藏 分享
敏而好學,不恥下問

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2021-8-13 15:53 | 只看該作者
回復 1# BV7BW

是這樣嗎?

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

TOP

BV7BW

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
3#
發表於 2021-8-13 15:58 | 只看該作者
回復 2# samwang
謝謝 samwang 大大

就是這樣 需求沒錯

非常感謝
敏而好學,不恥下問

TOP

BV7BW

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

2025年全勤獎章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格會友資料
謝謝 指導
敏而好學,不恥下問

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
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

TOP

BV7BW

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
6#
發表於 2021-8-13 16:18 | 只看該作者
回復 5# singo1232001

感謝 singo1232001 大大 指導

現在已完全運用
謝謝'singo1232001 大大 指導
敏而好學,不恥下問

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題