VBA 程式碼修改 - Ans.fyi 參考答案

VBA 程式碼修改

2008-01-04 8:22 pm

當我在excel使用barcode槍輸入資料,例如輸入在a1,當輸入完barcode後excel會自動跳到a2,如此類推
以下的vba程式碼是當在col a輸入偵測到重複的barcode時,例如a11輸入的barcode在a1-10已經有了,下一次輸入barcode時會重新輸入在a11.
可以參考http://hk.knowledge.yahoo.com/question/?qid=7007121901553
但我現在想當有重複的barcode輸入時,excel會自動輸入在重複的值上,例如a11輸入的barcode在a2已經有時,會再次輸入在a2,但當再輸入一個新barcode時,會跳到空的a11輸入.請問要怎麼才能做到這效果?

回答 (1)

何人說

2008-01-04 8:49 pm

✔ 最佳答案

在 A2 重覆輸入一次有什麼用呢 ? 除非你有別的程式碼去檢查同一個 cell 你輸入了多少次重覆的東西, 不過在你的情況這不大可能吧.
我估你大概是想知道究竟重覆了什麼條碼, 又或者是重覆的時候要給你點額外的提示吧 ?
這樣的話如果用本來的 Macro, 你只要加
Private Sub Worksheet_Change(ByV al Target As Range)

If Target.Row > 1 And Target.Column = 1 Then
a = Target.Value
Set b = Range("A1:A " & Target.Row - 1).find(What:=a)
If Not b Is Nothing Then
Msgbox "Repeated Barcode ( " & a & " ) !!!"
Target.Activate
End If
End If

End Sub

👍 0 👎 0