帖子: 3
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: Office 2003
軟體版本: WINDOWS XP
閱讀權限: 10
性別: 男
註冊時間: 2011-1-20
最後登錄: 2011-1-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-1-21 09:20 | 只看該作者

[發問] EXCEL列印時,是否可印出流水號?

因公司需求要設計一份表單，當中有一個欄位是流水號（流水號編碼：S1101001)
S不管、11代表西元年、01代表月份、001就是流水號
表格內容都是印出後自行填寫，但印出時會帶出流水號
如果我想要直接在列印的地方選擇列印份數，流水號就會自動到幾號，而下次列印時，又會自動接著下去
程式要怎麼寫?急急急!!! :funk:

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-1-21 09:27 | 只看該作者

回復 1# vita

這跟你工作流程會有關聯
假如一天只印一次
那起始號不會有問題
若一天分多批列印那要把上次結束碼記在工作表內
以利下次列印取得起始碼

學海無涯_不恥下問

TOP

vita

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: Office 2003
軟體版本: WINDOWS XP
閱讀權限: 10
性別: 男
註冊時間: 2011-1-20
最後登錄: 2011-1-21

3^#

發表於 2011-1-21 09:47 | 只看該作者

因為我一次要先印出好幾份，可能是整個月的數量
而且這表格，不是只有一個人在使用，所以為了怕避免有表單號碼重覆，所以才想問是否有公式或程式可以使用

謝謝

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-1-21 09:56 | 只看該作者

回復 3# vita
假設B1為流水編號位置
每天自動歸零從1開始編碼

Private Sub CommandButton1_Click()
k = InputBox("列印份數")
If Left([B1], 6) <> Format(Date, "yymmdd") Then [B1] = Format(Date, "yymmdd") & "000"
x = Val(Right([B1], 3))
For i = 1 To k
[B1] = Format(Date, "yymmdd") & Format(x + i, "000")
Sheet1.PrintPreview
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

vita

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: Office 2003
軟體版本: WINDOWS XP
閱讀權限: 10
性別: 男
註冊時間: 2011-1-20
最後登錄: 2011-1-21

5^#

發表於 2011-1-21 10:17 | 只看該作者

不好意思，因為我還不會用VBA，所以是不是只要把你的程式COPY進去，就好了嗎?
還是我還要做什麼其他的動作?

謝謝!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-1-21 14:49 | 只看該作者

回復 5# vita
看圖操作

學海無涯_不恥下問

TOP

howard822

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 14
點名: 0
作業系統: win7
軟體版本: OFFICE 2003 & 2010
閱讀權限: 10
性別: 男
來自: 越南
註冊時間: 2012-3-22
最後登錄: 2013-1-21

7^#

發表於 2012-3-23 00:18 | 只看該作者

本帖最後由 howard822 於 2012-3-23 00:22 編輯

不好意思～我是EXCEL新手..沒有程式概念..
透過搜尋知道貴站～想請教指導我一下～
我的需求是每天都有三聯單報表要出貨，
ㄧ張報表ㄧ個SHEET..ㄧ張報表列印ㄧ次～可是流水號要繼續累積～

那我把該程式碼改成後：

Private Sub CommandButton1_Click()
If Left([I1], 6) <> Format(Date, "yymmdd") Then [I1] = Format(Date, "yymmdd") & "000"
x = Val(Right([I1], 3))
[I1] = Format(Date, "yymmdd") & "-" & Format(x + 1, "000")
Sheet1.PrintPreview
End Sub

在原始SHEET可以正常表現，沒問題。
-----------------------------------------------------------------
可是我將SHEET複製(Ctrl+左鍵拖曳)之後~
功能無法正常使用了～
請問我應該要怎麼做？

合抱之木，生於毫木；九層之臺，起於累土；千里之行，始於足下

TOP

howard822

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 14
點名: 0
作業系統: win7
軟體版本: OFFICE 2003 & 2010
閱讀權限: 10
性別: 男
來自: 越南
註冊時間: 2012-3-22
最後登錄: 2013-1-21

8^#

發表於 2012-3-27 00:25 | 只看該作者

請問版主可以指導小第一下嗎？

合抱之木，生於毫木；九層之臺，起於累土；千里之行，始於足下

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

9^#

發表於 2012-3-27 22:34 | 只看該作者

回復 8# howard822
不知道這是不是你要的,試試看

1.加入一張空白的工作表,工作表名稱為"計數"

2.sheet1工作表模組

Private Sub CommandButton1_Click()
With Sheets("計數")
If Left(.[I1], 6) <> Format(Date, "yymmdd") Then
For Each Sh In Sheets
Sh.[I1] = ""
Next
.[I1] = Format(Date, "yymmdd") & "-000"
End If
x = Val(Right(.[I1], 3))
If ActiveSheet.[I1] = "" Then
.[I1] = Format(Date, "yymmdd") & "-" & Format(x + 1, "000")
ActiveSheet.[I1] = .[I1]
End If
ActiveSheet.PrintPreview
End With
End Sub

複製代碼

3.其他工作表都用sheet1去複製(ctrl+左鍵)

4.操作看看

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2012-3-27 23:02 | 只看該作者

回復 8# howard822

在原始SHEET可以正常表現，沒問題。
這句話意思應該表示程式碼是正確了
但是，你說複製後就不行
我猜是Sheet1.PrintPreview的問題
Me.PrintPreview就會隨著工作表模組變動列印工作表了
不知道你的問題是否如此

學海無涯_不恥下問

TOP

[發問] EXCEL列印時,是否可印出流水號?

[發問] EXCEL列印時,是否可印出流水號?

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]