• 判斷某文件夾是否存在某文件

Function fileFolderExists(strFullPath as String) as Boolean
    If Not Dir(strFullPath,vbDirectory)=vbNullString then
        fileFolderExists=true
    End If
End Function

• 設(shè)置圖形跟隨單元格移動

Sub SetShapeInfo()
    Dim shape        As shape
    For Each shape In Activesheet.Shapes
        shape.Placement=xlMoveAndSize
    next
End Function

• 印刷范圍的獲取與設(shè)置

Sub PrintAreaInfo()
    Dim printArea    As String
    printArea=ThisWorkbook.Range("Print_Area").Address
    ThisWorkbook.PageSetup.printArea=<Adsress>
End Sub

• 列號轉(zhuǎn)換為列名

    rangeName=replace(Cells(1,column).Address(0,0),"1","")

• 列名轉(zhuǎn)換為列號

    column=Range("A1:" & rangeName & "1").Cells.count