كل الانشطه

المطلوب تعديل على المعادلة =IF($B10="","",VLOOKUP($B10,nageh,25,0)) باضافة دالة Round لجعل القيمة العشرية للمادة قيمة صحيحة وعند عدم وجود رقم جلوس تبقى خلية المادة فارغة هذا الجزء مأخوذ من شيت اخر للعلم تعديل معادلة.xlsx

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

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

للعلم أن يستخدم موقع ويب الواتس اب وليس التطبيق

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

السلام عليكم ورحمه الله وبركاته - كود طباعة الشهادات PDF لا يعمل 2022شيت مدرستى شهادات الأول والثانى- الصف الأول.xls

و عليكم السلام ورحمة الله و بركاته تفضل الملف https://www.mediafire.com/file/p7a1e5mgcdsbhx8/المالي.xlsm/file

وبعد عدة محاولات ، اتضح ان السطر المذنب هو: Debug.Print Players, InStr(1, Players, Me.PlayerTxt) في الدالة generateQ() . اوقفت عمله ، استمتعت باللعبة 🙂

جرب تعمل Compile وجرب مجددا .. وإذا انحلت معاك سأحدث الملف

الأساتذة الاجلاء السلام عليكم ورحمة الله ارجو المساعدة في فك حماية محرر الأكواد لهذا الملف وهو أحد ملفاتي القديمة احتجت الى العمل عليه وتحديث بياناته ونسيت كلمة مرور محرر الأكواد وجربت كذا طريقة لفك حمايته ولكن لم انجح حتى الان فورم الدخول اسم المستخدم : فني البرنامج كلمة المرور : 1924 رابط تحميل الملف حيث حجمه اكبر من المسموح في المنتدى https://www.mediafire.com/file/eumuticj9negwgq/المالي.xlsm/file

وعلى طاري صياد الأخطاء وأنا اكتب كود مرة بعد ما انتهيت تبادرت لذهني فكرة وسألت الذكاء الاصطناعي يعطيني جميع أرقام الأخطاء المحتملة للعملية اللي أشتغل عليها وصفلي في حدود 8 ال 9 أخطاء محتملة ما خطرت على بالي .. وريحني وكفاني من عناء التجارب .. 🙂👌 هذي العبارة ترد لي الشباب 😂✋🏻

حاولت العب ، بس البرنامج يغلق بعد ان ادخل اسمي !!

وعليكم السلام ورحمة الله وبركاته على طاري الاولاد ، كنت اعمل على نموذج واكتب الكود لاصطياد جميع انواع الاخطاء ، وانتهيت من العمل. جاء احد الاحفاد ، وما اعرف شو عمل على الشاشة ، واذا يظهر لي خطأ جديد ، ولا عرفت كيفبة ظهوره !! فكرة جميلة ، شكرا للمشاركة 🙂

اعرض الملف 🧮>> لعبة مطابقة الأرقام <<🧮 :: هدية خفيفة :: لتنمية مهارة التركيز 😉👌 :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: اليوم جايب لكم هدية خفيفة وظريفة 😊🎁 🧮🧮>> لعبة مطابقة الأرقام <<🧮 وأنا جالس مع الأولاد قلت أعلمهم شوية أكسس وأحنا بنلطش فيه ( بنخبص فيه 😅) جات لنا فكرة هذي اللعبة وجلسنا نطور فيها أنا والأولاد بأفكارهم الجميلة وتنفيذي المتواضع 😊 لحد ما وصلنا للنتيجة هذي . وهذي صورة اللعبة : وكيفية اللعب : :: ولا تنسونا من صالح دعواتكم 😊🤲:: صاحب الملف Moosak تمت الاضافه 05/30/25 الاقسام قسم الأكسيس  

السلام عليكم استاذة كرام هذا الملف سوف يكون مكون تقريبا من 7 الاف إلى 8 آلاف اسم ..... أحتاج ان يرسل رسالة إلى رقم الواتساب اذا كان لديه واتساب وان يتجاوز الرقم اذا لم يكن لديه واتساب 1) يرسل صورة في عمود (صوره الكتاب) احيانا مشتركة ل100 شخص نفس الصورة واحيانا لشخص واحد 2) يرسل صوره في عمود ( الكارت ) نفس الصورة لجميع الأشخاص 3) يرسل رسالة موحده في عمود ( الرسالة ) نفس الرسالة لجميع الاشخاص ارسال رسائل الى الواتساب1.accdb

وعليكم السلام ورحمة الله تعالى وبركاته إذن أخي الكريم على الأقل قم بإرفاق ملفك وبه الأكواد المطلوبة مع ذكر النواة التي تستخدمها حاليا هل هي 32 أو 64 لتوضيح ما يظهر معك من أخطاء عند محاولة تنفيذ الكود لا يمكن العمل على التخمين !!!

أخي @algammal جزاك الله خيرا على كلماتك الطيبة وطرحك الرائع وأسأل الله أن يجعل عملنا هذا في ميزان حسناتنا جميعا سررت كثيرا بتقديرك وتشجيعك الكريم وهذا هو الدافع الحقيقي للاستمرار والعطاء بخصوص الملاحظات التي أشرتم إليها في مشاركتكم السابقة للأستاذ @عبدالله بشير عبدالله جزاه الله خيرًا على تفانيه الدائم في إثراء المواضيع بمساهماته القيمة فقد تم الاطلاع عليها بعناية والعمل على تطبيقها على الـ UserForm أيضا وذلك لضمان تجربة أكثر تكاملا وسلاسة في الأداء 1) قائمة أسماء أيام الأسبوع في الخلايا (H5) و(K5) تم إضافة ميزة البحث حسب اليوم بشكل مباشر وذلك من خلال استبدال المعادلات في ورقة DATA لتتوافق مع اللغة العربية بالشكل التالي: يوم تاريخ الميلاد =IF(I5="خطأ بالرقم القومى", "", IF(I5<>"", CHOOSE(WEEKDAY(I5, 2), "الإثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت", "الأحد"), "")) يوم تاريخ المعاش =IF(L5="", "", CHOOSE(WEEKDAY(L5, 2), "الإثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت", "الأحد")) 2) ملاحظات الخلية (M5) نظرا لاستخدام UserForm فلا حاجة لإدراج قائمة منسدلة يدويا لأن عناصر الـ ComboBox تتعرف تلقائيا على القيم المختلفة الموجودة في الأعمدة مع الحرص على عدم تكرارها هذا يسهل عملية التصفية ويجعل الواجهة أكثر ديناميكية وسلاسة في الاستخدام 3) الخلية (A5) والبحث بالترقيم التسلسلي: تم تجاهل الترقيم التسلسلي في البحث لأنه لم يعد ضروريا مع اعتماد واجهة الـ UserForm التي تتعامل مع البيانات مباشرة وتغطي كافة الأعمدة المتوفرة ضمن النطاق A:M في الرقتين (Data و معاشات) ومع ذلك إذا كانت هناك حاجة حقيقية لإستخدام المسلسل لأغراض معينة (مثل تتبع أو فرز إضافي) أو البحث بواسطته فيمكننا طبعا إضافته بكل سهولة لا ننسى تقديم الشكر الجزيل لكل من الأساتذة @عبدالله بشير عبدالله و @Foksh الذين ساهموا في إثراء الموضوع بملاحظاتهم القيمة وجهودهم المباركة جزاكم الله خيرا توحيد البحث في شيت واحد v4.xlsb

بارك الله فيكما وأكثر الله من أمثالكم وزادكم الله من علمه

تعقيباً على ما أشار إليه المهندس @Moosak ، ومن باب التوضيح ، فإن الترتيب المثالي ( من الناحية الفنية والأداء ) يجب أن يكون :- الثوابت ( Constants ) يجب أن تظهر بعد الإعلانات لأنها قد تعتمد على قيم من الإعلانات . الإعلانات ( Declares ) يجب أن تكون في البداية لأن الكود البرمجي يعتمد عليها . وضع الكود البرمجي في النهاية يجعل الكود أكثر تنظيماً وسهولة في القراءة . فشكراً للفت الإنتباه لهذه النقطة ، وقد تم الانتهاء منها بإذن الله تعالى .

انا آسف لمشاركتك الموضوع ، حاولت أوضحلك الفكرة أن ما فيش كود يقدر يحل مشكلتك بالبساطة اللي انت متخيلها . تحويل الأكواد دي بحر وااااسع ومش بكود بسيط تقدر تمشي أي كود على النواتين 32 و 64 . شكراً لك ، وأعتذر عن مشاركتي السابقة اللي انت ما استفدتش منها حاجة .

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

وعليكم السلام ورحمة الله وبركاته ،، أتمنى أن تكون الصورة قد وضحت لي وتم فهمها بالشكل الصحيح 😅 .. انظر للصورة الأولى :- والنتيجة للصورة الثانية :- هل تلبي المطلوب بالشكل الصحيح ؟ خبرتي في اكسل قليلة جداً مقارنة مع الأساتذة ( دون استثناء ) في هذا الصرح الكبير . التنفيذ تم باستخدام الماكرو التالي :- Sub FillAccountNum() Dim ws As Worksheet Dim lastRow As Long Dim i As Long, j As Long Dim accountVal As String Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row For i = 2 To lastRow If InStr(1, ws.Cells(i, "K").Value, "متبقي تعاقد مشروع قسط") > 0 Then For j = i + 1 To lastRow If Trim(ws.Cells(j, "A").Value) Like "Account*" Then accountVal = ws.Cells(j, "A").Value ws.Cells(i, "A").Value = accountVal Exit For End If Next j End If Next i End Sub المرفق بعد التنفيذ :- EXPORT.xlsm وفيما يلي ، توضيح لتفعيل وضع المطور واختيار الماكرو للشيت الحالي .. جرب وأخبرني بالنتيجة ، للمتابعة .

شكرا لك و لك كل التقدير والاحترام

السلام عليكم ورحمه الله وبركاته - أرجو طباعة الشهادات PDF 2022شيت مدرستى شهادات الأول والثانى- الصف الأول.xls