返回列表 上一主題 發帖

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

joviwang

帖子
35 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
xp 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-9-14 
最後登錄
2016-12-29 
1# 跳轉到 »
發表於 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

joviwang

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

joviwang

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

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題