پرسش نحوه ذخیره و نمایش شماره کارت بانکی

[master]

سلام
با توجه به اینکه شماره کارت 16 رقمی هست راهی وجود داره که بعد از ورود عدد اخر 0 نشه؟
چیزی که من سرچ کردم یه راه این هست که فرمت سلول تبدیل به text بشه و بعد شماره کارت وارد بشه که تقریبا مشکل رو حل میکنه اما من میخوام نحوه نمایش به این صورت بشه
####-####-####-####
وقتی توی حالت عادی عدد رو وارد کنم و بعد برم فرمت بالا رو استفاده کنم نمایش درست میشه اما مشکل رقم اخر که 0 میشه هستش
توی حالت text هم که عدد رو وارد کنم مشکل رقم اخر وجود نداره ولی دیگه نمیشه از فرمت بالا استفاده کرد و همه رقم ها رو پشت سر هم نمایش میده

من چون میخوام شماره کارت رو کپی کنم همیشه باید به شکل یه عدد 16 رقمی باشه ولی میخوام نمایش به اون صورت بالا باشه

راه حلی وجود داره؟

ضمنا همین مشکل رو با شناسه شبا هم دارم اون دیگه 24 رقم هست که وضع بدتر هست اونم میخوام به صورت یه عدد 4 رقمی ذخیره بشه (برا کپی نیاز دارم) ولی نمایش به صورت زیر باشه:
IR## #### #### #### #### #### ##

با تشکر

[مصطفی رجبی]

سلام
با توجه به اینکه شماره کارت 16 رقمی هست راهی وجود داره که بعد از ورود عدد اخر 0 نشه؟
چیزی که من سرچ کردم یه راه این هست که فرمت سلول تبدیل به text بشه و بعد شماره کارت وارد بشه که تقریبا مشکل رو حل میکنه اما من میخوام نحوه نمایش به این صورت بشه
####-####-####-####
وقتی توی حالت عادی عدد رو وارد کنم و بعد برم فرمت بالا رو استفاده کنم نمایش درست میشه اما مشکل رقم اخر که 0 میشه هستش
توی حالت text هم که عدد رو وارد کنم مشکل رقم اخر وجود نداره ولی دیگه نمیشه از فرمت بالا استفاده کرد و همه رقم ها رو پشت سر هم نمایش میده

من چون میخوام شماره کارت رو کپی کنم همیشه باید به شکل یه عدد 16 رقمی باشه ولی میخوام نمایش به اون صورت بالا باشه

راه حلی وجود داره؟

ضمنا همین مشکل رو با شناسه شبا هم دارم اون دیگه 24 رقم هست که وضع بدتر هست اونم میخوام به صورت یه عدد 4 رقمی ذخیره بشه (برا کپی نیاز دارم) ولی نمایش به صورت زیر باشه:
IR## #### #### #### #### #### ##

با تشکر

سلام . شما در پنجره FormatCells تب Number هر فرمتی رو می تونید تعریف کنید. برای نمونه فرمت شماره کارت و شماره شبا رو تعریف کردم . در فایل اکسل گذاشتم.

[sajjadahmady]

خوب این روش هم که آخر کارت را 0 میزاره

[iranweld]

با سلام

فایل پیوست را بررسی کنیدکدنویسی برای ستون A انجام شده است

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A1:A10000")) Is Nothing Then
    
    On Error Resume Next
    
Application.EnableEvents = False

Target.NumberFormat = "@"

For i = 1 To Len(Target) Step 4
 If Len(xx) < 4 Then
 xx = Mid(Target, i, 4)
 Else
 xx = xx & "-" & Mid(Target, i, 4)
 End If
 Next
 
Target = xx
 Application.EnableEvents = True
 
 End If

End Sub 

[mohammadreza12]

این فرمول ایراد دارد از رقم 15 به بعد 0 می زند!!!
در مورد تمامی فرمول های عددی حتی نامبر بالای 15 رقم هم همین مشکل را دارد

[iranweld]

چرا بنده تست میکنم مشکل نداره؟

[مهندس تبریزی]

با سلام و خسته نباشید
ببخشید مثل اینکه ماکروتون ایراد داره وقتی برای بار دوم ویرایش میشه به جای یک خط تیره دو خط تیره میزاره و بار سوم سه تا.
نمونه اش کافی تنها یک رقم عدد قبلی را عوض کنید.مانند 1111-2222-3333-4444 که بشه 1111-2222-3333-4445
باید چک بشه اگه کاراکتر پنجم و دهم و پانزدهم خط تیره است دوباره خط تیره نزاره
سپاسگزارم

[iranweld]

با سلام

کد اصلاح شد.

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A1:A10000")) Is Nothing Then
    
    On Error Resume Next
    
Application.EnableEvents = False

Target.NumberFormat = "@"

For i = 1 To Len(Target)

If Mid(Target, i, 1) <> "-" Then
kk = kk & Mid(Target, i, 1)
End If

Next

Target = kk



For i = 1 To Len(Target) Step 4

 If Len(xx) < 4 Then
 
 xx = Mid(Target, i, 4)
 
 Else
 
 xx = xx & "-" & Mid(Target, i, 4)
 
 End If
 Next
 
Target = xx
 Application.EnableEvents = True
 
 End If

End Sub 

[مهندس تبریزی]

سلام و وقت بخیر استاد
خیلی عالی شد دستتون درد نکنه.

با عرض معذرت چطور میشه این شرط را اضافه کرد که بیشتر از 16 رقم وارد نشه ؟؟؟
سپاسگزارم

[iranweld]

در فایل ذیل در صورت ورود بیشتر از 16 کارکتر کل سلول پاک میگردد

If Len(kk) <= 16 Then

Target = kk

Else

Target = ""

End If 

[مهندس تبریزی]

سپاسگزارم استاد