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

بسم الله الرحمن الرحيم مع بعض النهاردة هانتعلم الخدع البصرية في اليوزرفورم بطريقة بسيطة باستخدام Image Ctrl استخدمت مثال للشرح Dark Mood App Officana قم بتصميم الشكل بواسطة اي برنامج من برامج تحرير الصور او البوبوبينت بشرط ان تكون بنفس المقاسات مع اختلاف الالوان وفي اليوز نضيف Image Ctrl الملف بسيط ولا يحتوي الا اكواد الحركة للاداء معاينة الفورم https://youtu.be/VGL00cnLVF8 الملف بالمرفقات Dark Mood App Officana.xlsm وبالتوفيق للجميع

السلام عليكم 🙂 عمل مبدع ، وكود نظيف وسهل التتبع 🙂 الشيء الوحيد اللي عدّلت فيه هو ، عند النقر على ايقاف الساعة ، كانت تختفي ، فقمت بإيقاف السطر 🙂 Me.txtRemainTime = Null جعفر

كما العنوان عداد تنازلي بالميلي ثانية مع خيار بالتوقف المؤقت وخيار استئناف العد من جديد. StopwatchExample_01.accdb

تمت التعديلات التالية: - الأخذ في الاعتبار تغير التاريخ عند الساعة 12 ليلا. - تبديل الخط لصندوق للعداد مع وضع عنوان مصدر الخط لمن يريد انزاله وحفظه في مجلد الخطوط للويندوز. - أخذ ملاحظة عزيزنا جعفر بإبقاء الوقت عند الإيقاف النهائي للعد واستبداله بالتعامل مع زر الإيقاف المؤقت. - بعض التحسينات في الكود. StopwatchExample_02.accdb

السلام عليكم هذا حل آخر بالمعادلات دون عمود مساعد والمعادلات هي معادلات صفيف (يجب تأكيدها بـ CTRL+SHIFT+ENTER)... Book2_2.xlsx

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

السلام عليكم ورحمة الله وبركاته مرفق لكم ملف اكل بشاشة ادخال بيانات مميزه اتمنى لكم الاستفادة اسم المستخدم = a كلمة السر = 123 كلمة السر لاضافة مستخدم جديد = 123 نموذج.xlsm

السلام عليكم وبها نبدأ اي موضوع الاصدقاء الاكارم تحية طيبة تطبيق اليوم تقويم مصغر و خفيف و بسيط لنماذج الاكسل التطبيق الاساسي من صنع الاستاذ ابو ادم لنماذج الاكسس و تم تعديله ليعمل على نماذج الاكسل لا داعى لضغط الملف اذا كانت مساحته بسيطه MiniGalendar.xlsm

شكرا لك اخي @TQTHAMI على ردك وكذلك على المثال الجميل الذي ارفقته لكن المطلوب غير المثال الذي ارفقته .. ولم أعرف كيف اروض كود RGB حتى يعمل في مثالك .. فالمثال الذي ارفقته أنت يعتمد على رقم غريب ولا يتم اعتمادة في عالم التصاميم و الالوان .. ودائما اعتمادي في الألوان على كود الألوان الذي يبداء ب # وكذلك على RGB اكرر شكري لك واتمنى ان اجد الحل .. حسب المطلوب

هذا مثال جميل قد يقيدك ارقام الالوان.rar

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

واذا تسمح لي اخوي ابو احمد ، بجعل البرنامج تلقائيا يستخدم الخط ويحذفه عند الخروج من البرنامج (استخدمت هذه الطريقة في احد برامجي في لخط الباركود 🙂 ) ، وعليه ، صورة نموذجك بالخط الصحيح سيكون . والوحدة النمطية لإضافة وحذف الخط Private Declare PtrSafe Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA" ( _ ByVal lpFileName As String) As Long Private Declare PtrSafe Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" ( _ ByVal lpFileName As String) As Long ' Public Function AddFonts(Font_Name_Path As String) Dim result As Long result = AddFontResource(Font_Name_Path) 'MsgBox Result & " fonts added" End Function Public Function RemoveFonts(Font_Name_Path As String) Dim result As Long result = RemoveFontResource(Font_Name_Path) 'MsgBox Result & " fonts added" End Function . وننادي الاضافة عند فتح النموذج ، ثم ننادي الحذف عند اغلاق النموذج: Private Sub Form_Open(Cancel As Integer) Call AddFonts(CurrentProject.Path & "\Digital_Font\digital-7 (mono).ttf") End Sub Private Sub Form_Close() Call RemoveFonts(CurrentProject.Path & "\Digital_Font\digital-7 (mono).ttf") End Sub . مع مراعاة اني عملت مجلد للخط "digital-7 (mono).ttf" اسميته Digital_Font في مجلد البرنامج . جعفر StopWatch.zip

اخونا الاستاذ / حمدى الظابط هو موضوع جميل وانا من ضمن الناس التى تنتنظر النتيجه النهائية انا كنت متابع من بعيد ولكن قولك "مازال عندى امل بمشاركتهم " هو الذى جعلنى اعرفك بان الكثير يتنظر ولكن لايشارك جزاكم الله كل خير

مصال قديم ممكن تستفيد منه و تعدل عليه Form InstancesEmployees.zip

اسمه Digital ، وعند البحث عن خط digital ، اول رابط حصلت عليه https://www.1001fonts.com/digital-7-font.html جعفر

وعليكم السلام ورحمة الله وبركاته الجواب كما يلي: إن أردت تطبيق المعادلة على كل المعطيات لديك ضع هذه المعادلة ،واسحب نزولاً. =IF(AND(W6=12;V6=1;U6>=500;T6>=1800;S6<=3600);35%;IF(AND(W6=18;V6=2;U6>=750;T6>=3650;S6<=5500);40%;IF(AND(W6=24;V6=3;U6>=1000;T6>=5550;S6<=7500);45%;IF(AND(W6=30;V6=4;U6>=1500;T6>=7550;S6<=10000);50%)))) أرجو أن تنتفع به . تقبل تحياتي. طلب مساعدة.xlsx

شكرا لك أخي أبو أحمد .. إبداع 🙂🌹

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

قبل ان تطلب اي تعديل وجب عليك قراءة التوقيع جيدا لات هذا اهدار للوقت. جرب هذا التعديل في الرسالة MsgBox ("it's already existed!" & wks.Name)

الاستاذ @Mohamed Hicham المحترم تحية طيبة وبعد اولا بشكرك جزيلا علي الكود جميل ومختصر بس محتاج حضرتك تشرحه ليا عشان الاستفادة و التعلم منه لو الواحد حابب يطبقه علي شيتات اخري ثانيا كده تم الانتهاء من الخطوة الاولي وهي الترحيل وكده الموضوع ده اتقفل ومفروض تفتح موضوع جديد بالطلب الجديد ليكون مرجع للاعضاء بعد ذلك

Book2.xlsm

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

استبدل السطر التالي Range("F" & LR).Value = Me.TextBox3.Value بالشرط If Me.TextBox3 <> "" Then Range("F" & LR).Value = Me.TextBox3.Value Else MsgBox "Please enter the quantity" Me.TextBox3.SetFocus End If End Sub او If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub Range("F" & LR).Value = Me.TextBox3.Value

تحديث للملف نموذج.xlsm

amarhowari ..انتبه من فضلك فالكود يعمل بكل كفاءة ..بارك الله فيك استاذ ابراهيم ..بعد اذن أستاذنا ابراهيم هذا هو الكود بعد وضعه بالملف وشوف النتيجة بنفسك فهذا يكفى !!!! شيتات.xlsm

السلام عليكم ورحمة الله استخدم هذا الكود Sub SeaechData() Dim Sh As Worksheet, ws As Worksheet Dim LR As Long, i As Long, C As Range Dim ShNam As String Set Sh = Sheets("ورقة11") For Each ws In Worksheets If ws.Name <> Sh.Name Then LR = ws.Range("A" & Rows.Count).End(3).Row i = 7 Do While Sh.Cells(i, 6) <> "" For Each C In ws.Range("A1:A" & LR) If C.Value = Sh.Cells(i, 6) Then ShNam = ws.Name Sh.Cells(i, 7) = ShNam End If Next i = i + 1 Loop End If Next End Sub

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

السلام عليكم ورحمة الله وبركاته يرجى تجربة هذا الحل match.xlsx

تفضل 1تقريب.xlsx

لك ما تريد Salimتنسيق شرطى.xlsx

وعليكم السلام-تفضل لك ما طلبت مواقيت 2الصلاة.xlsm

استاذنا @ابوخليل @محمد ايمن @omarahmed1424 @abosherif1 @wael_rafat في هذا الرابط راح تجدون ما طلبتم الكود مع شرح بالفيديو https://whatsmate.github.io/2017-02-04-send-whatsapp-message-vba/ و استاذنا @Elsayed Bn Gemy انت مطلوب هنا للمشاركة في هذا الموضوع اذا عندك معلومة عنه

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

اخواني الكرام السلام عليكم و رحمة الله وبراكاته هذه الدالة للترجمة من الانجليزية الى لغات العالم اكتب النص بالانجليزية ثم اختر اللغة من القائمة المنسدلة ارجو ان يحوز اعجابكم دالة ترجمة.xls