- 帖子
- 79
- 主題
- 33
- 精華
- 0
- 積分
- 123
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- x64
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2013-10-24
- 最後登錄
- 2024-3-28
|
2#
發表於 2013-12-30 14:28
| 只看該作者
回復 1# eigen
請如，我該如何寫VBA程式？pseudo code 這個我就會
string id=""
cnt=1
start=2
for i= 2~2000
a="" exit for loop
if id==a{
cnt++
}else{
//抓到尾
if cnt <=12
set page=3inch
else if cnt < 26
set page=6inch
else if cnt < 40
set page=9inch
else if cnt < 54
set page=12inch
else if cnt < 68
set page=15inch
else if cnt < 82
set page=18inch
else
clear page 的內容為 ""
copy start ~start+cnt 的資料 to page
Print page
'重設變數
i+1
id=a
start =start+cnt+1
}
}'for loop |
|
