返回列表 上一主題 發帖

[發問] 列印自動編流水號問題

[發問] 列印自動編流水號問題

不好意思,我又有問題
請教一下各位大大
在使用Excel列印時,可以依列印的份數做流水號嗎?
例如Excel只有一個頁面,我在列印設定時列印5份
  可以用什麼方式在5份相同資料上顯示1~5嗎?
以上,謝謝
Simon

cells(2,3)就是C2欄位
學到了,也解決了我的問題
謝謝joviwang大大
Simon

TOP

cells(1,2)就是B1
cells(2,3)你猜是哪一格?哈,隨堂考試。

轉貼個範例:來自於VBA的說明

此範例在 Sheet1 上的儲存格 A1:J4 中進行迴圈。如果其中有一個儲存格的值小於 0.001,本範例就將該值取代為 0 (零)。


For rwIndex = 1 to 4
    For colIndex = 1 to 10
        With Worksheets("Sheet1").Cells(rwIndex, colIndex)
            If .Value < .001 Then .Value = 0
        End With
    Next colIndex
Next rwIndex

ps. cells(4,10)就是J4儲存格。
joviwang

TOP

回復 10# joviwang


    謝謝 , 可以再問一下嗎?
    如果我想把設定的頁數寫在B1欄上的話要怎麼設定
Simon

TOP

我是小學生,會的東西不多,只能土法煉鋼。
Sub Macro1()
    For i = 1 To 5   '要印500次就設1 to 500
     Cells(1, 1).NumberFormatLocal = "@"  '用錄製學來的,設定A1為文字格式
     Cells(1, 1) = i & "/5"                             'A1內容為i/5,i是1時,就顯示1/5,i是2時,就顯示2/5

         ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  '用錄製學來的,設定列印動作      
    Next i
  End Sub
joviwang

TOP

joviwang大大
不好意思,因為我對VBA不懂
可以做詳細說明一下嗎?
台者是GIF最好了.....
謝謝
Simon

TOP

Sub Macro1()
    For i = 1 To 5
     Cells(1, 1).NumberFormatLocal = "@"
     Cells(1, 1) = i & "/5"
         ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Next i
  End Sub
joviwang

TOP

回復 6# simon.chenpro


    ^ ^...不好意思...
其實如果份數只有5份...那您就手工一下...A1儲存格1/5~5/5囉...然後設定列印範圍
若是500份就....加油囉....  ^ ^..
您的問題很清楚了..應該會有熱心的先進及版主幫您的......
學如逆水行舟 不進則退

TOP

不好意思,還是不對
你的方式是列印5頁的效果
我指的是列印5份的效果
Simon

TOP

回復 4# simon.chenpro


    直接設定頁首/頁尾??

2.gif


學如逆水行舟 不進則退

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題