close

Excel VBA是自修而來的，目的是來解決工作上的應用需求，也不算什麼專家，單純地想到什麼就尋求解決方法而己。所以持續增加中.... 

 

ActiveWorkbook.Name '取得工作中檔案檔名  
Filename = ActiveWorkbook.Name

Worksheets.Count '活頁簿工作表總數 
A= Worksheets.Count

找到空白列寫法
A = Range(Sheets("table").Columns("b").Find("").Address).Row

日期格式的寫法（指定要的格式寫法）

today = Format(Date, "YYYYMMDD")
today1 = Format(Date, "ee/MM/DD")
TodayA = Format(Date, "ee/MM/DD")
week = Weekday(Date, vbMonday)

 


arrow
arrow
    全站熱搜

    羅傑小沙 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄