أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





طلب كود توزيع وتعديل الرقم القومي

السلام عليكم لكل مدرسة رقم قومي خاص بطلابها لايمكن تكراره لطلاب مدرسة أخرى فكيف يتم توزيع هذه الأرقام على الطلبة ولكل م ..


موضوع مغلق


09-12-2021 08:35 صباحا
وليد 99999
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2021
رقم العضوية : 22562
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1999
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 32
 offline 

السلام عليكم 
لكل مدرسة رقم قومي خاص بطلابها لايمكن تكراره لطلاب مدرسة أخرى فكيف يتم توزيع هذه الأرقام على الطلبة ولكل مدرسه من دون ان تتكرر هذه الأرقام في مدرسة أخرى. بعيدا عن التوزيع بواسطة سحب المقبض لانه في بعض الاحيان يتغير الرقم القومي لطالب من الطلبة دون غيره فهل يمكن التعديل على هذا الرقم بواسطة نافذة او اختيار اوكتابة الاسم ليتم تعديله دون غيره من الارقام بعد توزيعها .
 
 
  ملف العمل.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(20.345) KB



أفضل إجابة مقدمة من ابراهيم الحداد وهي:
السلام عليكم ورحمة الله
استخدم هذا الكود
Sub S_Numers()
Dim ws As Worksheet
Dim LR As Long, i As Long
Set ws = Sheets("ورقة١")
LR = ws.Range("B" & Rows.Count).End(3).Row - 1
i = 4
Do Until Cells(i, 4) = Empty
If i > LR Then Exit Sub
x = Cells(i, 4)
y = Cells(i, 4).Offset(1, 0)
If Len(y) > 0 Then
x = y
Else
Cells(i, 4).Offset(1, 0) = Cells(i, 4) + 1
End If
i = i + 1
Loop
End Sub
عرض الإجابة




09-12-2021 10:55 صباحا
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 237
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 34
قوة السمعة : 2349
عدد الإجابات: 31
 offline 
look/images/icons/i1.gif طلب كود توزيع وتعديل الرقم القومي
السلام عليكم ورحمة الله
استخدم هذا الكود
Sub S_Numers()
Dim ws As Worksheet
Dim LR As Long, i As Long
Set ws = Sheets("ورقة١")
LR = ws.Range("B" & Rows.Count).End(3).Row - 1
i = 4
Do Until Cells(i, 4) = Empty
If i > LR Then Exit Sub
x = Cells(i, 4)
y = Cells(i, 4).Offset(1, 0)
If Len(y) > 0 Then
x = y
Else
Cells(i, 4).Offset(1, 0) = Cells(i, 4) + 1
End If
i = i + 1
Loop
End Sub

09-12-2021 02:25 مساء
مشاهدة مشاركة منفردة [2]
وليد 99999
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2021
رقم العضوية : 22562
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1999
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 32
 offline 
look/images/icons/i1.gif طلب كود توزيع وتعديل الرقم القومي
وعــليـــكــم  الـــسلام  ورحـمــة  الله  وبـركاتـــه.
بالضبط هذا هو المطلوب جزاك الله خيرا جعلها الله في ميزان حسناتك 



الكلمات الدلالية
توزيع ، وتعديل ، الرقم ، القومي ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:41 صباحا