ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

VBA Àx¦s®æ ·|§â0«d±¼

VBA Àx¦s®æ ·|§â0«d±¼

¤µ¤Ñ ­n§â¸ê®Æ¾ã²z
¸ê®Æ®w¤W­±¤£7¦ì¼Æ ·|¦Û°Ê¸É0
§Ú§â¼Æ¦rªº§ï¦¨7¦ì¼Æ

¥i¬O·í§Ú¥ÎVBA cells ¿ï¾Ü³o¸ê®Æ®É
¥X¨ÓªºªF¦è 0¤S¤£¨£¤F

ÁÙ¦³¥ÎEXCEL  = a1 & b1 & c1
¦³¼Æ¦rªº¬Ob1
¥L¤]·|¦Û°Ê§â0®ø°£
¤£ª¾¹D¦³¤°»ò¦n¤èªk ¥i¥H³B²zªº©O

·PÁÂ

Sub Macro3()
Dim b As String
For i = 2 To 204
b = 0
a = 7 - Len(Cells(i, 1))
If a > 0 Then
For k = 1 To a - 1
b = b & "0"
Next
Cells(i, 10) = "LTRIM(publn_nr) = '" & b & Cells(i, 1) & "' or "

End If

Next
End Sub


¼g¥X¨Ó¤F ¤À¨É¤@¤U

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD