عبدالله المجرب

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

السلام عليكم ضع هذا الكود في محرر أكواد الفورم Private Sub Finish_AfterUpdate() If Me.Finish.Value = 0 Then If InputBox("ضع كلمة المرور", "تنبيه") = "123" Then Me.Finish.Value = 0 Else Me.Finish.Value = -1 Exit Sub End If End If End Sub

ما شاء الله لا زال منتدى الأكسل زاخر بكل الطاقات التي تتفانى وتتسابق في خدمة الأخرين

جُزيت خيراً استاذنا الفاضل ابا ادم ومتعك الله بالصحة والعافية وطول العمر ================================================================= جربت الرابط أعلاه لكن الموقع يتطلب تسجيل ولا بد من إدخال بيانات بطاقة دفع ليتم الحصول على شهر مجاناً لم اجازف بتسجيل بطاقة الكريدت كارد الخاصة بي حتى نرى الجديد وهل تنصحني بالتسجيل وهل سيتم خصم نبلغ الإشتراك (حوالي 19 دولار) تلقائياً بعد الشهر المجاني ثم السؤال المهم هل الحل موجود ام لا وهل يناسب الماسح الخاص بي ام لا وشكراً

الملف يعمل لدي وقد تم انشاء فولدر وداخله ملف بصيغة PDF

وعليكم السلام ورحمة الله وبركاته قواك الله استاذ ابو أدم ============================= شكراً لك على مشاركتك وبإنتظار الحل إن شاء الله

للرفع

السلام عليكم Sub MyMsg() Dim Mytxt As String Mytxt = "ÇáÓáÇã Úáíßã æÑÍãÉ Çáå æÈÑßÇÊå" MsgBox Mytxt End Sub هذالكود تم نسخة ولغة الكتابة اثناء العمل على محرر الأكود هي الإنجليزية وهذا هو نفس الكود بعد تغيير اللغة الى العربية بإستخدام Shift + Alt Sub MyMsg() Dim Mytxt As String Mytxt = "السلام عليكم ورحمة اله وبركاته" MsgBox Mytxt End Sub أي أني أقصد تغيير لغة الكتابة بواسطة Shift + Alt

شكراً لمجهودك استاذ رضوان جربت الرابط المذكور والنتيجة

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

شاكراً لجهودك استاذنا الفاضل وبإنتظار الحل إن شاء الله =================

حياك الله استاذ رضوان تعمل الطرق السابقة في حال سحب الصورة بصيغة jpg ولكن المشكلة مع Pdf وكذلك التحكم في ملف الحفظ عن طريق الكود

الرجاء وضع مسميات أعمدة الترحيل لكي يتضح الأمر وضح أكثر المقصود بالسطر الثاني

السلام عليكم أساتذتي الكرام بدايةً قام الأستاذ أبو أدم مشكوراً بتزويدي ببرنامج للوثائق وقد قمت بالتعديل عليه ليصبح برنامج للأرشفة وحفظ المراسلات ================================================================= عملي يعتمد في المقام الأول على جهاز الماسح الضوئي ليسحب الوثائق بصيغة pdf والماسح الذي لدي هو من نوع fujitsu fi7160 كما في الصورة ================================================================ هذا النوع من الأجهزة يعطي خيارين لسحب الصور أما بصيغة jpg أو pdf وللتحويل الى نوع pdf توجد هذه الأداة Scan Snap وهذه صورتها عند سحب الصورة تظهر هذه الرسالة ويتم إغلاقها لكي يتم الحفظ في ملف الحفظ المحدد مسبقاً علماً بأنه لا بد من إختيار مجلد الحفظ في هذه الأدة عن طريق الضغط عليها وإختيار كما في الصورة لتظهر هذه الصفحة ============================================================ المطلوب أن يتم التحكم بكل هذه الخطوات السابقة (تتم يدويا) عن طريق الكود في الأكسس إبتداء من المقدرة على تغيير مجلد الحفظ وحتى القيام بسحب الأوراق لانه لسحب الأوراق لابد من الضغط على زر في الماسح علماً أنه يمكن أن يتم عن طريق الضغط Duplux Scanعلى ما هو مبين في الصورة يتم سحب الأوراق ================================================= ملاحظة استطعت القيام بعمل زر لتشغيل الماسح في وضع مسح بصيغة pdf وهذا هو الكود Shell "C:\Program Files\fiScanner\ScanSnap Manager\PfuSsMff" وشكراً

ما شاء الله الاخ الفاضل رمهان سلمت يمينك على هذه الهدية القيمة

السلام عليكم اليك المرفق db5.rar

تفضل المرفق بعد التعديل كما طلبت User1.rar

السلام عليكم تفضل المرفق إن شاء الله يكون المطلوب User.rar

تم إضافة المرفق للمشاركة لسهولة التحميل

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

فكرة رائعة

احسنت استاذنا الفاضل ابو خليل

جزاك الله خير أخي محمد الريفي

استعمل هذه المعادلة في الخلية الحمراء =COUNTIF(B10:J10;">1")

السلام عليكم لمحبي الرسائل التنبيهية في الأكواد هذه طريقة لجعل الرسالة تختفي بعد فترة محددة من الزمن وللأمانه هي من اعدادا الإستاذ محمد صالح (ماس) CreateObject("Wscript.shell").Popup "إنتظر قليلاً ستختفي هذه الرسالة خلال ثانية ", 1, "إنتظار !!!!", vbExclamation طبعاً الرقم 1 هو الزمن المختار لإختفاء الرسالة بعد عرضها