掃描槍條碼槍加excel

1、描槍只是一個輸入設(shè)備(相當(dāng)于另類的鍵盤)而已，只有輸入字符到Excel中的功能，不會有查找、定位、替換的判斷與操作功能。這種判斷與操作，只能由軟件提供，可以由輸入設(shè)備的輸入來觸發(fā)軟件去執(zhí)行?？梢杂肰BA寫一段代碼到Ecxel中，在你輸入內(nèi)容時，立即查找當(dāng)前表，找到有其他相同的，就清除之。因為樓主并沒有說明你是如何錄入的(比如：是固定在一個單元格中輸入，還是隨機(jī)在任意單元輸入)，我針對隨機(jī)單元格錄入的情況，寫了一段。功能如下：1)支持在一個工作表的任意單元格輸入數(shù)據(jù)；2)在錄入完成后，Excel自動檢查是否存在另一個單元格的內(nèi)容與所錄入內(nèi)容完全相同；3)如存在，則清除當(dāng)前單元格與所找到單元格的內(nèi)

2、容；4)光標(biāo)自動定位到所清除的兩單元格中行號小的那一個上，以便繼續(xù)錄入；5)如不存在，則什么都不做，就是正常錄入了一個單元格數(shù)據(jù)；在需要此功能的那個工作表標(biāo)簽上點右鍵，選擇查看代碼”打開宏編輯器，在右邊的空白處貼上如下代碼，就可以實現(xiàn)上述功能，全自動工作，無需手工執(zhí)行宏(也就是說，你只要用掃描槍連續(xù)掃描就OK了，仿佛是的掃描槍具有了樓主所述的功能一樣。)：PrivateSubWorksheet_Change(ByValTargetAsRange)DimmAsRange,strAsStringApplication.EnableEvents=Falsestr=Target.TextIfstr&l

3、t;>""ThenForEachmInRange(Range("A1"),ActiveCell.SpecialCells(xlLastCell)IfNot(m.Row()=Target.Row()Andm.Column()=Target.Column()Andm.Text=strThenm.ClearContentsTarget.ClearContentsIfm.Row()<Target.Row()Thenm.SelectElseTarget.SelectExitForEndIfNextmEndIfApplication.EnableEven

4、ts=TrueEndSub另，如果因為異常，導(dǎo)致宏不自動動作了，請關(guān)閉Excel(不是這個文件，而是整個Excel)并重新打開，就能恢復(fù)自動了。現(xiàn)在在一張空白EXCEL表格中，我想在A欄和D欄之間輸入數(shù)據(jù)，例如A是產(chǎn)品代碼，D是該產(chǎn)品的型號代碼，如何在掃完A后記錄下，光標(biāo)自動跳到D欄，下個掃的型號代碼就會自動輸入D欄，然后下面又會跳到A2繼續(xù)輸入產(chǎn)品代碼，掃完去D2輸入型號代碼。如此循環(huán)下去期待與上面的方法一樣，只是代碼換成這樣：PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Column()=1ThenCells(Target.R

5、ow(),4).SelectElseIfTarget.Column()=4ThenCells(Target.Row()+1,1).SelectEndIfEndSub掃描槍在EXCE法掃描條碼時錄入數(shù)據(jù)，然后由這些數(shù)據(jù)再生成個新數(shù)據(jù)，然后通過標(biāo)簽打印機(jī)自動打印掃描數(shù)據(jù)到數(shù)據(jù)自動錄入到當(dāng)前單元格應(yīng)該是掃描槍程序做的，后續(xù)vba宏可以實現(xiàn)你的功能。包括數(shù)據(jù)二次計算，調(diào)用打印，單元格重新定位等待下次掃描。如果輸入條碼的列在1列在sheet1下新建函數(shù)如下:PrivateSubWorksheet_Change(ByValTargetAsRange)If(Target.Column=1)ThenSheet1.Cells(Target.Row,2)=Target+100Sheetl.PrintOutSheet1.Cells(Target