質問投稿でgooポイントが当たるキャンペーン実施中!!>>

数字が1桁の時に0を付けたいのですが、うまくできないです。

Sub aaa()
Dim i As Long

For i = 2 To 7

If Len(Cells(i, 1) = 1) Then
Cells(i, 2) = "0" & Cells(i, 1)
Else
End If
Next i

End Sub

このコードですと、 10は、010になります。

どこわ悪いのか、お手数ですが、ご教示お願いします。

A 回答 (2件)

If Len(Cells(i, 1) = 1) Then



If Len(Cells(i, 1)) = 1 Then
に変えれば良いのではないでしょうか?
    • good
    • 0
この回答へのお礼

回答ありがとうございました。できました。

お礼日時:2019/09/04 20:23

書式設定使いましょう。



format関数
format(数値,”00”)
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング