小弟想請教站上的各位Excel高手跟先進
假設我在Excel裡的資料是 1 of 60
小弟希望在列印時，第一張是1 of 60
第二張變成是 2 of 60，第三張變成 3 of 60
以此類推，當印到60張時，數字會變成 60 of 60。
不知道Excel裡是否可以做這樣子的設定
還煩請各位知道的高手跟先進們
不吝告知小弟一下
非常感謝
Sub test()
Dim P As Variant, i As Integer
P = InputBox("Page?", "Print", "1")
If (P = "") Or (Not IsNumeric(P)) Or (P < 1) Then
MsgBox "input error", vbOKOnly, "Report"
Exit Sub
Else
For i = 1 To P
Sheets("工作表1").Range("A1").Value = i & " of " & P
Sheets("工作表1").PrintOut
Next
End If
End Sub
內文搜尋
從 APP 打開
X