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

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

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

回復 1# baa168

改用Worksheet_Calculate事件試試看

學海無涯_不恥下問

TOP

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事件就可得到響應了。

TOP

baa168

中學生 Rank: 2

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

TOP

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

TOP

fyo00241

中學生 Rank: 2

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

6^#

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

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

TOP

baa168

中學生 Rank: 2

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

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

8^#

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

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

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

TOP

baa168

中學生 Rank: 2

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

9^#

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

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

TOP