اريد اسهل طريقة لتوزيع الرقم القومى فى ال 14 خانة

[hitech]

السلام عليكم

اريد اسهل طريقة لتوزيع الرقم القومى فى ال 14 خانة

الرقم القومى.xlsx

[Ali Mohamed Ali]

وعليكم السلام-كان عليك إستخدام خاصية البحث بالمنتدى قبل رفع مشاركتك -تفضل

طريقة توزيع رقم من خلية واحدة الى مجموعة خلايا

وهذا كود أخر يمكنك أيضاً إستخدامه

Sub SplitStuff()
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In InputRng
    xValue = Rng.Value
    xRow = Rng.Row
    For i = 1 To VBA.Len(xValue)
        OutRng.Cells(xRow, i).Value = VBA.Mid(xValue, i, 1)
    Next
Next
Application.ScreenUpdating = True
End Sub

أو يمكنك أيضاً استخدام هذه المعادلة اذا كان الرقم القومى مثلاً موجود بالخلية A1

=MID($A1,COLUMNS($A$1:A$1),1)

 

[Ali Mohamed Ali]

ان قمت بالتدقيق فى الرابط الذى رفعته لك لوجدت طلبك به وهذه هى المعادلة المطلوبة

=IFERROR(MID($A3,LEN($A3)-(COLUMNS($B2:B2)-1),1),0)+0

فصل الرقم القومى1.xlsm

[hitech]

شكرا جزيلا استاذنا الفاضل جزاك الله كل خير