اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

و يمكن الاضافة على الادعية التي به

أتمنى أن يكتب الله لنا به الأجر إن شاء الله

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

و لا تنسونا من صالح دعائكم

الأدعية و الإستغفار.rar

قام بنشر

السلام عليكم

بارك الله فيك أستاذ يحيى وجعله في ميزان حسناتك و بلغك به غفرانه

ممكن بعد إذنك تشرح أو تدلني على رابط لشرح كيفية إضافة تشكيل أيات الله

دمت في طاعة الله

أيسم إبراهيمِ

قام بنشر

اخي احمد حافظ

و اخي amaboody

و اخي ايسم

شكرا على مروركم الطيب

و اخي ايسم انا قمت بنسخ و لصق الايات القرآنية

و لو بحثت في الانترنت ستجد الكثير من المواقع التي تحتوي القرآن الكريم

قام بنشر

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

بارك الله فيك يا اخى في الله وجعل هذا العمل في ميزان حسناتك إن شاء الله

قام بنشر

جزاك الله خيرا أخي يحيي

و اقترح تعديل بسيط لتمكين المستخدم من التوقف وقتما يشاء

Private Sub Workbook_Open()

Dim x As Byte

Dim MyRng As Range
1 For y = 1 To Range("a1:a" & Rows.Count).End(xlDown).Row
x = MsgBox(Range("a" & y).Value, vbOKCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "لا تنسونا من صالح دعائكم : أخوكم في الله يحيى حسين")
If x = vbCancel Then Exit Sub
Next y
x = MsgBox("هل ترغب في إعادة إستعراض الملف", vbYesNo)
If x = vbYes Then
GoTo 1
End If
End Sub
[/sql]

قام بنشر

أخي Lika

و أخي سالم

و أخي خبور

و أخي محمد طاهر

يعلم الله أني أحبكم فيه

تقبل الله طاعاتكم

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

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

و إن شاء الله سيتم تعديل الملف لاحقاً حتى يتم عرض هذه الرسائل داخل فورم

حسب اقتراح اقترحه أخونا أبو اسامة بإستخدام الخاصية

Application.wait

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

كل عام و انتم بخير

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information