台灣最大程式設計社群網站
線上人數
1069
 
會員總數:245228
討論主題:189098
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> VBA 第一欄選取畫框線
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VBA 第一欄選取畫框線
價值 : 10 QP  點閱數:110 回應數:0

樓主

ian
門外漢
0 1
4 0
發送站內信

想請教為何以下function 及用with 在幫資料加框線時會印不到第一個column ?
要怎麼修改才能符合需求,感謝

Function getlastrow() As Long '找到最后一列-資料範圍
Dim lngReturn As Long
Dim wks2 As Worksheet
Set wks2 = Worksheets(2)
lngReturn = wks2.Range("A2").End(xlDown).Row
getlastrow = lngReturn
End Function

LastRow = getlastrow

With wks2.Columns("A:H" & CStr(LastRow)) '調整儲存格範圍
.HorizontalAlignment = xlCenter '文字置中對齊
.VerticalAlignment = xlCenter
.Font.Name = "calibri" '字型
.Font.Size = 10 '字型大小
.Borders().LineStyle = xlNone '儲存格框線的線條樣式
.Borders().Weight = xlThin '儲存格框線粗細設定
End With


搜尋相關Tags的文章: [ VBA ] ,
本篇文章發表於2019-10-15 18:54
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.