[VBA ] 請教Set Rng 的語法

看板Visual_Basic作者 (網球王子)時間14年前 (2011/05/05 22:32), 編輯推噓2(206)
留言8則, 2人參與, 最新討論串1/1
Dim Rng As Range, T As Date T = Time With Sheets("Sheet2") 第一句同左 Set Rng = .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1) Rng.Resize(, 2) = T 第二句同左 Rng.Offset(1).Resize(3, 2) = Sheets("Sheet1").Range("C1").Resize(3, 2).Value Rng.Resize(, 2).EntireColumn.AutoFit 想請教一下第一、二句語法在表達什麼 請知道的人回答,拜託了,謝謝^^ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.115.177.222

05/06 00:45, , 1F
這是考試題目,還是書本的範例,為什麼有人這樣子寫XD
05/06 00:45, 1F

05/06 01:00, , 2F
感覺是考驗對方懂不懂 rng的一些活用法(?)
05/06 01:00, 2F

05/06 01:02, , 3F
第一句,說白點,就是第二列有值的最後一個,選右邊那個
05/06 01:02, 3F

05/06 01:07, , 4F
第二句是以這一格 向下一格後 resize成2x3, 並將c1:d3的
05/06 01:07, 4F

05/06 01:10, , 5F
值,填入至resize後的rng中
05/06 01:10, 5F

05/06 08:45, , 6F
表達哩,原來電腦語言可以當國文唸啊
05/06 08:45, 6F

05/06 08:46, , 7F
錄下來的macro才有這麼迂迴的
05/06 08:46, 7F

05/06 21:00, , 8F
錄的不會有Set Rng 這種XD
05/06 21:00, 8F
文章代碼(AID): #1DmhJ-bM (Visual_Basic)