chi830

帖子: 106
主題: 27
精華: 0
積分: 169
點名: 9
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-1-15

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-3-3 14:39 | 顯示全部帖子

自動填入未做列印標記的序號

請教各位先進~

在某一設計好的資料頁面，想要讓excel自動從「序號」頁中，帶入目前尚未用過的序號值，有什麼方法嗎?

附上檔案說明~~謝謝大家~~

成品出門證+序號.zip (18.23 KB)

樓主熱帖

chi830

中學生 Rank: 2

帖子: 106
主題: 27
精華: 0
積分: 169
點名: 9
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-1-15

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

2^#

發表於 2015-3-4 13:07 | 顯示全部帖子

太棒了~感lpk187先進的回復，有收獲 ~讚
改用Button的方式實作，ok~

但現在想做更進化的功能(不採用button)
1、user真的列印後，自動回寫序號頁B欄的V，這裡的程式碼應如何修改?
2、同時列印完，'統計頁'要另存成檔名為'統計頁'B2的excel，例如No.20150007.xls
統計頁這裡是樞鈕所跑出來的結果值，另存檔後，所求是要原篩選的內容值

以上~再請先進們賜教~

TOP

chi830

中學生 Rank: 2

帖子: 106
主題: 27
精華: 0
積分: 169
點名: 9
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-1-15

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

3^#

發表於 2015-3-10 16:02 | 顯示全部帖子

依lpk187所提供的程式碼，稍作event的修改，現已大致完成所期望的功能

但不曉得是否能讓另存的新檔存為.jpg or pdf檔呢? 自已試著改結果是不行的~呵
此目的，是不希望User能自行開啟檔案修正~

以上~謝謝

TOP

chi830

中學生 Rank: 2

帖子: 106
主題: 27
精華: 0
積分: 169
點名: 9
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-1-15

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

4^#

發表於 2015-3-11 13:03 | 顯示全部帖子

本帖最後由 chi830 於 2015-3-11 13:06 編輯

回復 6# lpk187

成品出門證+序號.zip (31.8 KB)

轉PDF失敗，會出現「文件未儲存。文件可能已開啟，或在儲存過程中發生錯誤」

另外請教因「統計」所篩選之結果有長，有短
若用 Worksheets("統計").Select
Range("A1:L10").Select
Selection.Copy
就只會複製到A1:L10區間資料，能否將所有結果都COPY到呢?

TOP

chi830

中學生 Rank: 2

帖子: 106
主題: 27
精華: 0
積分: 169
點名: 9
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-1-15

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

5^#

發表於 2015-3-11 14:20 | 顯示全部帖子

回復 8# lpk187

仍是無法存PDF檔呢~ 一樣的錯誤訊息

TOP

chi830

中學生 Rank: 2

帖子: 106
主題: 27
精華: 0
積分: 169
點名: 9
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-1-15

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

6^#

發表於 2015-3-11 15:12 | 顯示全部帖子

試試看
第二個問題如下
Worksheets("統計").Select
Range("A110").Select
Selection.Copy
'上面的式 ...
lpk187 發表於 2015-3-11 13:46

試了一下，沒有篩選內容出現~
後來把xlUp改為xlDown就可以了
Range("A1:L" & Cells(Rows.Count, "L").End(xlDown).Row).Copy

謝謝lpk187先進的提點~
現在就差轉存PDF的問題了.....

TOP

chi830

中學生 Rank: 2

帖子: 106
主題: 27
精華: 0
積分: 169
點名: 9
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-1-15

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

7^#

發表於 2015-3-11 15:39 | 顯示全部帖子

再請教存檔的路徑可以是網芳中的任一台電腦
Patha = "\\BUS\SCAN\出門證\" '存檔路徑這樣是可以成功的

但若有帳號/密碼時，要怎麻在語法中先將資訊輸入呢??

TOP

chi830

中學生 Rank: 2

帖子: 106
主題: 27
精華: 0
積分: 169
點名: 9
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-1-15

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

8^#

發表於 2015-3-12 21:31 | 顯示全部帖子

回復 13# lpk187

我終於知道我錯在哪裡了，因為之前轉存*.xlsb時，是在預覽列印的時候就會生成檔案，同時也是被BeforePrint這個event給蒙蔽了，
所以我一直以為預覽後就應該產生新檔，又因為在測試，所以一直沒真的按列印，才會一直不產生PDF
現在OK了~~~真是感謝lpk大大嘍....^__^

接下來，網路磁碟機的帳/密，要請其他先進幫幫忙嘍......感謝~~~

TOP

chi830