作者jackyboss (阳光男孩)
看板Visual_Basic
标题[VBA ] 有关使用AutoFill物件
时间Mon Jun 22 00:08:15 2009
刚开始自修VBA
想试可以经由自己设定的变数
去执行AutoFill 的范围
就是A1写日期 B1是星期
然後AutoFill可以根据我的变数
拉到我想要的资料长度
但是无法成功
目前抓不大到找问题的方向
想请问我code里error应该怎麽改比较好
Sub DataGen()
Dim Num As Integer
Num = 100
ActiveCell.FormulaR1C1 = "1/1/2010"
Range("B1").Select
ActiveCell.FormulaR1C1 = "星期五"
Range("A1:B1").Select
Range("B1").Activate
'Error所在,本来想用Num取代100 因为有Error 把Num改回100
Selection.AutoFill Destination:=Range(Cells(100, 1), Cells(100, 2)),_
^^^ ^^^
Type:=xlFillDefault
End Sub
感激呀~~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.110.81.48
1F：→ MOONRAKER:他有什麽错误讯息 06/22 00:09
2F：→ jackyboss:class range 的AutoFill方法失败 06/22 00:14
3F：→ MOONRAKER:autofill我看是非常难用 不如直接用VBA填dateserial() 06/22 10:19