Thêm n ký tự vào trước chuỗi

[hadoan-pap]

Em chào moi người.

Em muốn kiểm tra độ dài chuỗi trong ô, nếu nó nhỏ hơn 8 thì mình sẽ insert vào them "0" vào đầu chuỗi để đủ 8 thì thôi.

Ví dụ chuỗi: 00453 … sẽ thành 00000453

Code e như dưới chưa chạy đúng ạ.

Em không rõ nhầm chỗ nào ạ.

Dim number As Integer
Dim str1 As String
Dim number1 As Integer
str1 = Sheet1.Range("O3")

number = Len(Sheet1.Range("O3"))
'If number < 7 Then

number1 = 6
MsgBox number1
Sheet1.Range("O3") = Left("0", number1) & str1

'End If

Em xin cảm ơn!

 

[HieuCD]

Hiểu XD thì off nhiều lần, còn anh @HieuCD thì e chưa gặp lần nào.
@HieuCD : bank nào lại đòi nợ gát gao 1 chuyên gia gpe vậy anh?

Bank quen, cho vay với lãi suất cực kỳ ưu đãi, không trả đúng hạn hội sở biết là mệt cả đám

 

[hungtin1997]

Nếu chỉ để hiển thị, không tính toán thì...

Sub format()
Selection.NumberFormat = "00000000"
End Sub