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

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

21^# 跳轉到 »

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

本帖最後由 die78325 於 2012-11-29 11:36 編輯

回復 20# kkman123

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

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

複製代碼

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

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

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

22^#

發表於 2012-11-29 12:41 | 只看該作者

回復 21# die78325

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

感恩！

die78325

　暱稱: 新鮮貨幽杉

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

23^#

發表於 2012-11-29 12:49 | 只看該作者

回復 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 先暫時先這樣用八如果你有特別需求在幫你改@@"

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

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

24^#

發表於 2012-11-29 12:54 | 只看該作者

回復 23# die78325

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

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

25^#

發表於 2012-12-9 11:54 | 只看該作者

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

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

26^#

發表於 2012-12-17 10:25 | 只看該作者

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