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

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

1^# 跳轉到 »

發表於 2012-11-28 09:14 | 顯示全部帖子

回復 1# kkman123

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

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

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

2^#

發表於 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

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

3^#

發表於 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

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

4^#

發表於 2012-11-28 17:30 | 顯示全部帖子

回復 7# kkman123

發現為什麼我不能使用觸發了= =因為要再要觸發的工作頁裡設定
看你的表是做在哪個工作表一樣打開VBA設置這次不要打開THISWORKBOOK 這次點選你檔案的地方例如 : 工作表1

一樣打開貼入以下程式即可達成逼一下就自動帶入程式在逼一次就在執行新的學號

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Call 逼
End Sub

複製代碼

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

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

5^#

發表於 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

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

6^#

發表於 2012-11-28 20:54 | 顯示全部帖子

回復 12# kkman123

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

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

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

7^#

發表於 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

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

8^#

發表於 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

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

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

9^#

發表於 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

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]