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

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


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





معرفة ارقام الخلايا الناقصة

السلام عليكم و رحمة الله و بركاته عندي يوزرفورم فيه كود الترحيل حيث في العمود A فيه ارقام متسلسلة اي من 1 الى 100 مثلا ا ..


موضوع مغلق


03-09-2021 07:02 مساء
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 

السلام عليكم و رحمة الله و بركاته
عندي يوزرفورم فيه كود الترحيل حيث في العمود A فيه ارقام متسلسلة اي من 1 الى 100 مثلا
اريد عند فتح اليوزرفورم و عند الترحيل يعطيني رسالة يعلمني فيها الارقام الناقصة في العمود A كما في الملف المرفق  بأن الأرقام 4-5-9-12 غير موجودة و يضع هذه المعلومة في TextBox4
و بارك الله فيكمو جزاكم الله خيرا
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  الأرقام الناقصة.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(26.927) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم نور الدين
استبدل الكود الخاص بحدث بداية الفورم بهذا الكود
Private Sub UserForm_Initialize()
    Dim ws As Worksheet, rng As Range, tmp As String, i As Integer, lr As Integer, x As Long
    Set ws = ThisWorkbook.Worksheets("BD")
    lr = ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        ComboBox1 = ws.Cells(lr, "A").Value + 1
    Next i
    TextBox1.SetFocus
    Set rng = ws.Range("A2:A" & lr)
    For x = WorksheetFunction.Min(rng) To WorksheetFunction.Max(rng)
        If IsError(Application.Match(Val(x), rng, 0)) Then tmp = tmp & IIf(tmp = Empty, Empty, "-") & x
    Next x
    TextBox4.Text = tmp
End Sub
عرض الإجابة




03-09-2021 07:41 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif معرفة ارقام الخلايا الناقصة
وعليكم السلام أخي الكريم نور الدين
استبدل الكود الخاص بحدث بداية الفورم بهذا الكود
Private Sub UserForm_Initialize()
    Dim ws As Worksheet, rng As Range, tmp As String, i As Integer, lr As Integer, x As Long
    Set ws = ThisWorkbook.Worksheets("BD")
    lr = ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        ComboBox1 = ws.Cells(lr, "A").Value + 1
    Next i
    TextBox1.SetFocus
    Set rng = ws.Range("A2:A" & lr)
    For x = WorksheetFunction.Min(rng) To WorksheetFunction.Max(rng)
        If IsError(Application.Match(Val(x), rng, 0)) Then tmp = tmp & IIf(tmp = Empty, Empty, "-") & x
    Next x
    TextBox4.Text = tmp
End Sub



الكلمات الدلالية
معرفة ، ارقام ، الخلايا ، الناقصة ،


 










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

الساعة الآن 06:31 صباحا