一些常用的 vba

 如題，稍做整理

 

Sub resetSheetFormat()

' 重置/清除表單的「設定格式化條件」

    Cells.FormatConditions.Delete

End Sub

Sub resetFilter()

' 重置/清除表單的篩選條件，以顯示所有的資料

' 篩選功能還開著

    ActiveSheet.ShowAllData

End Sub

Sub saveFile()

' 使用日期命名檔案

' 另存新檔為 xlsx (沒有巨集的檔案)

    ' 今天的日期

    today = Format(Now, "YYYYMMDD")

    ThisWorkbook.Sheets.Copy

    ' 關閉詢問視窗

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:="d:\somewhere\" & today & ".xlsx", FileFormat:=51

    ActiveWorkbook.Close

End Sub

Sub autoFitAll()    

' 調整所有欄位

' 自動符合內容寬度、高度

    Cells.Select

    Cells.EntireColumn.AutoFit

    Cells.EntireRow.AutoFit

End Sub

Sub trunFilterOnActive()

' 確認是否有開篩選，沒開的話才打開

  If Not ActiveSheet.AutoFilterMode Then

    ActiveSheet.Range("3:3").AutoFilter

  End If

End Sub

Sub turnFilterOffActive()

' 如果有開篩選的話就把它關掉

  ActiveSheet.AutoFilterMode = False

End Sub

Sub clearAll()

' 刪除工作表內所有欄位的內容

    ActiveSheet.Cells.clear

End Sub