die78325

回復 20# kkman123


發現您的問題了
你在VBA裡面  Thisworkbook內的程式要改為
b1  改為 d1  因為你日期欄位變動了

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

複製代碼

D1日期欄位不用打入公式  就把上面改好就好!
還有 F欄你設公式  不會每秒更動 除非一直重新計算   ((F欄其實是多餘的))  
因為我VBA友幫你設定打入目前時間
改完記得把你的D3改為11/29 不然你表內沒有11/29的 會錯誤 所以 如果日期不改  明天使用即可正常!

kkman123

回復 21# die78325

感謝die78325！
的確f1是多餘的。
當檔案再開啟時，果真日期會帶入今天的日期。
我現在把檔案設定在開始-程式集-啟動中，只要一開機就可以自動開啟excel檔案，然後直接拿條碼機就可以將資料讀入了！好方便啊！
再次感謝die78325的幫忙！
不好意思，還有一個問題請教：excel如何能夠每次開啟檔案時游標都會在A1呢？
我目前試過是存檔前把游標移到A1再存檔，下次打開時游標就會在A1。

感恩！

die78325

回復 22# kkman123

這邊是開啟就會自動指定A1
Private Sub Workbook_Open()
[d1] = Format(Date, "yyyy/mm/dd")
[A1].Select
End Sub

下面這些是多了 逼完之後自動回到A1 所以可以一直 逼 逼 逼

Option Explicit
Sub 逼()
    Dim 日期 As Range, 學號 As Range
    With [A3] '設定哪行開始    '請照圖來做EXCEL
        Set 日期 = Range(.Cells, .Cells.End(xlToRight)).Find([d1], LookAT:=xlWhole)
        Set 學號 = Range(.Cells, .Cells.End(xlDown)).Find([A1])   '紅色處為逼之後產生的位置  預設為A1
        Cells(學號.Row, 日期.Column) = Time
    End With
[A1].Select
End Sub
以上紅色都是要新增進去的   
其實H大大寫的程式 有一個重要的部分   如果你如果不在A1的地方逼 就會說位置錯誤 幫你回歸到A1
但如果你現在用的很OK 先暫時先這樣用八   如果你有特別需求 在幫你改@@"

kkman123

回復 23# die78325

To die78325，H大大：
測試過了！一切都很順利！
以學校來說是非常夠用的了！
感恩，感恩，在感恩啊！

kkman123

今天學到了一個：
在module1裡面加上
Workbooks(1).Save
這樣每輸入一個"逼"就會自動存檔一次喔！

kkman123

die78325，您好：
非常感謝您先前的幫忙！
不好意思，最近使用後發現條碼機有時會讀錯資料，導致程式一直出現除錯，有些老師會不知到怎麼解決。
週末研究了之前Hsie大大的程式，功力不足不太清楚該放在哪裡。。
可以請您提示：若想要增加辨識資料，讀錯後顯示『請重新再刷一次』，該怎麼做呢？
再次感恩！

234353

我也需要类似i这样的登记系统，就是帮学生造一个条码卡  然后像超市购物时候 把卡移到条码读取器， 电脑就自动记录下读取的条码，然后记录下时间 和对应得学生资料存储起来

for253

回復 26# kkman123


    這篇文章很實用，但無奈是對ＥＣＸＥＬ不熟，找到這裡來，權限不足ＸＤ。。