返回列表 上一主題 發帖

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

[發問] 想利用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交會那格顯示出掃瞄時間

感謝各位高手!

回復 1# kkman123


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

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

TOP

回復 2# die78325


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

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

TOP

回復 3# kkman123

請先把EXCEL照我圖這樣打
   
text.jpg
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內新增一個圖案 (隨便)
點選圖案右鍵 →指定巨集   → 選擇『 逼 』確定  

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

原本想幫妳做逼一下就直接執行  但 我試一直出現錯誤 請其他大大幫你解決這一部分
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

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

TOP

錯誤

error.jpg
2012-11-28 15:55
回復 5# Hsieh


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

TOP

error

error-2.jpg
2012-11-28 16:12
回復 6# kkman123


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

TOP

回復 7# kkman123


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

改為

Set 學號 = Range(.Cells, .Cells.End(xlDown)).Find([A1])
抱歉 原先因為想讓它變紅色讓你知道A1是可以更動的 結果沒想到把網頁的設置也用進去了
請修改後再測試!
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

回復 7# kkman123


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

  一樣打開 貼入以下程式   即可達成 逼一下就自動帶入程式  在逼一次就在執行新的學號
  1. Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address = "$A$1" Then Call 逼
  3. End Sub
複製代碼
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

本帖最後由 kkman123 於 2012-11-28 18:18 編輯

e2

e1-2.jpg
2012-11-28 18:16
e1-1.jpg
2012-11-28 18:14
回復 9# die78325

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

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題