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

kkman123

請教各位高手，我想利用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交會那格顯示出掃瞄時間

感謝各位高手！

die78325

回復 1# kkman123


    那也要看你的掃描功能有沒有辦法跟EXCEL連動八= ="
例如 "逼" 一下    工作頁的A1會產生編號 這樣的話 才有辦法設計哦@@"

也可能是我太淺了  請其他大大加以回覆......

kkman123

回復 2# die78325


您好，有試過，嗶一聲後excel有顯示學生的資料！

不好意思，我在花蓮的小學校服務，學校老師早上一到學校就會在圖書館陪小朋友閱讀30分鐘，
因為圖書館有條碼機，所以想利用條碼機配合excel自己設計一個記錄小朋友閱讀時間的檔案，
也讓老師們能節省時間，因為對excel不熟悉，才google到這裡詢問大家的。
感恩！

die78325

回復 3# kkman123

請先把EXCEL照我圖這樣打
   

下載 (39.85 KB)

2012-11-28 14:33

第一步---- 使用鍵盤 ALT + F11 打開VBA編輯  在左邊找ThisWorkbook 點兩下打開右側視窗並貼上以下

1. Private Sub Workbook_Open()
   
2. [b2] = Format(Date, "yyyy/mm/dd")
   
3. End Sub

複製代碼

第二步---- 在ThisWorkbooks那一排點選右鍵 → 插入 → 模組
並把以下貼進去

1. Option Explicit
   
2. Sub 逼()
   
3.     Dim 日期 As Range, 學號 As Range
   
4.     With [A3] '設定哪行開始    '請照圖來做EXCEL
   
5.         Set 日期 = Range(.Cells, .Cells.End(xlToRight)).Find([b1], LookAT:=xlWhole)
   
6.         Set 學號 = Range(.Cells, .Cells.End(xlDown)).Find([[color=Red]A1[/color]])   '紅色處為逼之後產生的位置  預設為A1
   
7.         Cells(學號.Row, 日期.Column) = Time
   
8.     End With
   
9. End Sub

複製代碼

第三步----
在EXCEL內新增一個圖案 (隨便)
點選圖案右鍵 →指定巨集   → 選擇『 逼 』確定  

以後就逼完就按圖案   應該就快多了 至少不用找日期找學號在打入時間

原本想幫妳做逼一下就直接執行  但 我試一直出現錯誤 請其他大大幫你解決這一部分

Hsieh

回復 3# kkman123
據了解條碼機讀入的資料是顯示在作用中的儲存格內
以此邏輯則必須將讀取條碼時直接點選該儲存格後再刷條碼
所以，就將檔案開啟時指定某一特定儲存格作為讀取使用(任何學號均讀入該儲存格)
然後利用工作表Change事件程序觸動，把該儲存格資料寫入對應位置

kkman123

下載 (24.88 KB)
錯誤

2012-11-28 15:55

回復 5# Hsieh


    看到回應好感動啊！網路真的太厲害了！ 感謝 die78325 和 Hsieh ！
    不好意思，我試了十幾次，可是一直顯示這個錯誤，又請同事幫我把圖片檔案複製下來（請看圖片）   
    不知道是哪裡出錯了。
     再次感謝！

kkman123

下載 (15.9 KB)
error

2012-11-28 16:12

回復 6# kkman123


    不好意思，是事先出現還有"型態不符合"的這個視窗的。
    感恩！

die78325

回復 7# kkman123


Set 學號 = Range(.Cells, .Cells.End(xlDown)).Find([A1])

改為

Set 學號 = Range(.Cells, .Cells.End(xlDown)).Find([A1])
抱歉　原先因為想讓它變紅色讓你知道Ａ１是可以更動的　結果沒想到把網頁的設置也用進去了
請修改後再測試！

die78325

回復 7# kkman123


    發現為什麼我不能使用觸發了= =因為要再要觸發的工作頁裡設定
   看你的表是做在哪個工作表  一樣打開VBA設置  這次不要打開THISWORKBOOK 這次點選你檔案的地方 例如 : 工作表1

  一樣打開 貼入以下程式   即可達成 逼一下就自動帶入程式  在逼一次就在執行新的學號

1. Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$A$1" Then Call 逼
   
3. End Sub

複製代碼

kkman123

下載 (48.35 KB)
e2

2012-11-28 18:16

下載 (23.09 KB)

2012-11-28 18:14

回復 9# die78325

die78325 ，您好：好感謝您這麼熱心地幫忙！
不好意思，能力不足，又要請教您了！
剛剛發生了問題如（圖一）和（圖二）。
試了好幾次，黃黃的還是一直出現。
不好意思，又要麻煩您了！
感恩！