die78325

回復 10# kkman123


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

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

下載 (49.49 KB)

2012-11-28 18:36

kkman123

回復 11# die78325

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

die78325

回復 12# kkman123


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

kkman123

回復 13# die78325


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

Hsieh

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

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

複製代碼

下載 (487.88 KB)

2012-11-28 21:08

打卡.rar (8.55 KB)

下載次數: 6

2012-11-28 21:09

die78325

回復 15# Hsieh


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

Hsieh

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

kkman123

回復 17# Hsieh

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

Hsieh

回復 18# kkman123


    可以上傳檔案以便了解錯誤出在哪裡

kkman123

參考檔案.rar (21.63 KB)

參考
下載次數: 8

2012-11-29 11:12

回復 19# Hsieh

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

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

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

感恩！再感恩！