Question

我试图引入像＆＃34; 0001＆＃34;到了一个带有vba的单元格，但我设置的只有1而没有000

这是我的代码

    Dim iRow As Long
    Dim ws As Worksheet: Set ws = Worksheets(BD_PRODXSIST)

    With ws    
        .Range("A" & iRow).Value = "0001"            
   End With

    Set ws = Nothing

Answer 1

要以文本形式插入，请使用撇号。

.Range("A" & iRow).Value = "'0001"

或者您也可以在输入数字后更改格式：

.Range("A" & iRow).Value = "1"
.Range("B" & iRow).NumberFormat = "0000"

在左边的vba中设置一个0的单元格值

1 个答案: