左側VBA設置單元格值0

Question

我試着像「0001」的值介紹使用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"