作者prince1224 (网球王子)
看板Visual_Basic
标题[VBA ] 请教Set Rng 的语法
时间Thu May 5 22:32:28 2011
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
1F：→ sueadolph:这是考试题目，还是书本的范例，为什麽有人这样子写XD 05/06 00:45
2F：→ sueadolph:感觉是考验对方懂不懂 rng的一些活用法(?) 05/06 01:00
3F：→ sueadolph:第一句，说白点，就是第二列有值的最後一个，选右边那个 05/06 01:02
4F：推 sueadolph:第二句是以这一格 向下一格後 resize成2x3, 并将c1:d3的 05/06 01:07
5F：→ sueadolph:值，填入至resize後的rng中 05/06 01:10
6F：→ MOONRAKER:表达哩，原来电脑语言可以当国文念啊 05/06 08:45
7F：→ MOONRAKER:录下来的macro才有这麽迂回的 05/06 08:46
8F：推 sueadolph:录的不会有Set Rng 这种XD 05/06 21:00