作者MOONRAKER (㊣八点了！全体集合！)
看板Visual_Basic
标题Re: [VBA ] 有关使用AutoFill物件
时间Mon Jun 22 10:24:32 2009
autofill真是ㄅ暴难用的 不如直接用VB填入dateserial()
Sub hijk()
k = 20
Set R1 = Range(Cells(1, 1), Cells(k, 1))
Set R2 = Range(Cells(1, 2), Cells(k, 2))
For Each c In R1
c.Value = DateSerial(2006, 6, c.Row)
Next
For Each c In R2
c.Value = DateSerial(2006, 6, c.Row)
Next
R2.NumberFormatLocal = "DDD"
End Sub
--
Google 关键字 : MPFC-TCP / 杀人笑话 / 包租婆也有过当罗莉的时候
Youtube关键字 : 脱衫脱裤 / 傻蛋奥运 / 宗教审讯 / 买张床 / 单车超人 / 讴歌金钱
*美发师登山队 http://tinyurl.com/dm6lh3 *Ypres 1914 http://tinyurl.com/b432jb
[蒙帝派松正体中文计画] https://www.youtube.com/user/JamesBondXD
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.120.168.228