نجوم المشاركات

السلام عليكم ورحمة الله وبركاته... عود على بدء في موضوعي هذا: اقدم لكم النسخة الثانية من اداة رفع الملفات ونسخ الباك اب الى Google Drive لكن هذه المرة ستقوم الاداة بضغط الملف وتشفيرة بباسورد بأستخدام winRAR ومن ثم رفعه الى Google Drive لمنع اي شخص من الاطلاع على محتويات الملف المضغوط لان الضغط هنا سيكون Encrypt File Names بعبارة اخرى سيكون الملف المضغوط هكذا شكله: لن تستطيع ان تعرف ما يحويه الملف المضغوط من ملفات الا اذا قمت بوضع الباسورد. اضفت براميتر جديد على الاداة وهو باسورد الضغط، ستجدون كل شيء في ملف الاكسس، وباقي الامور شرحناها في الدرس السابق لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. GoogleDriveUploader_fixed.rar

اخي العزيز هذا العمل غير صحيح مع النمذج المستمر وحقل غير منظم انظر للتعديل واخبرني الان تستطيع التعديل واسف على التاخر بسبب العمل 123.rar

السلام عليكم ورحمة الله وبركاته... قمت ببرمجة هذه الاداة تلبية لطلب اخونا @ابوخليل في هذا الموضوع هنا: الاداة مبرمجة 100% بلغة NET. وهي تستعمل مكتبات Google.Apis.Drive وهي تحتاج منصة الفريم ورك 4.5 ملاحظة: انا طبقت الشرح على نسخة احتياطية حيث وضعت الـ Path عبارة عن CurrentProject.FullName يمكنك استبداله بأي مسار صورة او فيديو او ملف او اي شي الشرح بصوتي الجميل😂: https://youtu.be/Uzj68nCaEbo الرابط الذي استعملته في التسجيل: https://console.developers.google.com/apis/credentials/oauthclient/ لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. GoogleDriveUploader.rar

ممكن ترفع الملف على نسخة اقدم .. لانه لايفتح عندي

ماشاء الله عليك اخي الكريم .. كثير حريص على شغلك! وين كنت صارلك 5 اشهر ؟

انا بالخدمة استاذ نبيل...كنت اظن انك تريد مربع تحرير لاضافة السنوات واخر لاضافة الاشهر لكن تلقفها استاذ @Moosak لان كان شاعل بخور 😂

السلام عليكم ورحمة الله وبركاته أخي الكريم ما عليك إلا كتابة رقم ملف العميل في ورقة"حركة تسديد عميل" وبذلك ستظهر النتائج كما تريد حيث تم وضع المعادلة التالية لضبط حركة المعادلات وفق كل عميل على حده. =IF('المبالغ المتاخره'!A27=0;"";'المبالغ المتاخره'!A27) إن حددت المتأخرات لكل عميل في ورقة "المبالغ المتاخره" تم تغيير الجدول الذي من الوضع العمودي إلى الأفقي ليتناسب مع التعديل المطلوب. تم وضع عمود مساعد "A" ،في الخلية A26 تم وضع المعادلة التالية واسحب نزولاً. =HLOOKUP($A$25;$C$25:AL66;ROW()-24;0) أرجو أن يكون بذلك الحل المناسب لطلبك تقبل تحياتي العطرة. _للارسال (4).xlsm

فى الموديول اضف الكود التالى : Dim picPicture As IPictureDisp Set picPicture = stdole.StdFunctions.LoadPicture("D:\1.bmp") وفى القائمة اللى انتا عاوز ليها الايقونة الكود هيكون بالشكل التالى ... With cbObjectCtrl .Caption = rsForms!Name .Tag = rsForms!Name .OnAction = "OpenForm" .Picture = picPicture ' هذه هى الصورة الخارجية ومرفق الصورة المستخدمة فى المثال نزلها و عدل المسار فى الكود . ملاحظات : يجب ان تكون الصورة امتداد Bmp وحجمها مقارب للصورة المرفقة . 1.bmp 1783766372_AmrMultiLevelMenu-AllObjects.accdb

السلام عليكم .. امل ان اجد الحل بعد الله لديكم تم اضافة مرفق به اضافة شيت ( بالمبالغ المتأخره ) اريد ترحيل من الخلية D26 الى الخلية ( حركة تسديد عميل ) I19 . فقط ( اي ما اكتبه في الخلية D26 يظهر في الخلية I19 ‫للارسال.xlsm

وعند جهينة الخبر اليقين 😅

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

استاذي العزيز @nabilalibibo انا فهمت بانك تريد اضافة سنوات (او) اشهر مالذي تقصده من الاختيار من مربع التحرير

تفضل استاذ عمر..مشاركة مع زملائي طريقة بدون اكواد ddsum.accdb

وعليكم السلام 🙂 اخي عمر ، هذا سؤالك ، وكلما وضحته اكثر ، وبأمثلة ، سترى ان رد الاعضاء اسرع وادق 🙂 سؤالك مافيه سؤال ولا شرح وانما مجرد نموذج والسلام !! جعفر

بيختلف ان النموذج الفرعي عن النموذج الرئيسي فى طريقة المناداه اذا كان الكود موجود فى نموذج فرعي وبيتطلب لتشغيله حقل او اى شئ موجود فى النموذج الرئيسي هنا لازم تعبر عن ده بمسار كامل للحقل المطلوب او المرتبط مثلا هناك حقل فى النموذج الرئيسي به رقم الفاتوره والبضاعه يتم تسجيلها فى نموذج فرعي فعند تسجيل البضاعه بيتم ربط الفاتوره (رقمها) بالبضاعه بالمسار كامل Forms![اسم النموذج الرئيسي]![اسم الحقل فى النموذج الرئيسي] وهكذا ما اعذرنى لسه لحد دلوقتى انا مفهمتش ليه عاوز تعمل كده ولما بيتم اختاير شئ من القائه التى فى النموذج الفرعي ايه ال مفترض يحصل انا عاوز تشرحلى انت عاوز تعمل ايه (الحدث) (وفين مكان هذا الحدث) وبعد هذا الاختيار او فعل الحدث ايه ال من المفترض ان تظهر نتائجه وفين هتظهر النتائج دي

السلام عليكم مشاركة مع استاذي ازهر اخي العزيز اول شيء لابد ان اسماء الدول لاتتكرر في القائمة بالنموذج وكذلك اسماء المدن حتلى تسهل عملية الفرز كان من المفترض ان تعمل جداول مرتبطة مجموعة مدن مرتبطة بدولة ومجموعة قرى مرتبطة بمدينة وهكذا تفضل الملف بعد التعديل حسب طلبك وفهمي للموضوع =DSum("totaly";"q";"country=[a] and city=[b] and village=[c]") ونستطيع اضافة لها NZ للتحويل القيمة الفارغة الى صفر =Nz(DSum("totaly";"q";"country=[a] and city=[b] and village=[c]");0) ddsum.accdb مرفق مثال توضيحي للقوائم المرتبطة تحياتي قائمة منسدلة متربطة بقائمة اخرى.accdb

محاولة على قدر فهمي لطلبك ddsum.accdb

اعمل تنسيق شرطي للخلية أخي العزيز .. بحيث لوكان قيمة مربع النص >5 يكون الخط سميك .. هذا حسب ما فهمته على فرض أن محتوى الخلية كله أرقام ، إلا إن كان قصدك أن محتوى الخلية يكون عبارة عن نص هكذا = ( 15 - 20) ؟ فالحل سيكون مختلف . للتكرم بالتوضيح .

Put the following code in worksheet module Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then Application.EnableEvents = False Range("I19").ClearContents On Error Resume Next If Range("H19").Value > 0 Then Range("I19").Value = Range("H19").Value On Error GoTo 0 Application.EnableEvents = True End If End Sub

Press Alt + F11 to login VBE editor From Insert menu select Module Paste the code Back to the worksheet and press Alt + F8 and click Run th execute the code

Private Sub CommandButton1_Click() ActiveCell.FormulaR1C1 = "10" TextBox1.Text = ActiveCell.FormulaR1C1 ExcelSpeak TextBox1.Text ActiveCell.Offset(1, 0).Select End Sub Function ExcelSpeak(sIn As String) As Boolean Application.Speech.Speak sIn, 0, 0, 0 ExcelSpeak = True End Function

السلام عليكم ورحمة الله استخدمى هذه المعادلة =VLOOKUP(B2;INDIRECT("'"&$C$2&"'!"&"A4:B9");2;0)

Or simpler =VLOOKUP(B2,INDIRECT("'"&C2&"'!$A$4:$B$9"),2,0)

=VLOOKUP(B2,INDIRECT("'"&C2&"'!"&"$A$4:$B$9"),2,0)

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

إنتهيت ولله الحمد.. تم التطبيق والعمل بنجاح أخواني @ناقل @ابا جودى @محب العقيدة .. فقط ينتبه لنقطة مهمة وهي : حقل الإيميل يجب أن يكون نص قصير وليس إرتباط تشعبي XX تفاديا لحدوث الأخطاء .. وكذلك برنامج الآوت لوك يكون مفتوح أثناء الإرسال .. أرفقت الملف للتجربة .. وهذا دليل على النجاح ولله الفضل والمنة : هذا شكل النموذج : Course certificates -Mohd+Moosa.rar

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

نعم اسم النموذج الفرعي الذي بداخله الحقل c فقط اما الحقل a فهو خارج النموذج الفرعي...اي بالرئيسي بجانب الكومبوبوكس