ريان أحمد قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 السلام عليكم الرجاء التعديل على هذا الكود في المرفق بحيث تخرج في الرسالة يوسر فورم بدلا من رسالة من الإكسل رسالة تنبيهية 4_2.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 السلام عليكم تفضل اخي الكريم رسالة تنبيهية 4.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 السلام عليكم الاخ الاستاذ أبو حنين يعطيك العافيه عمل جميل تقبل مروري رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 مرورك اخي ابو نصار كالريح التي بها العطر و المسك بارك الله فيك و رعاك رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مايو 6, 2012 الكاتب مشاركة قام بنشر مايو 6, 2012 السلام عليكم أخي شكرا على الرد لكن ليس هو المطلوب إليك المطلوب بشكل أكثر دقة عندما تستدعي موضف عن طريق رقم ويكوم مستوفي للشروط تخرج رسالة تنبيهية في ' --- MsgBox--- Private Sub Worksheet_Change(ByVal Target As Range) 'On Error Resume Next 'If Target.Address = "$C$3" Then ' If Range("c4").Value + Range("c5").Value + Range("c6").Value _ ' + Range("c7").Value + Range("c8").Value = 0 Then ' If Range("c9").Value = "ãÊÚåÏ " Then ' MsgBox "ÇáãæÙÝ ãÊÚåÏ æÛíÑ ãáÊÒã ÈÇáÃÞÓÇØ"------------------------------------أريد ضهور الرسالة في فورم بدلا منMsgBox تلقاية بدون زر ' Else ' MsgBox "ÇáãæÙÝ ÛíÑ ãáÊÒã ÈÇáÃÞÓÇØ æíáÒãå ÅÈÑÇã ÊÚåÏ" ' End If ' End If 'End If 'If Target.Address = "$C$3" Then ' If Range("c4").Value + Range("c5").Value + Range("c6").Value _ ' + Range("c7").Value + Range("c8").Value > 0 Then ' If Range("c9").Value = "ãÊÚåÏ " Then ' MsgBox "ÇáãæÙÝ ãÊÚåÏ æãáÊÒã ÈÇáÃÞÓÇØ" ' Else ' MsgBox "ÇáãæÙÝ ãáÊÒã ÈÇáÃÞÓÇØ æáßä íáÒãå ÅÈÑÇã ÊÚåÏ" ' End If ' End If 'End If End Sub رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مايو 6, 2012 مشاركة قام بنشر مايو 6, 2012 تفضل أخي رسالة تنبيهية 4.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 6, 2012 مشاركة قام بنشر مايو 6, 2012 السلام عليكم لتعدد الحلول استعين بهذا الكود عله يفي بالغرض Public AA As String Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$C$3" Then If Range("c4").Value + Range("c5").Value + Range("c6").Value + Range("c7").Value + Range("c8").Value = 0 Then If Range("c9").Value = "متعهد " Then AA = "متعهد وغير ملتزم بالأقساط" ali Else ali AA = "الموظف غير ملتزم بالأقساط ويلزمه إبرام تعهد" End If End If End If If Target.Address = "$C$3" Then If Range("c4").Value + Range("c5").Value + Range("c6").Value + Range("c7").Value + Range("c8").Value > 0 Then If Range("c9").Value = "متعهد " Then AA = "الموظف متعهد وملتزم بالأقساط" ali Else AA = "الموظف ملتزم بالأقساط ولكن يلزمه إبرام تعهد" ali End If End If End If End Sub Private Sub ali() Application.VBE.MainWindow.Visible = False Set A_ALI = ThisWorkbook.VBProject.VBComponents.Add(3) With A_ALI .Properties("Caption") = "ALidroos" .Properties("Width") = 233 .Properties("Height") = 84.75 End With Set N_ALI = A_ALI.designer.Controls.Add("Forms.label.1") With N_ALI .Name = "A_Label" .Caption = AA .Top = 12 .Left = 0 .Width = 228 .Height = 48 .Font.Size = 25 .Font.Name = "Traditional Arabic" .BackColor = &H80& .ForeColor = RGB(255, 255, 0) .TextAlign = fmTextAlignCenter End With VBA.UserForms.Add(A_ALI.Name).Show ThisWorkbook.VBProject.VBComponents.Remove A_ALI End Sub رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مايو 7, 2012 الكاتب مشاركة قام بنشر مايو 7, 2012 أخي أبو حنين نعم هو المطلوب جزاك الله كل خير وما عسانا أن نقول سوى دعوة في ظهر الغيب أستاذي alidroos شكرا وألف شكر على المساعدة والرد وكنت دائما تقوم بمساعدتي وستضل إن شاء الله لكن الكود الذي أعطيته لي أين يوضع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 7, 2012 مشاركة قام بنشر مايو 7, 2012 (معدل) السلام عليكم الاخ الفاضل طاهر في حدث الصفحه وهذا المرفق وبه الكود تحياتي رسالة تنبيهية 4_ALI.rar تم تعديل مايو 7, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مايو 7, 2012 الكاتب مشاركة قام بنشر مايو 7, 2012 السلام عليكم حملت الملف ولم تخرج الرسالة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 7, 2012 مشاركة قام بنشر مايو 7, 2012 السلام عليكم تأكد من إعدادات وحدات الماكرو الخاصه بالمطورين حفز ( مربع الثقه في الوصول الى طراز كائن مشروع VBA ) رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مايو 7, 2012 الكاتب مشاركة قام بنشر مايو 7, 2012 السلام عليكم لقد فعلت ما قلت ونجح الكود شكرا أستاذي وبارك الله فيك وفي صحتك وفي عملك وفي عمرك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 7, 2012 مشاركة قام بنشر مايو 7, 2012 الحمد لله اشكرك اخي طاهر على دعائك وكلماتك الطيبه ولك مثله اضعاف مضاعفه ملاحظه =========== الكود يقوم بإنشاء فورم مؤقت وحذفه بعد الاغلاق ============== رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان