帖子: 8
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2010-9-29
最後登錄: 2010-11-5

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-10-9 15:14 | 只看該作者

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

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

Simon

simon.chenpro

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2010-9-29
最後登錄: 2010-11-5

13^#

發表於 2010-10-21 18:05 | 只看該作者

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

Simon

TOP

joviwang

中學生 Rank: 2

帖子: 35
主題: 3
精華: 0
積分: 74
點名: 0
作業系統: xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-9-14
最後登錄: 2016-12-29

12^#

發表於 2010-10-18 23:49 | 只看該作者

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

simon.chenpro

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2010-9-29
最後登錄: 2010-11-5

11^#

發表於 2010-10-18 22:59 | 只看該作者

回復 10# joviwang

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

Simon

TOP

joviwang

中學生 Rank: 2

帖子: 35
主題: 3
精華: 0
積分: 74
點名: 0
作業系統: xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-9-14
最後登錄: 2016-12-29

10^#

發表於 2010-10-15 08:50 | 只看該作者

我是小學生，會的東西不多，只能土法煉鋼。
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

simon.chenpro

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2010-9-29
最後登錄: 2010-11-5

9^#

發表於 2010-10-13 12:36 | 只看該作者

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

Simon

TOP

joviwang

中學生 Rank: 2

帖子: 35
主題: 3
精華: 0
積分: 74
點名: 0
作業系統: xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-9-14
最後登錄: 2016-12-29

8^#

發表於 2010-10-11 14:07 | 只看該作者

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

PD961A