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

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


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





مساعدة في كود زر تعديل البيانات

السلام عليكم اعضاء الاكاديمية الكرام يرجى مساعدتي في تعديل كود زر تعديل البيانات الذ اضفته في (userform1) في شيت (العمل ..


موضوع مغلق


22-10-2020 07:32 مساء
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 

السلام عليكم اعضاء الاكاديمية الكرام

يرجى مساعدتي في تعديل كود زر تعديل البيانات الذ اضفته في (userform1) في شيت (العمليات) عند الضغط على زر (بحث واضافة) يظهر الفورم وعتد كتابة رمز المنتسب في تيكست بوكس (بحث برمز المنتسب) تظهر بيانات الموظف وعند التعديل عليها نضغط الزر (تعديل)
اريد ان يقوم الزر بتعديل البيانات في شيت (الملاك)
شاكرا نعاونكم معي مع التقدير
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ملاك 2020 للتعديل.xlsb   تحميل xlsb مرات التحميل :(5)
الحجم :(251.525) KB



أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمه الله وبركاته
ضع هذا الكود في userform1

Option Explicit

Private WS As Worksheet
Private LR As Long

Private Sub UserForm_Initialize()
Set WS = ThisWorkbook.Worksheets("الملاك")
LR = WS.Cells(Rows.Count, 2).End(xlUp).Row
End Sub
Private Sub CommandButton1_Click()

    If TextBox1 = "" Then MsgBox "عفوا يجب ادخال الرمز", vbExclamation: TextBox1.SetFocus: Exit Sub
    If Application.WorksheetFunction.CountIf(WS.Range("b2:b" & LR), TextBox1) > 0 Then _
    MsgBox "عفوا هذا الرمز موجود", vbInformation: Exit Sub
    With WS
        .Range("b" & LR + 1).Value = TextBox1.Value
        .Range("c" & LR + 1).Value = TextBox2.Value
        .Range("d" & LR + 1).Value = TextBox3.Value
        .Range("e" & LR + 1).Value = TextBox4.Value
        .Range("f" & LR + 1).Value = TextBox5.Value
        MsgBox "تمت الاضافة بنجاح"
         TextBox1 = ""
         TextBox2 = ""
         TextBox3 = ""
         TextBox4 = ""
         TextBox5 = ""
    End With

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
CommandButton3.Caption = WS.Range("b" & LR)
End Sub

Private Sub CommandButton4_Click()
Dim C As Range
    With WS
        For Each C In .Range("b2:b" & LR)
          If C Like TextBox6.Value & "*" Then
             .Cells(C.Row, 2).Value = TextBox1.Text
             .Cells(C.Row, 3).Value = TextBox2.Text
             .Cells(C.Row, 4).Value = TextBox3.Text
             .Cells(C.Row, 5).Value = TextBox4.Text
             .Cells(C.Row, 6).Value = TextBox5.Text
             .Cells(C.Row, 7).Value = ComboBox1.Value
             .Cells(C.Row, 8).Value = TextBox8.Text
             .Cells(C.Row, 9).Value = TextBox9.Text
             .Cells(C.Row, 10).Value = TextBox10.Text
             .Cells(C.Row, 11).Value = TextBox11.Text
          End If
        Next C
    End With
    MsgBox "نم تعديل البيانات بنجاح"
    Call TextBox6_Change
 End Sub
Private Sub TextBox6_Change()
    For Each Cel In WS.Range("b2:b" & LR)
        If (Val(Me.TextBox6)) = Cel Then
            Me.TextBox1 = Cel.Offset(0, 0)
            Me.TextBox2 = Cel.Offset(0, 1)
            Me.TextBox3 = Cel.Offset(0, 2)
            Me.TextBox4 = Cel.Offset(0, 3)
            Me.TextBox5 = Cel.Offset(0, 4)
            Me.ComboBox1 = Cel.Offset(0, 5)
            Me.TextBox8 = Cel.Offset(0, 6)
            Me.TextBox9 = Cel.Offset(0, 7)
            Me.TextBox10 = Cel.Offset(0, 8)
            Me.TextBox11 = Cel.Offset(0, 9)
        End If
    Next
End Sub


عرض الإجابة




24-10-2020 06:44 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif مساعدة في كود زر تعديل البيانات
وعليكم السلام ورحمه الله وبركاته
ضع هذا الكود في userform1

Option Explicit

Private WS As Worksheet
Private LR As Long

Private Sub UserForm_Initialize()
Set WS = ThisWorkbook.Worksheets("الملاك")
LR = WS.Cells(Rows.Count, 2).End(xlUp).Row
End Sub
Private Sub CommandButton1_Click()

    If TextBox1 = "" Then MsgBox "عفوا يجب ادخال الرمز", vbExclamation: TextBox1.SetFocus: Exit Sub
    If Application.WorksheetFunction.CountIf(WS.Range("b2:b" & LR), TextBox1) > 0 Then _
    MsgBox "عفوا هذا الرمز موجود", vbInformation: Exit Sub
    With WS
        .Range("b" & LR + 1).Value = TextBox1.Value
        .Range("c" & LR + 1).Value = TextBox2.Value
        .Range("d" & LR + 1).Value = TextBox3.Value
        .Range("e" & LR + 1).Value = TextBox4.Value
        .Range("f" & LR + 1).Value = TextBox5.Value
        MsgBox "تمت الاضافة بنجاح"
         TextBox1 = ""
         TextBox2 = ""
         TextBox3 = ""
         TextBox4 = ""
         TextBox5 = ""
    End With

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
CommandButton3.Caption = WS.Range("b" & LR)
End Sub

Private Sub CommandButton4_Click()
Dim C As Range
    With WS
        For Each C In .Range("b2:b" & LR)
          If C Like TextBox6.Value & "*" Then
             .Cells(C.Row, 2).Value = TextBox1.Text
             .Cells(C.Row, 3).Value = TextBox2.Text
             .Cells(C.Row, 4).Value = TextBox3.Text
             .Cells(C.Row, 5).Value = TextBox4.Text
             .Cells(C.Row, 6).Value = TextBox5.Text
             .Cells(C.Row, 7).Value = ComboBox1.Value
             .Cells(C.Row, 8).Value = TextBox8.Text
             .Cells(C.Row, 9).Value = TextBox9.Text
             .Cells(C.Row, 10).Value = TextBox10.Text
             .Cells(C.Row, 11).Value = TextBox11.Text
          End If
        Next C
    End With
    MsgBox "نم تعديل البيانات بنجاح"
    Call TextBox6_Change
 End Sub
Private Sub TextBox6_Change()
    For Each Cel In WS.Range("b2:b" & LR)
        If (Val(Me.TextBox6)) = Cel Then
            Me.TextBox1 = Cel.Offset(0, 0)
            Me.TextBox2 = Cel.Offset(0, 1)
            Me.TextBox3 = Cel.Offset(0, 2)
            Me.TextBox4 = Cel.Offset(0, 3)
            Me.TextBox5 = Cel.Offset(0, 4)
            Me.ComboBox1 = Cel.Offset(0, 5)
            Me.TextBox8 = Cel.Offset(0, 6)
            Me.TextBox9 = Cel.Offset(0, 7)
            Me.TextBox10 = Cel.Offset(0, 8)
            Me.TextBox11 = Cel.Offset(0, 9)
        End If
    Next
End Sub





الكلمات الدلالية
تعديل ، البيانات ،


 










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

الساعة الآن 08:25 صباحا