帖子: 22
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-27
最後登錄: 2013-1-15

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-11-27 22:40 | 只看該作者

[發問] 想利用excel及圖書館哪種條碼機紀錄學生到學校時間

本帖最後由 kkman123 於 2012-11-27 22:41 編輯

請教各位高手，我想利用excel及圖書館哪種條碼機紀錄學生到學校時間：

                                 11月27日 11月28日 11月29日 11月30日
96001 8:12
96002                      7:40
96003 7:32
96004                      7:55
96005                      8:01

1.利用條碼機掃瞄學生學號。
2.比如今天是11月27日，掃瞄到學生96001的條碼後，會在11月27日和96001交會那格顯示出掃瞄時間8:12
3.隔天11月28日，掃瞄時會在11月28日和96001交會那格顯示出掃瞄時間

感謝各位高手！

樓主熱帖

for253

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 9
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 10
註冊時間: 2016-5-5
最後登錄: 2021-3-12

28^#

發表於 2016-5-5 19:14 | 只看該作者

回復 26# kkman123

這篇文章很實用，但無奈是對ＥＣＸＥＬ不熟，找到這裡來，權限不足ＸＤ。。

TOP

234353

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: windows
軟體版本: 8.1
閱讀權限: 10
性別: 女
註冊時間: 2015-3-24
最後登錄: 2015-4-13

27^#

發表於 2015-3-25 14:50 | 只看該作者

我也需要类似i这样的登记系统，就是帮学生造一个条码卡然后像超市购物时候把卡移到条码读取器，电脑就自动记录下读取的条码，然后记录下时间和对应得学生资料存储起来

TOP

kkman123

中學生 Rank: 2

帖子: 22
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-27
最後登錄: 2013-1-15

26^#

發表於 2012-12-17 10:25 | 只看該作者

die78325，您好：
非常感謝您先前的幫忙！
不好意思，最近使用後發現條碼機有時會讀錯資料，導致程式一直出現除錯，有些老師會不知到怎麼解決。
週末研究了之前Hsie大大的程式，功力不足不太清楚該放在哪裡。。
可以請您提示：若想要增加辨識資料，讀錯後顯示『請重新再刷一次』，該怎麼做呢？
再次感恩！

TOP

kkman123

中學生 Rank: 2

帖子: 22
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-27
最後登錄: 2013-1-15

25^#

發表於 2012-12-9 11:54 | 只看該作者

今天學到了一個：
在module1裡面加上
Workbooks(1).Save
這樣每輸入一個"逼"就會自動存檔一次喔！

TOP

kkman123

中學生 Rank: 2

帖子: 22
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-27
最後登錄: 2013-1-15

24^#

發表於 2012-11-29 12:54 | 只看該作者

回復 23# die78325

To die78325，H大大：
測試過了！一切都很順利！
以學校來說是非常夠用的了！
感恩，感恩，在感恩啊！

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

23^#

發表於 2012-11-29 12:49 | 只看該作者

回復 22# kkman123

這邊是開啟就會自動指定A1
Private Sub Workbook_Open()
[d1] = Format(Date, "yyyy/mm/dd")
[A1].Select
End Sub

下面這些是多了逼完之後自動回到A1 所以可以一直逼逼逼

Option Explicit
Sub 逼()
Dim 日期 As Range, 學號 As Range
With [A3] '設定哪行開始 '請照圖來做EXCEL
      Set 日期 = Range(.Cells, .Cells.End(xlToRight)).Find([d1], LookAT:=xlWhole)
      Set 學號 = Range(.Cells, .Cells.End(xlDown)).Find([A1]) '紅色處為逼之後產生的位置  預設為A1
      Cells(學號.Row, 日期.Column) = Time
End With
[A1].Select
End Sub
以上紅色都是要新增進去的
其實H大大寫的程式有一個重要的部分如果你如果不在A1的地方逼就會說位置錯誤幫你回歸到A1
但如果你現在用的很OK 先暫時先這樣用八如果你有特別需求在幫你改@@"

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

kkman123

中學生 Rank: 2

帖子: 22
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-27
最後登錄: 2013-1-15

22^#

發表於 2012-11-29 12:41 | 只看該作者

回復 21# die78325

感謝die78325！
的確f1是多餘的。
當檔案再開啟時，果真日期會帶入今天的日期。
我現在把檔案設定在開始-程式集-啟動中，只要一開機就可以自動開啟excel檔案，然後直接拿條碼機就可以將資料讀入了！好方便啊！
再次感謝die78325的幫忙！
不好意思，還有一個問題請教：excel如何能夠每次開啟檔案時游標都會在A1呢？
我目前試過是存檔前把游標移到A1再存檔，下次打開時游標就會在A1。

感恩！

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

21^#

發表於 2012-11-29 11:33 | 只看該作者

本帖最後由 die78325 於 2012-11-29 11:36 編輯

回復 20# kkman123

發現您的問題了
你在VBA裡面 Thisworkbook內的程式要改為
b1 改為 d1 因為你日期欄位變動了

Private Sub Workbook_Open()
[d1] = Format(Date, "yyyy/mm/dd")
End Sub

複製代碼

D1日期欄位不用打入公式  就把上面改好就好!
還有 F欄你設公式  不會每秒更動除非一直重新計算 ((F欄其實是多餘的))
因為我VBA友幫你設定打入目前時間
改完記得把你的D3改為11/29 不然你表內沒有11/29的會錯誤所以如果日期不改  明天使用即可正常!

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

kkman123

中學生 Rank: 2

帖子: 22
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-27
最後登錄: 2013-1-15

20^#

發表於 2012-11-29 11:14 | 只看該作者

參考檔案.rar (21.63 KB) 回復 19# Hsieh

1.檔案一（手動日期）：D1的日期要手動輸入，A1用條碼機掃入96001後，可以顯示學生姓名(E1)時間(F1)，下面的時間會也會顯示時間（D4）

2.檔案二（想要一開檔案就自動會入日期，我把D1改成 =TDAY()）：D1的日期要手動輸入，A1用條碼機掃入96001後，可以顯示學生姓名(E1)時間(F1)，但是下面的時間會顯示錯誤（D4）訊息。

上傳檔案大家參考，檔案來源都是die78325的設計！都要感謝die78325的幫忙！:)
不好意思，因為還是小學生，所以不能下載檔案。

感恩！再感恩！

TOP