XA1.1 | rovná sa | XA01.01 | |
XA1.10 | rovná sa | XA01.10 | |
XA2.3.1 | rovná sa | XA02.03.01 |
Sub PridajNulu() ' Dim xRng As Range, uu, x, a, i, c As Range uu = "XA" 'prefix, ktory treba oddelit Set xRng = Selection For Each c In xRng x = c.Value x = Mid(x, Len(uu) + 1) a = Split(x, ".") For i = LBound(a) To UBound(a) If Len(a(i)) = 1 Then a(i) = "0" & a(i) End If Next i c.Value = uu & Join(a, ".") Next c End Sub
A4.1 | A04.01 |
A8.1.1.1 | A08.01.01.01 |
XC1.3.01 | XC01.03.01 |
Sub PridajNulu() ' Dim xRng As Range, uu, x, a, i, c As Range, j, u Set xRng = Selection For Each c In xRng x = c.Value uu = "" 'prefix, ktory treba oddelit For j = 1 To Len(x) u = Mid(x, j, 1) If (IsNumeric(u)) Or (u = ".") Then Exit For Else uu = uu & u End If Next j x = Mid(x, Len(uu) + 1) a = Split(x, ".") For i = LBound(a) To UBound(a) If Len(a(i)) = 1 Then a(i) = "0" & a(i) End If Next i c.Value = uu & Join(a, ".") Next c End Sub
Makro - doplniť v reťazci pred bodkou a za bodkou dva číselné znaky