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

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

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




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





ضبط كود التعديل داخل الفورم

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



06-10-2018 01:48 مساء
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 229
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 365
الاعجاب : 152
 offline 

السلام عليكم احبائى واساتذتى
انا مش عارف ايه المشكلة فى تعطل كود التعديل فكان يعمل بكل دقة والأن لا يعمل -اذا قمت بعمل اى تعديل يعطى لى انه تم التعديل ولكنى لم اجد اى شيء قد تغير
لو ممكن اساتذتى بعد اذنكم التكرم على حل هذه المشكلة
بارك الله فيكم وجزاكم الله كل خير
Private Sub CommandButton2_Click()
Dim Ws As Worksheet, RG As String
Dim X As Range
Set Ws = Sheets("ÞÇÆãÉ ÇáãÚáæãÇÊ")
'=================================================================================================
RG = ComboBox5.Value
If RG = "" Then
MsgBox ("ãä ÝÖáß ÃÏÎá  ÇáÇÓã ÇáãÑÇÏ ÊÚÏíá ÈíÇäÇÊå"), 64, "Mohamed EL_Desouky"
Else
For Each X In Ws.Range("B3:B" & Ws.Range("A" & Rows.Count).End(xlUp).Row)
On Error Resume Next
If X.Value = RG Then
Ws.Activate
X.Select
'-------------------------------------------
ActiveCell.Offset(0, -1) = TextBox1.Text
ActiveCell.Offset(0, 0) = TextBox2.Text
ActiveCell.Offset(0, 1) = ComboBox1.Text
ActiveCell.Offset(0, 2) = TextBox3.Text
ActiveCell.Offset(0, 3) = TextBox4.Text
ActiveCell.Offset(0, 4) = TextBox5.Text
ActiveCell.Offset(0, 5) = TextBox6.Text
ActiveCell.Offset(0, 6) = TextBox7.Text
ActiveCell.Offset(0, 7) = ComboBox2.Text
ActiveCell.Offset(0, 8) = ComboBox3.Text
ActiveCell.Offset(0, 9) = ComboBox4.Text
ActiveCell.Offset(0, 10) = TextBox8.Text
ActiveCell.Offset(0, 11) = TextBox9.Text
ActiveCell.Offset(0, 12) = TextBox10.Text
End If
Next
'=============================================================
MsgBox ("Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ"), 64, "Mohamed EL_Desouky"
End If
   Empty_Controls
   TextBox2.SetFocus
   TextBox1.Text = ""
End Sub
ضبط كود التعديل.rar
 
 
  ضبط كود التعديل.rar   تحميل rar مرات التحميل :(11)
الحجم :(41.123) KB







06-10-2018 05:23 مساء
مشاهدة مشاركة منفردة [1]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 229
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 365
الاعجاب : 152
 offline 
look/images/icons/i1.gif ضبط كود التعديل داخل الفورم
للرفع أكرمكم الله





06-10-2018 09:34 مساء
مشاهدة مشاركة منفردة [2]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 454
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 54
يتابعهم : 8
يتابعونه : 382
قوة السمعة : 5428
الاعجاب : 1111
 offline 
look/images/icons/i1.gif ضبط كود التعديل داخل الفورم
أستاذ / هانى
لماذا عرضت هذا الطلب فى مشاركة منفصلة عن الموضوع الأصلى لك فى مشاركة أخرى تحت عنوان ( تعديل كود الحذف )
فلماذا لا  يكون الموضوع متكامل حتى لا يتشتت الأعضاء
وعلى العموم استبدل كود التعديل فى ملفك بالكود التالى 
إن شاء الله شغال 100 %

Private Sub CommandButton2_Click()
Dim Ws As Worksheet, RG As String
Dim X As Range
Set Ws = Sheets("قائمة المعلومات")

RG = ComboBox5.Value
If RG = "" Then
MsgBox ("من فضلك أدخل  الاسم المراد تعديل بياناته"), 64, "Mohamed EL_Desouky"
Else
For Each X In Ws.Range("B3:B" & Ws.Range("A" & Rows.Count).End(xlUp).Row)
On Error Resume Next
If X.Value = RG Then
Ws.Activate
X.Select
'-------------------------------------------
ActiveCell.Offset(0, -1).Value = TextBox1.Text
ActiveCell.Offset(0, 0).Value = TextBox2.Text

ActiveCell.Offset(0, 1).Value = ComboBox1.Text

ActiveCell.Offset(0, 2).Value = TextBox3.Text
ActiveCell.Offset(0, 3).Value = TextBox4.Text
ActiveCell.Offset(0, 4).Value = TextBox5.Text
ActiveCell.Offset(0, 5).Value = TextBox6.Text
ActiveCell.Offset(0, 6).Value = TextBox7.Text

ActiveCell.Offset(0, 7).Value = ComboBox2.Text
ActiveCell.Offset(0, 8).Value = ComboBox3.Text
ActiveCell.Offset(0, 9).Value = ComboBox4.Text

ActiveCell.Offset(0, 10).Value = TextBox8.Text

ActiveCell.Offset(0, 11).Value = TextBox9.Text
ActiveCell.Offset(0, 12).Value = TextBox10.Text
End If
Next
MsgBox ("تم تعديل البيانات بنجاح"), 64, "Mohamed EL_Desouky"
End If
   Empty_Controls
   TextBox2.SetFocus
   TextBox1.Text = ""
End Sub

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




06-10-2018 11:05 مساء
مشاهدة مشاركة منفردة [3]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 229
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 365
الاعجاب : 152
 offline 
look/images/icons/i1.gif ضبط كود التعديل داخل الفورم
بارك الله فيك استاذى الكريم محمد وجزاك الله كل خير
ولكن اعتذر لحضرتك فمازالت المشكلة واقعة يتم ظهور رسالة التغيير ولكن لم يتم التغيير فلا اعلم ما المشكلة





07-10-2018 10:42 صباحا
مشاهدة مشاركة منفردة [4]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 229
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 365
الاعجاب : 152
 offline 
look/images/icons/i1.gif ضبط كود التعديل داخل الفورم
للرفع اكرمكم الله





07-10-2018 02:40 مساء
مشاهدة مشاركة منفردة [5]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 229
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 365
الاعجاب : 152
 offline 
look/images/icons/i1.gif ضبط كود التعديل داخل الفورم
للرفع.....





07-10-2018 03:41 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 333
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif ضبط كود التعديل داخل الفورم
بارك الله فيك أخي الحبيب محمد الدسوقي
أخي الكريم هاني جرب التعديل التالي .. قم بمسح الأكواد من موديول الفورم وضع الكود التالي
Option Explicit

Private b           As Boolean
Private i           As Integer
Private r           As Integer

Private Sub ComboBox5_Click()
    Dim ws          As Worksheet
    Dim x           As Range
    Dim M_D         As String

    If b Then Exit Sub

    Set ws = Sheets("قائمة المعلومات")
    M_D = ComboBox5.Value
    If M_D = "" Then Exit Sub

    For Each x In ws.Range("B3:B" & ws.Range("B" & Rows.Count).End(xlUp).Row)
        On Error Resume Next
        If x.Value = M_D Then
            ws.Activate
            x.Select

            TextBox1.Text = ActiveCell.Offset(0, -1)
            TextBox2.Text = ActiveCell.Offset(0, 0)
            ComboBox1.Text = ActiveCell.Offset(0, 1)
            TextBox3.Text = ActiveCell.Offset(0, 2)
            TextBox4.Text = ActiveCell.Offset(0, 3)
            TextBox5.Text = ActiveCell.Offset(0, 4)
            TextBox6.Text = ActiveCell.Offset(0, 5)
            TextBox7.Text = ActiveCell.Offset(0, 6)
            ComboBox2.Text = ActiveCell.Offset(0, 7)
            ComboBox3.Text = ActiveCell.Offset(0, 8)
            ComboBox4.Text = ActiveCell.Offset(0, 9)
            TextBox8.Text = ActiveCell.Offset(0, 10)
            TextBox9.Text = ActiveCell.Offset(0, 11)
            TextBox10.Text = ActiveCell.Offset(0, 12)
        End If
    Next
    TextBox2.SetFocus
End Sub

Private Sub CommandButton1_Click()
    Dim ws          As Worksheet
    Dim lr          As Long

    Set ws = Sheets("قائمة المعلومات")
    TextBox1.Value = Application.WorksheetFunction.Max(ws.Range("A3:A10018")) + 1
    TextBox2.SetFocus
    ws.Select

    lr = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1

    If Me.TextBox2.Text = "" Then
        MsgBox ("خانةإسم الكفيل فارغة"), 64, "Excel-Egy": Exit Sub
    End If

    Cells(lr, 1) = TextBox1.Text
    Cells(lr, 2) = TextBox2.Text
    Cells(lr, 3) = ComboBox1.Text
    Cells(lr, 4) = TextBox3.Text
    Cells(lr, 5) = TextBox4.Text
    Cells(lr, 6).Value = TextBox5.Text
    Cells(lr, 7).Value = TextBox6.Text
    Cells(lr, 8).Value = TextBox7.Text
    Cells(lr, 9).Value = ComboBox2.Text
    Cells(lr, 10).Value = ComboBox3.Text
    Cells(lr, 11).Value = ComboBox4.Text
    '-------------------------------------------------
    Cells(lr, 12).Value = TextBox8.Text
    '-------------------------------------------------
    Cells(lr, 13).Value = TextBox9.Text
    Cells(lr, 14).Value = TextBox10.Text
    MsgBox ("تم ترحيل البيانات بنجاح"), 64, "Excel-Egy"

    Call Empty_Controls
    TextBox2.SetFocus
    TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A3:A5000")) + 1
End Sub

Private Sub CommandButton2_Click()
    Dim ws          As Worksheet
    Dim m           As Variant
    Dim x           As Range
    Dim rg          As String

    b = True
    Set ws = ThisWorkbook.Sheets("قائمة المعلومات")
    rg = ComboBox5.Value

    If rg = "" Then
        MsgBox ("من فضلك أدخل  الاسم المراد تعديل بياناته"), 64, "Excel-Egy"
    Else

        m = Application.Match(rg, ws.Columns(2), 0)

        If Not IsError(m) Then
            ws.Cells(m, 1).Resize(, 14).Value = Array(TextBox1.Text, TextBox2.Text, ComboBox1.Value, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, ComboBox2.Value, ComboBox3.Value, ComboBox4.Value, TextBox8.Text, TextBox9.Text, TextBox10.Text)
        End If
        MsgBox ("تم تعديل البيانات بنجاح"), 64, "Excel-Egy"
    End If

    Empty_Controls

    b = True
    TextBox2.SetFocus
    TextBox1.Text = ""
End Sub

Private Sub CommandButton3_Click()
    Dim ws          As Worksheet
    Dim x           As Range
    Dim M_D         As String
    Dim d           As Integer

    Set ws = Sheets("قائمة المعلومات")
    M_D = ComboBox5.Value

    If M_D = "" Then
        MsgBox ("من فضلك أدخل الاسم  المراد حذف بياناته"), 64, "Excel-Egy"
    Else
        If MsgBox("سيتم الحذف هل أنت متأكد؟", vbQuestion + vbYesNo) = vbYes Then

            For Each x In ws.Range("B3:B" & ws.Range("A" & Rows.Count).End(xlUp).Row)
                On Error Resume Next
                If x.Value = M_D Then
                    ws.Activate
                    x.Select
                    x.EntireRow.Delete
                End If
            Next x
            TextBox2.SetFocus
            MsgBox "تم الحذف بنجاح"
        End If
    End If

    For i = 1 To 10
        Controls("TextBox" & i).Text = ""
    Next i

    For d = 1 To 5
        Controls("Combobox" & d).Text = ""
    Next d
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    For i = 1 To 14
        Controls("TextBox" & i).Text = ""
    Next i

    TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A3:A5000")) + 1
    TextBox2.SetFocus
End Sub

Private Sub UserForm_Activate()
    ComboBox5.SetFocus
    TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A3:A5000")) + 1
    TextBox2.SetFocus
End Sub

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




07-10-2018 04:16 مساء
مشاهدة مشاركة منفردة [7]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 229
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 365
الاعجاب : 152
 offline 
look/images/icons/i1.gif ضبط كود التعديل داخل الفورم
ممتاز احسنت استاذى الكريم ياسر وهو فعلا المطلوب
بارك الله فيك وجزاك الله كل خير وجعله فى ميزان حسناتك ووسع الله فى رزقك
وجعلك الله ممن يستمعون القول فيتبعون احسنه
وادخلك جنات الفردوس الأعلى وغفر الله لك ذنبك واستظلك بظله يوم لا ظل الا ظله,وفرج الله لك كربات يوم القيامة كما تفرج كربات العباد وحشرك مع النبيين والصديقين والشهداء وحسن أولئك رفيقا
لك كل الشكر استاذى الكريم ,يعجز لسانى عن شكرك

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




07-10-2018 04:40 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 333
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif ضبط كود التعديل داخل الفورم
بارك الله فيك أخي العزيز هاني وجزاك الله خيراً على هذه الدعوات الطيبة المباركة ، ولك بمثل ما دعوت لي وزيادة 
والشكر موصول للأخ الحبيب محمد الدسوقي على مشاركاته القيمة والمفيدة 

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف يتم تحديد الشيت المراد التعديل عليه من خلال كود التعديل aljathmai
6 41 aljathmai
ضبط وتعديل كود البحث فى الكمبوبوكس وكود التعديل هانى على
2 69 هانى على
المساعدة والتعديل على الدالة SUMPRODUCT ayman_2000
2 71 ayman_2000
مساعدة في التعديل من خلال اليوزر فورم محمد سويد
9 172 محمد سويد
التعديل على شيت توزيع ومراقبة الاقساط - الاستاذ حسام خطاب mrgan
6 302 Prince Hamid

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


 







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



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

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