Deepseek又升级了，让Excel批量生成条码，用它3分钟就够了！

摘要：下面就是我询问的提示词，关键点需要指出使用ActiveX控件来生成条码，然后给出自己希望的步骤与结果。如果你的电脑中的对应的条码控件的话，这段代码是无法使用就，可以通过调用API的方式来编写VBA代码生成了

Deepseek在5月28号的时候对R1模型做了小幅度的升级，主要是增强了逻辑推理能力，能生成更加准确的代码，知识库更新到了24年6月

我迫不及待的是可以一下，生成条码的vba代码竟然一次就可以使用，之前不管怎么问都不行，不得不感叹，现在AI真的太强大，代码直接分享给大家！

下面就是我询问的提示词，关键点需要指出使用ActiveX控件来生成条码，然后给出自己希望的步骤与结果。如果你的电脑中的对应的条码控件的话，这段代码是无法使用就，可以通过调用API的方式来编写VBA代码生成了

这个代码的作用是运行代码后会显示一个提示框，输入1生成二维码，输入2生成条形码，设置对应的条码后。选择对应的区域，然后点击确定即可在旁边生成条码

Sub GenerateBarcodeAdvancedDim rng As RangeDim cell As RangeDim barcodeType As IntegerDim shp As ObjectDim leftPos As Double, topPos As DoubleDim barcodeWidth As Double, barcodeHeight As Double' 第一步：选择条码类型On Error Resume NextbarcodeType = Application.InputBox("请选择条码类型：" & vbCrLf & _"输入 1 生成二维码" & vbCrLf & _"输入 2 生成条形码", _"条码类型选择", Type:=1)On Error GoTo 0' 检查用户输入If barcodeType 2 ThenMsgBox "操作已取消", vbInformationExit SubEnd If' 第二步：选择数据区域On Error Resume NextSet rng = Application.InputBox("请选择包含条码数据的单元格区域", "选择区域", Selection.Address, Type:=8)On Error GoTo 0If rng Is Nothing Then Exit Sub' 设置条码尺寸（根据类型自动调整）If barcodeType = 1 Then ' 二维码barcodeWidth = 40 ' 正方形宽度barcodeHeight = 40 ' 正方形高度Else ' 条形码barcodeWidth = 60 ' 长条形宽度barcodeHeight = 20 ' 条形码高度End If' 清除目标区域可能存在的旧条码（右侧列）rng.Offset(0, rng.Columns.count).Resize(rng.Rows.count, 1).ClearContentsFor Each shp In ActiveSheet.ShapesIf Not Intersect(shp.TopLeftCell, rng.Offset(0, rng.Columns.count)) Is Nothing Thenshp.DeleteEnd IfNext shp' 生成条码Application.ScreenUpdating = FalseFor Each cell In rng' 计算条码位置（右侧列）leftPos = cell.Offset(0, rng.Columns.count).Left + 2 ' 添加2px边距topPos = cell.Top + 2' 创建条码控件Set shp = ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", _Left:=leftPos, Top:=topPos, _Width:=barcodeWidth, Height:=barcodeHeight)' 设置条码属性With shp.ObjectIf barcodeType = 1 Then ' 二维码.Style = 12 ' 二维码样式[1](@ref)Else ' 条形码.Style = 7 ' Code 128 条形码[1](@ref)End If.Value = cell.Value.BackColor = RGB(255, 255, 255) ' 白色背景.ForeColor = RGB(0, 0, 0) ' 黑色条码.LineWeight = 1End With' 调整行高以适应条码（高度+5px边距）If cell.RowHeight