创建新列并将编号更改为条形码

Question

我正在工作的东西，我需要Excel创建一个新的列，并在新的列，从前一列的信息和改变数字，所以周围有星号，并改变字体。

我有一个条形码39字体，当有星号周围的数字工作。我是新的编码在VBA(编码一般)，这就是我到目前为止:

Private Sub CommandButton1_Click()
Sheets("Material Data").Range("D2").Select
ActiveCell.EntireColumn.Insert shift:=xlDown
For a = 2 To 16
Worksheets("Material Data").Cells(a, 4).Value = Worksheets("Material Data").Cells(a, 3).Value
Next
End Sub

这将在现有列旁边创建一个新列，并显示现有的数字。我不知道如何让新数字周围有星号，并改变字体/大小。

这就是电子表格的样子。我基本上需要把物料号变成条形码。

I know ="(星号)"&[MATERIAL]&"(星号)"添加数字周围的星号。[实际上不能放*，否则会在stackoverflow上斜体]

任何帮助将非常感激!

Answer 1

像这样:

Private Sub CommandButton1_Click()

Dim ws As Worksheet, a As Long

Set ws = ThisWorkbook.Sheets("Material Data") 'use a worksheet variable
ws.Range("D1").EntireColumn.Insert
ws.Range("D1").Value = "Material Barcode"
For a = 2 To 16
With ws.Cells(a, 4)
.Value = "*" & .Offset(0, -1).Value & "*"
.Font.Name = "Arial" 'for example
.Font.Size = 14
End With
Next
End Sub