返回列表 上一主題 發帖

條碼輸入問題

baa168

帖子
119 
主題
14 
精華
0 
積分
138 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-6 
最後登錄
2019-5-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-18 19:06 | 顯示全部帖子

條碼輸入問題

請教各位先進:
     baa使用barcode reader將條碼資料掃至excel D欄內，資料是掃進去也顯示在C欄了..但是
        卻無法在B欄顯示今天日期，C欄顯示輸入時間，
        使用鍵盤KEYIN方式則可以達成需求....
     不知是否為欄位格式設定有誤亦或是其它問題，還請各位先進協助...

程式碼如下:
Private Sub worksheet_change(ByVal Target As Range)
       On Error GoTo errhander
    If Target.Column <> 4 Then Exit Sub
    If Target.Offset(, 1) <> "" Then
       Target.Offset(, -1) = Time
       Target.Offset(, -2) = Date
       End If
       Exit Sub
errhander:
   End Sub
收藏 分享

baa168

帖子
119 
主題
14 
精華
0 
積分
138 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-6 
最後登錄
2019-5-4 
2#
發表於 2011-10-23 08:16 | 顯示全部帖子
無法使用Worksheet_Calculate
不知是否為使用方法錯誤

Private Sub Worksheet_Calculate(ByVal Target As Range)

On Error GoTo errhander
    If Target.Column <> 4 Then Exit Sub
    If Target.Offset(, 1) <> "" Then
       Target.Offset(, -1) = Time
       Target.Offset(, -2) = Date
       End If
       Exit Sub
errhander:

End Sub

TOP

baa168

帖子
119 
主題
14 
精華
0 
積分
138 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-6 
最後登錄
2019-5-4 
3#
發表於 2011-11-6 11:57 | 顯示全部帖子
Baa 最後是使用
Private Sub worksheet_change(ByVal Target As Range)
    On Error GoTo errhander
    If Target.Column <> 4 Then Exit Sub
    If Target.Offset(, 0) <> "" Then
       Target.Offset(, -1) = Time
       Target.Offset(, -2) = Date
       End If
       Exit Sub
errhander:
End Sub
其實也不知道為什麼突然可以了說....

TOP

baa168

帖子
119 
主題
14 
精華
0 
積分
138 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-6 
最後登錄
2019-5-4 
4#
發表於 2011-11-7 13:13 | 顯示全部帖子
對內...真是高手來的....感謝解答

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題