كتابة بيانات فى MsgBox

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم 

بعد التحية

كتابة اسماء الشهور المسدده للمشترك مرفق البرنامج‏‏‏‏‏‏‏‏صندوق رسالة.rar

ولكم جزيل الشكر والتقدير

[بن علية حاجي]

السلام عليكم ورحمة الله

تم عمل المطلوب في الملف المرفق... وفي الكود زيادة أمر (غير مقعل) وضعته لاختبار تساوي قيم الاشتراكات الشهرية لكل عضو مع قيمة الخلية في العمود D (قيمة الاشتراك الشهرية) وفي حالة عدم التساوي يلغى الشهر من قائمة الشهور المسددة (إن كان هذا الأمر في الكود مفعلا)....

بن علية حاجي  

‏‏‏‏‏‏‏‏صندوق رسالة.rar

[طارق زكريا حسين جاه الرسول]

اشكرك جزيل الشكر استازى ومعلمى بن علية حاجى ذلك هو المطلوب بالضبط

[بن علية حاجي]

السلام عليكم ورحمة الله

إذا أردت أن يتم إغلاق MsgBox أوتوماتيكيا بعد فترة زمنية تحددها (في الكود الموالي جعلت MsgBox يغلق بعد 1 ثانية) يمكن تعويض كودك السابق بالكود التالي:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SH As Object
Set SH = CreateObject("WScript.Shell")
If Not Intersect(Target, Range("tarek")) Is Nothing Then
mnth = ""
For i = 16 To 5 Step -1
'هذا السطر لاختبار وجود قيم غير فارغة في السطر الحالي من العمود 5 إلى العمود 16
  If Cells(Target.Row, i) <> "" Then mnth = Cells(2, i).Value & " - " & mnth
'هذا السطر لاختبار تساوي قيم السطر الحالي من العمود 5 إلى العمود 16 مع قيمة الخلية في العمود 4 أي قيمة الاشتراك
'  If Cells(Target.Row, i) = Cells(Target.Row, 4) Then mnth = Cells(2, i).Value & " - " & mnth
Next
End If
On Error Resume Next
mnth = Mid(mnth, 1, Len(mnth) - 3)
SH.Popup "      " & "    " & Cells(Target.Row, 2) & Chr(13) & vbCrLf & "  .... اسماء الشهور المسددة  " & "  " & Chr(13) & mnth, 1, "تم سداد الاشتراك", 48
Set SH = Nothing
End Sub

توقيت الإغلاق يمكن التحكم فيه في الجزئية التالية من الكود:  Chr(13) & mnth, 1 بتغيير الرقم 1 (1 ثانية) بأي رقم آخر...

ملاحظة : يمكن أيضا غلق MsgBox قبل انقضاء الفترة المحددة للغلق بواسطة الزر OK الموجود في العلبة

أخوك بن علية حاجي 

[طارق زكريا حسين جاه الرسول]

استاذى ومعلمى  بن علية حاجي الف الف شكر وتقدير

[عاطف عبد العليم محمد]

السلام عليكم ورحمة الله وبركاته 

عذرا   نزلت الملف وعند فتحه يعطيني رسالة محتويات محتمل خطورتها تم حظرها ـ ماذا افعل ؟ اظن الرسالة من مايكروسفت

شكرا وجدت الحل