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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





البحث في العمود الثاني بدلا من الأول

السلام عليكم ورحمة الله وبركاته طبتم وطاب مسعاكم معي ملف واريد تعديل الكود للبحث من خلال العمود quot;Bquot; بدلا من الع ..



19-08-2019 05:18 صباحا
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 719
الاعجاب : 73
 offline 

السلام عليكم ورحمة الله وبركاته
طبتم وطاب مسعاكم
معي ملف واريد  تعديل الكود للبحث من خلال العمود "B" بدلا من العمود الاول"A"..... بحيث عند الضغط على الكمبوبكس تظهر بيانات العمود "B"...قمت بذلك ولكن عند التعديل او الحذف او الاضافه يعطي خطآ...
حاولت جاهدا فيه لكن لا اعلم ما الخلل؟؟؟؟
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تعديل.rar   تحميل rar مرات التحميل :(11)
الحجم :(15.363) KB







19-08-2019 06:57 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif البحث في العمود الثاني بدلا من الأول
ضع زر جديد للبحث وضع الكود التالى به

Private Sub CommandButton1_Click()
'بحث عن بيان
    Dim x       As Integer
    Dim ws      As Worksheet
    Dim Rng     As Range
    Dim lr      As Long
    Set ws = ThisWorkbook.Worksheets("Sheet1")
      lr = ws.Cells(Rows.Count, "b").End(xlUp).Row
    x = Application.Match(Val(COB1.Text), ws.Range("b11:b" & lr).Value, 0) + 10
        TB1.Text = ws.Cells(x, 1)
        TB2.Text = ws.Cells(x, 2)
        TB3.Text = ws.Cells(x, 3)
        TB4.Text = ws.Cells(x, 4)
        TB5.Text = ws.Cells(x, 5)
        TB6.Text = ws.Cells(x, 6)
        Me.TB2.Enabled = False
End Sub


وفائده السطر التالى فيه
me.TB2.Enabled = False


ان البيانات المستدعاه بالرقم القومى وعلية تم غلق بيان الرقم القوى لا يمكن التعييل علية ثانيتا لان بعد التعديل سيتم تعديل البيانات بالشيت بناء على هذا الرثقم من خلال الكود التالى 

Private Sub CMB2_Click()
'تعديل البيانات
    Dim x       As Integer
    Dim ws      As Worksheet
    Dim Rng     As Range
    Dim lr      As Long
    Set ws = ThisWorkbook.Worksheets("Sheet1")
      lr = ws.Cells(Rows.Count, "b").End(xlUp).Row
    x = Application.Match(Val(TB2.Text), ws.Range("b11:b" & lr).Value, 0) + 10
        ws.Cells(x, 1) = TB1.Text
        ws.Cells(x, 2) = TB2.Text
        ws.Cells(x, 3) = TB3.Text
        ws.Cells(x, 4) = TB4.Text
        ws.Cells(x, 5) = TB5.Text
        ws.Cells(x, 6) = TB6.Text
        Me.TB2.Enabled = True
        
       MsgBox "تم التعديل بنجاح"
End Sub


وتم في النهاية اعادة تشغيل التيكست 2 بحيث تضيف ما تشاء بها من بيان

هذا بالنسبة لزر الاستدعاء والتعديل

وبالنسبة لزر الحذف فهذا يكفي

Private Sub CMB3_Click()
'حذف البيانات
    Dim ws      As Worksheet
    Dim x       As Integer
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    x = Application.Match(Val(COB1.Text), ws.Columns(2), 0)
With Sheets("Sheet1")
        .Rows(x).Delete
    End With
    ResetUserFormControls Me
COB1.Text = "الإسم"
MsgBox "تم الحذف"
End Sub


وبالنسبة للاضافة ايضا 

Private Sub CMB1_Click()
'إضافة بيانات
If TB1 = "" Or TB2 = "" Or TB3 = "" Or TB4 = "" Or TB5 = "" Or TB6 = "" Then
    MsgBox "أكمل البيانات"
    Exit Sub
End If
With Sheet5
lastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1
     .Cells(lastRow, 1) = TB1
     .Cells(lastRow, 2) = TB2
     .Cells(lastRow, 3) = TB3
     .Cells(lastRow, 4) = TB4
     .Cells(lastRow, 5) = TB5
     .Cells(lastRow, 6) = TB6
COB1.Text = "الإسم"
TB1 = ""
TB2 = ""
TB3 = ""
TB4 = ""
TB5 = ""
TB6 = ""
end with
    MsgBox "تمت الإضافة"
End Sub



 

أثارت هذه المشاركة إعجاب: نصر الإيمان، محمد الدسوقى، ali mohamed ali،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


19-08-2019 07:57 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 719
الاعجاب : 73
 offline 
look/images/icons/i1.gif البحث في العمود الثاني بدلا من الأول
جزااك الله خيرا استاذ محمود ابو الدهب
هذا هو الملف بعد التعديل عليه بالكود الجديد

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
شغال تمام... ما شاء الله 
لكن زر الإضافه مش شغال وقد عالجته بإنهاء قاعدة with.... بـــ end with
........................................................
ولكن عند اختيار احد الارقام والضغط على زر البحث تظهر رسالة خطأ...
 
 
 
  تعديل1.rar   تحميل rar مرات التحميل :(6)
الحجم :(18.694) KB


أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




19-08-2019 08:07 مساء
مشاهدة مشاركة منفردة [3]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 719
الاعجاب : 73
 offline 
look/images/icons/i1.gif البحث في العمود الثاني بدلا من الأول
عند اختيار الارقام بالترتيب والضغط على زر البحث لا يحدث خطأ..
ولكن عند اختيار احد الارقام عشوائيا والضغط على زر البحث يحدث خطأ





19-08-2019 11:47 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif البحث في العمود الثاني بدلا من الأول
ضع التعديل الاتى في زر البحث

Private Sub CommandButton1_Click()
'بحث عن بيان
    Dim x       As Long
    Dim ws      As Worksheet
    Dim row     As Integer
    Dim lr      As Long
    Set ws = ThisWorkbook.Worksheets("Sheet1")
      lr = ws.Cells(Rows.Count, "b").End(xlUp).row
     For row = 11 To lr
         If ws.Range("b" & row).Value = Val(COB1.Value) Then
            x = row
            Exit For
         End If
     Next row
     If x = 0 Then Exit Sub
        TB1.Text = ws.Cells(x, 1)
        TB2.Text = ws.Cells(x, 2)
        TB3.Text = ws.Cells(x, 3)
        TB4.Text = ws.Cells(x, 4)
        TB5.Text = ws.Cells(x, 5)
        TB6.Text = ws.Cells(x, 6)
        Me.TB2.Enabled = False
End Sub


تحياتى
 

أثارت هذه المشاركة إعجاب: ali mohamed ali، نصر الإيمان،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


20-08-2019 12:11 صباحا
مشاهدة مشاركة منفردة [5]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 719
الاعجاب : 73
 offline 
look/images/icons/i1.gif البحث في العمود الثاني بدلا من الأول
جزاك الله خيرا سلمت يداك111

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




20-08-2019 07:31 صباحا
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif البحث في العمود الثاني بدلا من الأول
شكرا لكلماتك الطيبة والحمد لله على تمام طلبك
 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم بحث عن اى حرف او كلمة فى اى مكان فى العمود المحدد مجدى يونس
4 179 مجدى يونس
هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل عبد الله السعيد
6 216 ali mohamed ali
عمل جدولين في صفحة اكسيل وتغيير عرض العمود في الجدول السفلي دون تأثر عرض العمود في الجدول العلوي algammal
2 386 ابونور
تظليل الصف والعمود للخلية النشطة Eslam Abdullah
18 3681 المبتدأ
معادله للحصول على اخر قيمة بالعمود او الصف - اكاديمية الصقر للتدريب الصقر
11 1621 YasserKhalil

الكلمات الدلالية
الأول ، بدلا ، الثاني ، العمود ، البحث ،


 







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



الساعة الآن 03:35 صباحا

أعلن هنا
أعلن هنا
أعلن هنا