條碼輸入問題

帖子: 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

樓主熱帖

帖子: 119
主題: 14
精華: 0
積分: 138
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-6
最後登錄: 2019-5-4

9^#

發表於 2011-11-7 13:13 | 只看該作者

對內...真是高手來的....感謝解答

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 1
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

8^#

發表於 2011-11-6 21:29 | 只看該作者

本帖最後由 luhpro 於 2011-11-6 21:30 編輯

回復 7# baa168
這篇程式內容與首篇比較後發現只差一行字 :
If Target.Offset(, 1) <> "" Then
變成
If Target.Offset(, 0) <> "" Then
我是否可以理解成問題癥結在於你首篇中程式的觸發條件差了一個儲存格的位移,
導致於沒能正確的被觸發...

帖子: 119
主題: 14
精華: 0
積分: 138
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-6
最後登錄: 2019-5-4

7^#

發表於 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
其實也不知道為什麼突然可以了說....

fyo00241

帖子: 19
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: windows7
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2011-10-10
最後登錄: 2023-12-14

6^#

發表於 2011-10-28 22:53 | 只看該作者

感謝各位先進分享..學習中...

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2011-10-23 08:58 | 只看該作者

ByVal Target As Range~刪掉
底下的Target都換成activecell

帖子: 119
主題: 14
精華: 0
積分: 138
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-6
最後登錄: 2019-5-4

4^#

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-10-18 19:59 | 只看該作者

輸入條碼因沒有enter的動作，worksheet_change事件無法響應。
找個偏僻的儲存格輸入公式:=counta(a:e)
這樣只有a:e的儲存格內容有增減都會觸發Worksheet_Calculate事件。
用Worksheet_Calculate事件就可得到響應了。