在做倉(cāng)儲(chǔ)管理的時(shí)候發(fā)覺(jué)了一個(gè)很奇葩的問(wèn)題，所有進(jìn)貨的瓷磚均沒(méi)有相關(guān)的條碼。這就意味著只能自己編碼、生成條碼然后粘貼。可找遍全網(wǎng)，雖然制作條碼的工具很多，但是可以按模板批量打印的基本沒(méi)有。因此，就想著用什么給他做一個(gè)條碼制作，批量打印的東西。考慮了好幾種開(kāi)發(fā)方案，最后還是覺(jué)得殺雞焉用牛刀，于是乎，果斷的上了EXCEL。給他搗鼓出了。以下是截圖：

1、輸入編碼自動(dòng)生成二維碼

?

2、生成批量打印模板

?

總結(jié)，最關(guān)鍵的還是這個(gè)生成批量打印模板這個(gè)過(guò)程，這里用到了循環(huán)輸出方式。大致代碼如下：

Sub make_plmt()
 On Error Resume Next
 Dim n As Integer
 Dim i As Integer
 Dim j As Integer
 Dim r As Integer
 Dim codewidth As Double
 Dim codeheight As Double
 codewdh = Sheet1.Shapes.Range(Array("BarCode")).Width
 codehet = Sheet1.Shapes.Range(Array("BarCode")).Height
 Application.ScreenUpdating = False
 
 '清空模板
 For Each ctrl In Sheet2.Shapes
 ctrl.Delete
 Next ctrl
 
 '復(fù)制生成的二維碼
 Sheet1.Shapes.Range(Array("BarCode")).Select
 Selection.Copy
 Sheet2.Select
 Sheet2.Range("A1").Select
 
 '批量粘貼96個(gè)二維碼到模板，這里可以換成動(dòng)態(tài)數(shù)
 For i = 1 To 96
 ActiveSheet.Paste
 Next i
 
 '設(shè)置首行二維碼位置，以便后面各列做對(duì)齊排列
 For j = 1 To 8
 Sheet2.Shapes.Range(Array("BarCodeCtrl" & j)).Select
 With Sheet2.Shapes("BarCodeCtrl" & j)
 .Top = 0
 .Left = (j - 1) * codewdh
 End With
 Next j
 
 '使用二層循環(huán)，設(shè)置第二行至尾行二維碼位置
 '外層循環(huán)，設(shè)置首列二維碼位置
 For k = 2 To 12
 n = 1 + 8 * (k - 1) 
 Sheet2.Shapes.Range(Array("BarCodeCtrl" & n)).Select
 With Sheet2.Shapes("BarCodeCtrl" & n)
 .Top = (k - 1) * codehet
 .Left = Sheet2.Shapes("BarCodeCtrl1").Left
 End With
 
 '內(nèi)層循環(huán)，逐行設(shè)置二維碼位置
 For r = n + 1 To n + 7
 With Sheet2.Shapes("BarCodeCtrl" & r)
 .Top = Sheet2.Shapes("BarCodeCtrl" & n).Top
 .Left = Sheet2.Shapes("BarCodeCtrl" & r - 1).Left + codewdh
 End With
 Next r
 Next k
 Sheet2.PageSetup.CenterHeader = Sheet1.Range("D3")
 Application.PrintCommunication = True 
 Application.ScreenUpdating = True
 If MsgBox("打印模板已生成！", vbOKOnly, "提示") = vbOK Then
 Sheet2.Activate
 End If 
End Sub

以下是具體的制作步驟：

1、插入Microsoft BarCode Control控件。需要特別說(shuō)明的是，不同版本的EXCEL該控件的版本可能會(huì)有不同。

?

?

2、調(diào)整控件單元格關(guān)聯(lián)屬性

?

?

3、調(diào)整控件對(duì)象屬性，選擇條碼相關(guān)參數(shù)。如條碼類(lèi)型、條碼數(shù)據(jù)修正參數(shù)、顯示參數(shù)等。一般情況下，日常使用Cord-39足夠應(yīng)付日常使用。如需二維碼，請(qǐng)選擇QR Code.

?

?

4、使用方式，在關(guān)聯(lián)單元格輸入條碼參數(shù)，即可自動(dòng)動(dòng)態(tài)生成對(duì)應(yīng)條碼。

?

5、如需設(shè)置控件格式，右鍵，選擇“設(shè)置控件格式”即可。

以上過(guò)程非常簡(jiǎn)單，前后就是幾分鐘的事。