ياسر خليل أبو البراء

أخي الحبيب إذا كنت تريد ذلك فلابد أن تكون البيانات التي سيتم إدخالها موجودة مسبقاً في مكان ما بورقة العمل حتى يمكن مقارنة البيانات الموجودة بالبيانات التي سيتم إدخالها .. مزيد من التوضيح سيساعد الأخوة الأفاضل في حل مشكلتك بأسرع وقت

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

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

تفضل أخي الحبيب هذا الملف عله يفي بالغرض Numbers To Text.rar

بسم الله ما شاء الله تبارك الله بارك المولى عزوجل فيك وجعل عملك صالحا ولوجهه خالصا وجعله في ميزان حسناتك يوم القيامة موضوع رائع وشيق وممتع ومفيد .. في انتظار المزيد من إبداعاتك أخي إبراهيم لي اقتراح بسيط : تجميع المشاركات الخاصة بك في بداية الموضوع حتى يكون مرجع للجميع .. لي اقتراح آخر يخصك هو تسمية الملفات بأسماء تخص الجزئية المحددة للشرح حتى نحتفظ بهذه الملفات للرجوع إليها كمرجع . أتمنى ألا أكون أثقلت عليك باقتراحي الأخير

أخي الحبيب لم افهم المطلوب جيدا .. ما الفائدة من عرض ورقة الإكسيل داخل فورم ؟

الاخ الغالي غريب ببساطة قم بالدخول إلى صفحة الفيجوال بيسك عن طريق التبويب Developer ثم Visual Basic ستجد في الجهة اليسرى ناذة بعنوان Project واضغط على كلمة Module ستظهر لك في الناحية اليمنى أكود يكون الشكل العام لها كالتالي Sub Test() هنا أسطر برمجية End Sub حيث Test هو اسم الإجراء البرمجي المراد تنفيذه المهم خذ هذه الأسطر جميعها بما فيها البداية والنهاية وانسخها إلى ملفك ستقوم بنفس الخطوات للصق الكود ولكن قبل لصق الكود لابد من إدارج موديول Module في ملفك للصق الكود فيه ويكون ذلك عن طريق الفيجوال بيسك من قائمة Insert ثم اضغط الأمر Module أرجو أن تكون قد استفدت

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

الأخوة الكرام / محمد الخازمي والأخ / طلعت محمد حسن أشكركم على مروركم الكريم على موضوعي المتواضع وأسأل الله أن ينفع الناس بما علمنا وأن يجعله شاهدا لنا لا علينا

شرح المعادلة ببساطة .. استخدمت دالة IF بمعنى إذا / لو لو الخلية F2 فارغة "" ، الشرط الذي يتحقق أن يكون الناتج أيضاً قيمة فارغة أما إذا لم يتحقق الشرط وكانت الخلية غير فارغة فإن الإكسيل يقوم بالعملية الحسابية التالية SUBTOTAL(3;$F$2:F2) الدالة Subtotal تقوم بإرجاع إجمالي فرعي في إحدى القوائم أو قواعد البيانات والرقم 3 يشير إلى الدالة Counta التي تقوم بحساب المجاميع الفرعية بما في ذلك القيم المخفية والجزء الثاني بعد رقم 3 هو النطاق المراد عمل عد المجاميع الفرعية له

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

إخواني إليكم ملف فيه نموذج للـ Timer مبسط جدا أرجو أن يفيدكم إن شاء الله Simple Timer.rar

الأخ الغالي عاشق الإسلام أنت قمت بوضع الأسطر التي ذكرتها لك في المكان الخاطيء الكود بالشكل الصحيح Dim StopTimer As Boolean Dim Etime As Single Dim Etime0 As Single Dim LastEtime As Single Private Sub CommandButton4_Click() Unload Me End Sub Private Sub ResetBtn_Click() StopTimer = True Etime = 0 Etime0 = 0 LastEtime = 0 ElapsedTimeLbl = "00:00:00.00" Me.Caption = "Mahmoud Zaki Mousa EL Shrief " End Sub Private Sub StartBtn_Click() StopTimer = False Etime0 = Timer() - LastEtime Do Until StopTimer Etime = Int((Timer() - Etime0) * 100) / 100 If Etime > LastEtime Then LastEtime = Etime ElapsedTimeLbl = Format(Etime / 86400, "hh:mm:ss.") & Format(Etime * 100 Mod 100, "00") DoEvents End If Loop End Sub Private Sub StopBtn_Click() StopTimer = True Beep End Sub

الأخ صاحب الموضوع الكود بدون الملف ليس منه فائدة على الإطلاق ارفق ملفك عل أحد الأخوة يعينك على حل مشكلة بطء الملف ..!!

أعمال في منتهى الروعة والجمال والإبداع . بارك الله فيكم إخواني الأجلاء

الأخ صاحب الموضوع ممكن توضيح المطلوب لأني لم أفهم المطلوب من الملف المرفق .. عذرا مزيد من التوضيح

الأخ الحبيب ببساطة حدد الخلية A1 انقر التبويب Data ثم اضغط Sort A to Z

تسلم يا بروف على الإضافة الرائعة .. Create Basic Task هي البداية لعمل تذكير . نقوم بتحديد التاريخ والوقت وتحديد مكان الملف أو البرنامج المطلوب فتحه من خلال الضغط على كلمة Browse ... جزاكم الله خيراً أخي البروفسير

ممكن ترفق الملف الذي تعمل عليه بعد إضافة الأسطر التي ذكرتها لك .. لأن الملف لم يكن يعمل بالفعل في بداية الأمر وعندما أكملت الكود بالأسطر المذكروة عمل الكود معي بنجاح .. لطفا ارفق ملفك بعد الإضافة

بارك الله فيك أخ سليم وجعل أعمالك في ميزان حسناتك يوم القيامة أشكرك على التوضيح لأن التوضيح هام جدا خصوصا للمبتدئين ، حتى يستفيد الجميع أقصى استفادة من مواضيع المنتدى المتميزة التي يكتبها أساتذة أجلاء جزاهم الله خير الجزاء في الدنيا والآخرة

ألأخ الحبيب ادخل الـ Control Panel ثم Administrative Tools ثم Task Scheduler أو اكتب الأمر cmd في الـ RUN من قائمة Start ثم اكتب الأمر Taskschd.msc

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

السلام عليكم إخواني الكرام في المنتدى الرائع أقدم لكم كود بسيط يتم وضعه في حدث Worksheet_BeforeDoubleClick يقوم الكود بوضع علامة صح عند النقر المزدوج على أي خلية في النطاق A1:A100 يمكنك تغيير النطاق إلى أي نطاق تريده .. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub

لطفا أخي ارفق ملف .. الاحتمال أن يكون الكود البرمجي في ملفك به خطأ في الإعلان عن المتغيرات أو ما شابه

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