[分享] with 的用法心得分享

t8899

with 的用法心得分享
Sub Ma3333()
With Workbooks("111.xls").Sheets("Sheet2")     '不可以.Sheet2 (無此語法)
.Range("a8").Value = 1  '最前面的點不可拿掉 ,拿掉會變成在active sheet
End With
End Sub
--------
Sub Ma3333()
With Workbooks("111.xls")
.Sheets("Sheet2").Range("a8").Value = 1   '最前面的點不可少掉  不可以用.sheet2.range("a8").Value = 1 (無此語法)
End With
End Sub

barrykuo

回復 1# t8899
謝謝t8899大大分享原來點點  .   是這樣用途，不能不加上去。拿掉會變成在active sheet。
昨天也寫with，為了range與cell併用來選擇範圍做清楚，剛好碰到.Range(....)這樣的敘述，有發現需要加一個 . 在range前面只是不知道為什麼？真是謝謝分享！
With Worksheets(1)
.Range(.Cells(2, 3), .Cells(6, 4)).ClearContents '利用range與cells並用選擇範圍清除
End With