الرجاء التعديل على هذا الكود

[ريان أحمد]

السلام عليكم

الرجاء التعديل على هذا الكود في المرفق بحيث تخرج في الرسالة يوسر فورم بدلا من رسالة من الإكسل

رسالة تنبيهية 4_2.rar

[أبو حنــــين]

السلام عليكم

تفضل اخي الكريم

رسالة تنبيهية 4.rar

[الـعيدروس]

السلام عليكم

الاخ الاستاذ أبو حنين

يعطيك العافيه عمل جميل

تقبل مروري

[أبو حنــــين]

مرورك اخي ابو نصار كالريح التي بها العطر و المسك

بارك الله فيك و رعاك

[ريان أحمد]

السلام عليكم أخي

شكرا على الرد لكن ليس هو المطلوب

إليك المطلوب بشكل أكثر دقة

عندما تستدعي موضف عن طريق رقم ويكوم مستوفي للشروط تخرج رسالة تنبيهية في

' --- 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

[أبو حنــــين]

تفضل أخي

رسالة تنبيهية 4.rar

[الـعيدروس]

السلام عليكم

لتعدد الحلول

استعين بهذا الكود

عله يفي بالغرض

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

[ريان أحمد]

أخي أبو حنين نعم هو المطلوب جزاك الله كل خير وما عسانا أن نقول سوى دعوة في ظهر الغيب

أستاذي

alidroos شكرا وألف شكر على المساعدة والرد وكنت دائما تقوم بمساعدتي وستضل إن شاء الله لكن الكود الذي أعطيته لي أين يوضع

[الـعيدروس]

السلام عليكم

الاخ الفاضل طاهر

في حدث الصفحه

وهذا المرفق وبه الكود

تحياتي

رسالة تنبيهية 4_ALI.rar

تم تعديل مايو 7, 2012 بواسطه alidroos

[ريان أحمد]

السلام عليكم حملت الملف ولم تخرج الرسالة

[الـعيدروس]

السلام عليكم

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

حفز ( مربع الثقه في الوصول الى طراز كائن مشروع VBA )

[ريان أحمد]

السلام عليكم

لقد فعلت ما قلت ونجح الكود

شكرا أستاذي وبارك الله فيك وفي صحتك وفي عملك وفي عمرك

[الـعيدروس]

الحمد لله

اشكرك اخي طاهر على دعائك وكلماتك الطيبه

ولك مثله اضعاف مضاعفه

ملاحظه

===========

الكود يقوم بإنشاء فورم مؤقت وحذفه بعد الاغلاق

==============