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

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


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





ارجو التعديل علي هذا الفورم

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


موضوع مغلق


21-11-2021 12:04 مساء
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 

الفورم لاستاذنا الكبير مجدي يونس
ولكن فيه خطأ 
عندما اقوم بالتعديل علي البيانات  لا يعدل في نفس صف الاسم ولكن يعدل فوق رءوس الاعمدة في الصف الرابع
ارجو من إخواني التعديل علي الفورم لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ادخال بيانات واستعلام وتعديل 2وبحث.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(325.441) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم
لابد من أن يكون الموضوع محدد في مشكلة محددة .. ما هو الحدث المراد التعديل عليه؟ ويفضل أن تعطي مثال لشكل الخطأ الذي يظهر معك
جربت الملف المرفق وجربت البحث أولاً قبل التعديل ولاحظت أن الكود به خلل بسيط في السطر التالي في حدث TextBox12_Change
For Each CL In sh12.Range("a5:a100" & Lr)

حيث يتم الإشارة لآخر صف به بيانات بشكل ثابت وهو الرقم 100 وفي نفس الوقت يوجد متغير يشير لآخر صف وهو المتغير lr ولا يمكن الجمع بينهما بهذا الشكل ، لذا الصحيح هو السطر بهذا الشكل
For Each CL In sh12.Range("A6:A" & Lr)

وجعلت أول صف كبداية هو الصف السادس وهو بداية البيانات الفعلية في الجدول في الملف المرفق

كما أنه من المنطقي في عمليات البحث طالما وجد رقم الجلوس الذي تبحث عنه وأتى بالنتائج أن يتم الخروج من الحلقات التكرارية باستخدام جملة Exit For
أضفت سطر للإعلان عن المتغيرات

وإليك كود البحث بعد التعديل 
Private Sub TextBox12_Change()
    Dim sh As Worksheet, cl As Range, lr As Long
    Set sh12 = ThisWorkbook.Worksheets("بيانات")
    lr = sh12.[a2000].End(xlUp).Row
    For Each cl In sh12.Range("A6:A" & lr)
        If (Val(Me.TextBox12)) = cl Then
            Me.TextBox1 = cl.Offset(0, 0)
            Me.TextBox2 = cl.Offset(0, 1)
            Me.TextBox3 = cl.Offset(0, 2)
            Me.TextBox4 = cl.Offset(0, 3)
            Me.TextBox5 = cl.Offset(0, 4)
            Me.TextBox6 = cl.Offset(0, 5)
            Me.TextBox7 = cl.Offset(0, 6)
            Me.TextBox8 = cl.Offset(0, 7)
            Me.TextBox9 = cl.Offset(0, 8)
            Me.TextBox10 = cl.Offset(0, 9)
            Me.TextBox11 = cl.Offset(0, 10)
            Exit For
        End If
    Next cl
End Sub


* ملحوظة يوجد أرقام جلوس في العمود الأول بدون أسماء وهو رقم الجلوس 2 مكرر في كثير من الصفوف وربما هذا هو السبب في حدوث مشكلة لديك
عرض الإجابة




21-11-2021 02:33 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الفورم
السلام عليكم
لابد من أن يكون الموضوع محدد في مشكلة محددة .. ما هو الحدث المراد التعديل عليه؟ ويفضل أن تعطي مثال لشكل الخطأ الذي يظهر معك
جربت الملف المرفق وجربت البحث أولاً قبل التعديل ولاحظت أن الكود به خلل بسيط في السطر التالي في حدث TextBox12_Change
For Each CL In sh12.Range("a5:a100" & Lr)

حيث يتم الإشارة لآخر صف به بيانات بشكل ثابت وهو الرقم 100 وفي نفس الوقت يوجد متغير يشير لآخر صف وهو المتغير lr ولا يمكن الجمع بينهما بهذا الشكل ، لذا الصحيح هو السطر بهذا الشكل
For Each CL In sh12.Range("A6:A" & Lr)

وجعلت أول صف كبداية هو الصف السادس وهو بداية البيانات الفعلية في الجدول في الملف المرفق

كما أنه من المنطقي في عمليات البحث طالما وجد رقم الجلوس الذي تبحث عنه وأتى بالنتائج أن يتم الخروج من الحلقات التكرارية باستخدام جملة Exit For
أضفت سطر للإعلان عن المتغيرات

وإليك كود البحث بعد التعديل 
Private Sub TextBox12_Change()
    Dim sh As Worksheet, cl As Range, lr As Long
    Set sh12 = ThisWorkbook.Worksheets("بيانات")
    lr = sh12.[a2000].End(xlUp).Row
    For Each cl In sh12.Range("A6:A" & lr)
        If (Val(Me.TextBox12)) = cl Then
            Me.TextBox1 = cl.Offset(0, 0)
            Me.TextBox2 = cl.Offset(0, 1)
            Me.TextBox3 = cl.Offset(0, 2)
            Me.TextBox4 = cl.Offset(0, 3)
            Me.TextBox5 = cl.Offset(0, 4)
            Me.TextBox6 = cl.Offset(0, 5)
            Me.TextBox7 = cl.Offset(0, 6)
            Me.TextBox8 = cl.Offset(0, 7)
            Me.TextBox9 = cl.Offset(0, 8)
            Me.TextBox10 = cl.Offset(0, 9)
            Me.TextBox11 = cl.Offset(0, 10)
            Exit For
        End If
    Next cl
End Sub


* ملحوظة يوجد أرقام جلوس في العمود الأول بدون أسماء وهو رقم الجلوس 2 مكرر في كثير من الصفوف وربما هذا هو السبب في حدوث مشكلة لديك

21-11-2021 03:30 مساء
مشاهدة مشاركة منفردة [2]
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الفورم
شكرا جزيلا لحضرتك
بس حضرتك لم تحل المشكلة
لما احب اعدل علي بيانات موظف وادوس علي زر تعديل بيرحل البيانات علي الصف الرابع

21-11-2021 03:39 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الفورم
لم احل المشكلة لأنني لم أفهم المطلوب بشكل واضح كما ذكرت لك .. 
لحل المشكلة قم بوضع نقطة توقف عند أول سطر في الكود المسئول عن التعديل وتتبع الكود باستخدام مفتاح F8 وإن شاء الله تستطيع حل المشكلة بنفسك

21-11-2021 04:35 مساء
مشاهدة مشاركة منفردة [4]
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الفورم
حضرتك انا ضغط علي الفورم
وعدلت علي درجات التلميذ : احمد السيد
انظر حضرتك في row  الرابع هتلاقي مرحل بيانات اسم التلميذ : احمد السيد 
مع ان المفروض يرحل التعديل علي درجات التلميذ في نفس ال row  بتاعه لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ادخال بيانات واستعلام وتعديل 2وبحث.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(308.495) KB


21-11-2021 04:58 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif ارجو التعديل علي هذا الفورم
أخي الكريم
راجع جيداً المشاركة التي قلت عنها أنها لم تحل المشكلة وطبق ما فيها وستجد أن المشكلة قد تم حلها بدون التعديل على كود التعديل ..
الرجاء قراءة المشاركات بشكل جيد ، كما أخبرنا أن المنتدى تعليمي وليس خدمي ولابد أن تتعلم الأساسيات قبل طرح الموضوعات.

ولا تنسى أن تقوم بمسح أرقام الجلوس المكررة في آخر الجدول .. لأن هذا هو سبب المشكلة



الكلمات الدلالية
ارجو ، التعديل ، الفورم ،


 










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

الساعة الآن 06:46 مساء