[حل شده] تیره دار کردن کد ملی در vba

[amir0914]

سلام دوستان خسته نباشین. قبلا برای تیره دار کردن کد ملی و کدپستی از دوستان زحمت کشیدن فرمول رو در انجمن گذاشتن. حالا میخوام همین فرمول رو تو ویژوال بیسیک اکسل اجرا کنم. دوستان اگه زحمت بکشن کد vba رو بزارن ممنون میشم.

کد ملی :

CONCATENATE(LEFT(A1;3);"-";MID(A1;4;6);"-";RIGHT(A1;1))) 

کدپستی :

CONCATENATE(LEFT(C1;5);"-";RIGHT(C1;5))) 

[shamsololama]

با درود فراوان

m = Range("A1").Value

m = Left(m, 3) & "-" & Mid(m, 4, 6) & "-" & Mid(m, 10, 1)

Range("A1").Value = m 

[amir0914]

ممنون، فقط این فرمول فقط برای سلول a1 هست من کلی کد ملی دارم چطوری میشه این فرمول رو برای کل سلول های ستون a اعمال کرد؟؟

[iranweld]

با سلام

از ماکرو ذیل استفاده کنید

کد ملی میتواند بصورت هشت رقمی و نه رقمی (کدهای ملی که ابتدای آنها صفر است) و ده رقمی باشد

Sub TEST()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

For I = 1 To Z1

If IsNumeric(Range("A" & I)) And Len(Range("A" & I)) = 10 Then

Range("A" & I).NumberFormat = "@"

Range("A" & I) = Left(Range("A" & I), 3) & "-" & Mid(Range("A" & I), 4, 6) & "-" & Right(Range("A" & I), 1)

ElseIf IsNumeric(Range("A" & I)) And Len(Range("A" & I)) = 9 Then

Range("A" & I).NumberFormat = "@"

Range("A" & I) = "0" & Left(Range("A" & I), 2) & "-" & Mid(Range("A" & I), 3, 6) & "-" & Right(Range("A" & I), 1)


ElseIf IsNumeric(Range("A" & I)) And Len(Range("A" & I)) = 8 Then

Range("A" & I).NumberFormat = "@"

Range("A" & I) = "00" & Left(Range("A" & I), 1) & "-" & Mid(Range("A" & I), 2, 6) & "-" & Right(Range("A" & I), 1)

End If

Next I

End Sub