返回列表 上一主題 發帖

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

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-22 06:53 | 只看該作者

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

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

帖子
39 
主題
4 
精華
0 
積分
48 
點名
0  
作業系統
windows 7 
軟體版本
sp1 
閱讀權限
10 
性別
男 
註冊時間
2013-2-2 
最後登錄
2014-8-26 
2#
發表於 2014-7-7 13:23 | 只看該作者
回復 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
人生只有三天，只有活在今天最踏實

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題