国产成人AV一区二区三区在线_国产成人精品无码免费看_国产成人无码无卡在线观看_国产精品成人A区在线观看_国产日韩精品欧美一区_国产亚洲精品自在久久蜜TV_久草热久草热线频97精品_久久久噜噜噜久久中文福利_久久婷婷五月综合色国产免费观看_日日狠狠久久偷偷色综合0,九一桃色在线观看,久久97精品久久久久久久不卡,国产成人精品亚洲精品

怎么做身份證條形碼

訪客2024-11-29 13:42:591

在實(shí)際工作中,,有時(shí)需要將身份證號(hào),,制作成條形碼格式,以方便掃描使用,下面就和大家分享這方面的經(jīng)驗(yàn),。

工具/原料電腦一臺(tái)office辦公軟件方法/步驟1首先在網(wǎng)絡(luò)上下載一種條形碼字體,,然后將條形碼字體安裝于電腦中,。

怎么做身份證條形碼

2安裝成功后,,我們會(huì)在excel表格的字體中找到條形碼字體!

怎么做身份證條形碼

3在工作表中,,點(diǎn)擊菜單欄【開發(fā)工具】,,在其工具欄內(nèi),點(diǎn)擊【visual basic】!

怎么做身份證條形碼

4會(huì)進(jìn)入VBA編輯界面,!點(diǎn)擊菜單欄【插入】,,在其下拉菜單中,選擇【模塊】,!

怎么做身份證條形碼

5會(huì)彈出模塊編輯窗口,!

怎么做身份證條形碼

6在代碼編輯窗口輸入以下代碼:Sub 條形碼()If [c1].Font.Name = "C39HrP24DhTt" ThenExit SubElseColumns(3).Insert[c1].ColumnWidth = 31Set Rng = Range("b1", Cells(Rows.Count, 2).End(xlUp))For Each rn In RngCells(rn.Row, 3) = "*" & rn.Value & "*"With Cells(rn.Row, 3).Font.Name = "C39HrP24DhTt".Size = 28 End WithNextEnd IfEnd Sub

怎么做身份證條形碼

7在excel的【開發(fā)工具】菜單下,點(diǎn)擊【插入】按鈕,,插入一表單,并命名為【條形碼】,。

怎么做身份證條形碼

8將【條形碼】表單與編寫的代碼程序相關(guān)聯(lián),。

怎么做身份證條形碼

9點(diǎn)擊【條形碼】,會(huì)很快制作出身份證的條形碼格式,。怎么做身份證條形碼

文章評(píng)論