想利用excel及圖書館哪種條碼機紀錄學生到學校時間 - Excelㄧ般區

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

18^#

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

回復 17# Hsieh

不好意思，請教：
研究了一晚，有將格式更正成我要的模式，也可以正常運作耶！
但是想要自己嘗試載入日期，有上網找到是用 =today() 的功能。
但是b1設定=today()後，卻一直發現錯誤。
感恩！感恩！

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

17^#

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

本帖最後由 Hsieh 於 2012-11-28 21:59 編輯

回復 16# die78325
利用工作表函數MATCH找出對應的欄列位置
CDbl(Date)是因為工作表內的日期還是被認為數値所以轉成數値後才能正確找到日期位置

學海無涯_不恥下問

die78325

　暱稱: 新鮮貨幽杉

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

16^#

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

回復 15# Hsieh

果然高手就是高手 ~"~
我還要打兩三段
大大只要打一段就可以達到目的了......
也感謝大大讓我又多學了一課
r = Application.Match(CDbl(Date), Columns("A"), 0)
k = Application.Match(Target, Rows(1), 0)
這兩行不是很懂大大可以解釋給我聽嗎@@?

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

15^#

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

回復 10# kkman123
假設刷條碼的資料會寫入IV1
就利用IV1產生變化時在對應位置寫入時間
在該工作表模組程式碼

Private Sub Worksheet_Change(ByVal Target As Range)
t = Time
Application.EnableEvents = False
If Target.Address <> "$IV$1" Then _
MsgBox "刷卡位置錯誤；請重新刷卡": Target.ClearContents: [IV1].Select: _
Application.EnableEvents = True: Exit Sub
r = Application.Match(CDbl(Date), Columns("A"), 0)
k = Application.Match(Target, Rows(1), 0)
Cells(r, k) = t
Application.EnableEvents = True
End Sub

複製代碼

打卡.rar (8.55 KB)

學海無涯_不恥下問

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

14^#

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

回復 13# die78325

die78325 ，您好：
觸發也能正確使用！
感恩啊，想了好久的事情沒想到在這個網站有好心的您幫忙！
明天會告訴主任，下個月就可以開始使用！
老師們也不用準備那麼多簽到簿寫來寫去，有更多時間陪讀了！
再次感恩！

die78325

　暱稱: 新鮮貨幽杉

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

13^#

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

回復 12# kkman123

B1 我有幫你設定程式了每次打開會自動打入今天的日期所以你只要今天上完課就關掉
明天一早來打開就可以直接使用感應器來逼了只要你下面的表格先打好以後的日期就可以了 ^^
我也才剛學一兩個禮拜.....希望學更多資訊可以幫助更多有需要的人^^ 也要請其他大大多教教我了

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

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

12^#

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

回復 11# die78325

die78325 ，您好：
我試出來了！原來我以為B1是嗶一下之後會自動出現的，原來B1是要由我設好來辨別日期的！
感恩啊！！:)
現在繼續測試觸發功能！！
謝謝您！！
感恩！！

die78325

　暱稱: 新鮮貨幽杉

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

11^#

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

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

回復 10# kkman123

   你現在是直接觸發A1才錯誤
還是點選按鈕會錯誤  請重複我剛回答的部分再檢查一次
EXCEL都要照我的做  等你了解整個程式碼後再自行修改位置我現在測試都正常哦 !

[A3]開始打學號  [B3]  11/27  [C3]  11/28
觸發的程式要打在你目前有資料的那個工作頁看你下面是工作頁1還是工作頁2  在ALT +F11 那邊要選擇你的工作頁貼入觸發條件
或者先把觸發刪除先用按鈕的可以之後再去測試觸發的 !
B3 C3 D3 E3 F3這些日期欄位都要設定成

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

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

10^#

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

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

回復 9# die78325

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