- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
回復 7# 013160
試試看：
1. 選取 7:22 列 → 複制 → 選取 23列→ 插入複制的儲存格
2. 重覆上述步驟數次
(如每日最多需五頁, 則重覆五次, 以下以五頁為例)
3. 新增 SpinButton1(屬性設定：Max→5; Min→1)
4. 加入下列VBA- Private Sub SpinButton1_Change()
- Dim r1, P As Integer
- P = --SpinButton1
- r1 = 16 * P - 9
- Rows("7:86").RowHeight = 0
- Rows(r1 & ":" & r1 + 15).RowHeight = 22.5
- End Sub
 |
|
發表於 2014-6-3 13:49
| 