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

　暱稱: 新鮮貨幽杉

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

2^#

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

回復 1# kkman123

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

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

kkman123

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

3^#

發表於 2012-11-28 11:37 | 只看該作者

回復 2# die78325

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

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

　暱稱: 新鮮貨幽杉

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

4^#

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

回復 3# kkman123

請先把EXCEL照我圖這樣打

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

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

複製代碼

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

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

複製代碼

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

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

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

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

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

學海無涯_不恥下問

kkman123

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

6^#

發表於 2012-11-28 15:56 | 只看該作者

回復 5# Hsieh

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

kkman123

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

7^#

發表於 2012-11-28 16:12 | 只看該作者

回復 6# kkman123

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

　暱稱: 新鮮貨幽杉

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

8^#

發表於 2012-11-28 17:10 | 只看該作者

回復 7# kkman123

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

改為

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

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