作者SUPERVA (三年又三年)
看板Visual_Basic
標題[VBA ] excel排列輸出問題
時間Fri May 7 20:27:13 2010
各位大大,大家好
我在vba程式上,有個問題想請問大家一下
http://blog.xuite.net/crdotlin/excel/12147170
在上面的網頁,可以將1~8進行組合
但是9之後,就會超過excel的儲存格
請問有人可以幫我嗎?
我希望修改成
如果資料在sheet1滿了之後
自動存到sheet2
而sheet2 滿了之後 會在自動存到sheet3 以此類推
不知道可不可以麻煩板上的高手 幫忙一下
拜託各位大大了
感謝大家耐心閱讀 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.254.221.154
1F:推 unfinish:最簡單的方法就是直接去判斷是不是到最末行了 05/10 12:49
2F:→ unfinish: If PT.Row = 65536 Then 05/10 12:53
3F:→ unfinish: Worksheets.Add 05/10 12:53
4F:→ unfinish: Set PT = Range("A1") 05/10 12:53
5F:→ unfinish: Else 05/10 12:53
6F:→ unfinish: Set PT = PT.Offset(1, 0) '下移一行 05/10 12:53
7F:→ unfinish: End If 05/10 12:54