→ MOONRAKER:他有什麼錯誤訊息 06/22 00:09
→ jackyboss:class range 的AutoFill方法失敗 06/22 00:14
→ MOONRAKER:autofill我看是非常難用 不如直接用VBA填dateserial() 06/22 10:19
剛開始自修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