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

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


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


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





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

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



19-08-2019 05:18 صباحا
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 332
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 750
الاعجاب : 88
 offline 
السلام عليكم ورحمة الله وبركاته
طبتم وطاب مسعاكم
معي ملف واريد  تعديل الكود للبحث من خلال العمود "B" بدلا من العمود الاول"A"..... بحيث عند الضغط على الكمبوبكس تظهر بيانات العمود "B"...قمت بذلك ولكن عند التعديل او الحذف او الاضافه يعطي خطآ...
حاولت جاهدا فيه لكن لا اعلم ما الخلل؟؟؟؟
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تعديل.rar   تحميل rar مرات التحميل :(13)
الحجم :(15.363) KB





19-08-2019 06:57 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 227
قوة السمعة : 4296
الاعجاب : 562
موقعي : زيارة موقعي
 offline 
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
المشاركات : 332
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 750
الاعجاب : 88
 offline 
look/images/icons/i1.gif البحث في العمود الثاني بدلا من الأول
جزااك الله خيرا استاذ محمود ابو الدهب
هذا هو الملف بعد التعديل عليه بالكود الجديد

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


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



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




19-08-2019 11:47 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 227
قوة السمعة : 4296
الاعجاب : 562
موقعي : زيارة موقعي
 offline 
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
المشاركات : 332
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 750
الاعجاب : 88
 offline 
look/images/icons/i1.gif البحث في العمود الثاني بدلا من الأول
جزاك الله خيرا سلمت يداك111

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



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



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

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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عند تحديث قيمة خليه يتم وضعها بأخر خليه بالعمود yousef_kaf
6 201 مالك ماريه
تحويل رقم العمود إلى حرف والعكس Convert Column Number To Letter Vice-Versa YasserKhalil
3 230 YasserKhalil
فورم بحث عن اى حرف او كلمة فى اى مكان فى العمود المحدد مجدى يونس
4 387 مجدى يونس
هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل عبد الله السعيد
6 411 ali mohamed ali
عمل جدولين في صفحة اكسيل وتغيير عرض العمود في الجدول السفلي دون تأثر عرض العمود في الجدول العلوي algammal
2 501 ابونور

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


 







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

الساعة الآن 02:49 مساء

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