ExcelVBA 之指定变量为对象

目的：通过设置对象变量来对区域A1:E10外围设置边框

Sub UseObjVariable()
             Dim myRange As Object
             Set myRange = Worksheets("Sheet1"). _
                          Range(Cells(1, 1), Cells(10, 5))
             myRange.BorderAround Weight:=xlMedium
             With myRange.Interior
                          .ColorIndex = 6
                          .Pattern = xlSolid
             End With
             Set myRange2 = Worksheets("Sheet1"). _
                           Range(Cells(12, 5), Cells(12, 10))
             myRange.Value = 54
             Debug.Print IsObject(myRange)
End Sub

 

Results: