掃描槍條碼槍加excel

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

2、容；4)光標(biāo)自動(dòng)定位到所清除的兩單元格中行號(hào)小的那一個(gè)上，以便繼續(xù)錄入；5)如不存在，則什么都不做，就是正常錄入了一個(gè)單元格數(shù)據(jù)；在需要此功能的那個(gè)工作表標(biāo)簽上點(diǎn)右鍵，選擇查看代碼”打開(kāi)宏編輯器，在右邊的空白處貼上如下代碼，就可以實(shí)現(xiàn)上述功能，全自動(dòng)工作，無(wú)需手工執(zhí)行宏(也就是說(shuō)，你只要用掃描槍連續(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另，如果因?yàn)楫惓?，?dǎo)致宏不自動(dòng)動(dòng)作了，請(qǐng)關(guān)閉Excel(不是這個(gè)文件，而是整個(gè)Excel)并重新打開(kāi)，就能恢復(fù)自動(dòng)了?，F(xiàn)在在一張空白EXCEL表格中，我想在A欄和D欄之間輸入數(shù)據(jù)，例如A是產(chǎn)品代碼，D是該產(chǎn)品的型號(hào)代碼，如何在掃完A后記錄下，光標(biāo)自動(dòng)跳到D欄，下個(gè)掃的型號(hào)代碼就會(huì)自動(dòng)輸入D欄，然后下面又會(huì)跳到A2繼續(xù)輸入產(chǎn)品代碼，掃完去D2輸入型號(hào)代碼。如此循環(huán)下去期待與上面的方法一樣，只是代碼換成這樣：PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Column()=1ThenCells(Target.R

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