AYMAN Z HARB قام بنشر سبتمبر 24, 2010 مشاركة قام بنشر سبتمبر 24, 2010 كود التعديل لايعمل مرفق الملف مشكلة.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر سبتمبر 25, 2010 مشاركة قام بنشر سبتمبر 25, 2010 السلام عليكم و رحمة الله أخي ابو ياسمين يوجد خطأ في في عملية تحديث البيانات عندي تغيير الكمبوبوكس و يجب تغير الحدث من Private Sub ComboBox1_Change() ليصبح الكود ضمن الحدث Private Sub ComboBox1_AfterUpdate() On Error Resume Next If ComboBox1 <> "ÃÎÊÑ ÇáÅÓã ãä ÇáÞÇÆãÉ" And Application.WorksheetFunction.CountIf([B3:b65536], ComboBox1) = 0 Then MsgBox "!åÐå ÇáÞÇÆãÉ áÅÎÊíÇÑ ÇáÅÓã ÝÞØ .. ááÊÚÏíá íãßäß ÅÓÊÎÏÇã ãÑÈÚ ÇáäÕ ÇáÎÇÕ ÈÇáÅÓã", vbExclamation, "ÚÝÜæÇð" ComboBox1 = "ÃÎÊÑ ÇáÅÓã ãä ÇáÞÇÆãÉ" ComboBox1.DropDown Exit Sub End If TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 1, 0) TextBox2 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 2, 0) TextBox3 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 3, 0) TextBox4 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 4, 0) TextBox5 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 5, 0) TextBox6 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 6, 0) TextBox7 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 7, 0) TextBox8 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 8, 0) TextBox9 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 9, 0) TextBox10 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 10, 0) TextBox11 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 11, 0) TextBox12 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 12, 0) TextBox13 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 13, 0) TextBox14 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 14, 0) End Sub و من ثم قم بنسخ الكود التالي في زي التعديل و هو نفس الكود الأصلي مع بعض التعديلات البسيطة عليه Private Sub CommandButton4_Click() If ComboBox1 = "ÃÎÊÑ ÇáÅÓã ãä ÇáÞÇÆãÉ" Then MsgBox "!íÌÈ ÅÎÊíÇÑ ÇáÅÓã ãä ÇáÞÇÆãÉ ÇáãäÓÏáÉ ÃæáÇð", vbExclamation, "ÅÎÊíÇÑ ÎÇØÆ" ComboBox1.DropDown ElseIf TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or TextBox12 = "" Or TextBox13 = "" Or TextBox14 = "" Then MsgBox "!íÌÈ ÊÚÈÆÉ ßÇÝÉ ÇáÍÞæá ÃæáÇð", vbExclamation, "ÍÞæá ÛíÑ ããÊáÆÉ" Else Beep If MsgBox(":áÞÏ ØáÈÊ ÇáÊÚÏíá Åáì ÇáÈíÇäÇÊ ÇáÊÇáíÉ" & vbNewLine & "" & vbNewLine & "ÇáÅÓã: " & TextBox1 _ & vbNewLine & "" & vbNewLine & "ÇáÚãÑ: " & TextBox2 & vbNewLine & "" & vbNewLine & "ÇáãÓãì ÇáæÙíÝí: " & TextBox3 & vbNewLine & "" _ & vbNewLine & "Ýåá ÊæÏ ÇáÅÓÊãÑÇÑ¿", vbYesNo + vbQuestion, "ÊÃßíÏ ÇáÅÏÎÇá") = vbYes Then a = Application.WorksheetFunction.Match(ComboBox1.Value, Sheets("Sheet1").Range("B1:B45533"), 0) With Sheets("sheet1") .Cells(a, 2) = TextBox1.Value .Cells(a, 3) = TextBox2.Value .Cells(a, 4) = TextBox3.Value .Cells(a, 5) = TextBox4.Value .Cells(a, 6) = TextBox5.Value .Cells(a, 7) = TextBox6.Value .Cells(a, 8) = TextBox7.Value .Cells(a, 9) = TextBox8.Value .Cells(a, 10) = TextBox9.Value .Cells(a, 11) = TextBox10.Value .Cells(a, 12) = TextBox11.Value .Cells(a, 13) = TextBox12.Value .Cells(a, 14) = TextBox13.Value .Cells(a, 15) = TextBox14.Value End With Me.Hide Sort MsgBox "Êã ÊÚÏíá ÌãíÚ ÇáÈíÇäÇÊ ÈäÌÇÍ", vbInformation, "Êã ÇáÊÚÏíá" End If End If End Sub أتمنى أن تجرب التعديلات و تعلمني بالنتيجة ========== دمتم في حفظ الله رابط هذا التعليق شارك More sharing options...
AYMAN Z HARB قام بنشر سبتمبر 25, 2010 الكاتب مشاركة قام بنشر سبتمبر 25, 2010 اخي يحي حسين حفظك الله ورعاك وامدك بالصحة والعافية وجزاك عنا خيرا ان شاء الله وبعد قمت بالتعديل في الكود واصبحت النتيجة ممتازة بالنسبة للتعديل ولكن الحذف لم يتغير وارفقت لكن نسخة من التعديل جعلها الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
AYMAN Z HARB قام بنشر سبتمبر 25, 2010 الكاتب مشاركة قام بنشر سبتمبر 25, 2010 اخي يحي حسين حفظك الله ورعاك وامدك بالصحة والعافية وجزاك عنا خيرا ان شاء الله وبعد قمت بالتعديل في الكود واصبحت النتيجة ممتازة بالنسبة للتعديل ولكن الحذف لم يتغير وارفقت لكن نسخة من التعديل جعلها الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
AYMAN Z HARB قام بنشر سبتمبر 25, 2010 الكاتب مشاركة قام بنشر سبتمبر 25, 2010 اخي يحي حسين حفظك الله ورعاك وامدك بالصحة والعافية وجزاك عنا خيرا ان شاء الله وبعد قمت بالتعديل في الكود واصبحت النتيجة ممتازة بالنسبة للتعديل ولكن الحذف لم يتغير وارفقت لكن نسخة من التعديل جعلها الله في ميزان حسناتك مشكلة2.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر سبتمبر 25, 2010 مشاركة قام بنشر سبتمبر 25, 2010 السلام عليكم و رحمة الله و بركاته جرب هذا الكود لعملية الحذف Private Sub CommandButton1_Click() If ComboBox1 = "ÃÎÊÑ ÇáÅÓã ãä ÇáÞÇÆãÉ" Then MsgBox "!íÌÈ ÅÎÊíÇÑ ÇáÅÓã ãä ÇáÞÇÆãÉ ÇáãäÓÏáÉ ÃæáÇð", vbExclamation, "ÅÎÊíÇÑ ÎÇØÆ" ComboBox1.DropDown Else Beep If MsgBox("áÞÏ ØáÈÊ ÍÐÝ ÇáÓÌá ÇáÎÇÕ È" & ComboBox1 & " .. Ýåá ÊæÏ ÇáÅÓÊãÑÇÑ¿", vbQuestion + vbYesNo) = vbYes Then a = Application.WorksheetFunction.Match(ComboBox1.Value, Sheets("Sheet1").Range("B1:B45533"), 0) Sheets("Sheet1").Range("b" & a).EntireRow.Delete 'For C = 1 To 14 'Cells(a + 14, C) = "" 'Next Me.Hide Sort MsgBox " Êã ÍÐÝ ÇáÓÌá ÇáÎÇÕ È" & ComboBox1 & " ÈäÌÇÍ", vbInformation, "Êã ÇáÍÐÝ" End If End If End Sub رابط هذا التعليق شارك More sharing options...
AYMAN Z HARB قام بنشر سبتمبر 25, 2010 الكاتب مشاركة قام بنشر سبتمبر 25, 2010 اهداء لموقع اوفسيا والاخ يحي حسين هكذا اصبح العمل جاهز اللهم اجعل خير اعمالنا خواتمها مع شكري بفضل الله وموقع اوفسينا لامشاكل بعد اليوم مشكلة3.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر سبتمبر 25, 2010 مشاركة قام بنشر سبتمبر 25, 2010 السلام عليكم و رحمة الله اكرمك الله اخي ابو ياسمين شكل الفورم الجديد للتعيدل و الحذف اجمل من الفورم السابق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان