كل الانشطه

أطلب من الزملاء المساعدة في ادراج حماية للصفحة مع الحفاظ على الخصائص الموجودة ، حيث اثناء الحماية يطالب الغاء الكود Cells.Interior.ColorIndex = xlNone و عدة اكواد اخرى و هي مهمة لا أريد الاستغناء عنهاو بارك الله فيكم مسبقا. جدول الحراسة.xlsm

السلام عليكم الاخوة الكرام من فضلكم محتاج مساعدة حضراتكم فلي الشيت دةى يكون في الجرد الشهري نتيجة الصافي لكل يوم حسب التاريخ اتواماتيك ( الصافي الشهر ) تصفيات العيادات.xlsx

التصدير بصيغة PDF غير متاح من داخل أوفيس 2003 لكنه متاح فى باقى الإصدارات ، و أظن أن باقى زملائي القدامى يعلم بأنه كانت هناك صيغة تصدير snp مدمجة فى 2003 ( Snapshot Viewer ) وهى ممتازة فى الاحتفاظ بتنسيق الملف كاملاً بكل جداوله وباقى محتوياته ويمكن الطباعة منها مثل الصورة : وقد استخدمت الكود التالي فى استخراج الملف السابق وحفظه فى مكان محدد بالكمبيوتر Private Sub btnSnap2_Click() On Error GoTo Err_btnSnap2_Click Dim defaultFolder As String Dim filePath As String defaultFolder = "D:\_BackUp_Teacher\" If Not (Me.cbo_Class = "") Then If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If filePath = defaultFolder & [Forms]![frm_Section]![cbo_Class] & ".snp" DoCmd.OutputTo acReport, "1_سرى_القاهرة_مع_داخلى", "SnapshotFormat(*.snp)", filePath, False, "", 0 MsgBox "تم استخراج ملف سناب شوت وحفظه في:" & vbCrLf & vbCrLf & filePath, vbInformation + vbMsgBoxRight, "" Else MsgBox (" !!!!! عفواً ،،،، أختر مجموعة من القائمة"), vbOKOnly + vbMsgBoxRight, "ملاحظـة" End If Exit_btnSnap2_Click: Exit Sub Err_btnSnap2_Click: MsgBox ("لا يوجد سجلات لتصديرها "), vbOKOnly + vbMsgBoxRight, "تنبيه" Resume Exit_btnSnap2_Click End Sub بالتجربة وجدت أن هذه الوسيلة متاحة أيضاً فى باقى الإصدارات بشرط تثبيت ملف Snapshot المرفق فهل من وسيلة لإضافة الكود السابق لبنود القائمة المختصرة أعلاه ؟؟ Snapshot Viewer 10.rar

السلام عليكم و رحمة الله و بركاته لقد فتحت الموقع الذي ارسلته و تتبعته جيدا و حاولت ان افهم و لكني لم اتمكن من من معرفة amr1 and amr2 النتيجة تقارب ما اود ان اصل اليه و لكن يمكن يكون بطريقة اخرى وهي كما نصصت عليها في الصور المرفقة ما اردت ان اتمكن من انجازه وهو بمجرد مرور الفارة على كلمة suivi vente الموجودة في الصورة رقم 1 تظهر قائمة التي مصدرها كما في الصورة الرقم 2 و تكون نافذة على شكل الموجود في الصورة رقم 3 و لكم جزيل الشكر. النموذج الذي تركت ؤابطه هو ذو قيمة و ممكن لو كان مفسرا بفيديو لكان اكثر نفعا و لكم جزيل الشكر والامتنان على المجهود الذي تقوم به need help.rar

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

إسمح لي أخي @ابوخليل أن أوضح هذه النقطة عندما يتم تعريف المتغيرات بالكلمة المفتاحية Const فإننا نقوم بتعريف قيمة ثابتة غير قابلة للتعديل إلا عن طريق الدخول إلى محرر VBE وتعديلها ولن نستطيع التعديل من النموذج سواء كانت متغيرات خاصة أو عامة أما مسألة أني جعلتها معلمات للإجراء نفسه فذلك لجعله مختصراً وأكثر مرونة فلو إفترضنا أن المتغيرات كانت عامة على مستوى النموذج فعند إستدعاء الإجراء سنضطر إلى كتابة أمر الإستدعاء بالشكل التالي MY_FONT = cboFonts MY_SIZE = txtFontSize ROW_HEIGHT = txtRowHeight * 567 Call ApplyGlobalFormatting حيث أنا سنقوم أولاً بتعيين قيمة لكل متغير ثم إستدعاء الإجراء أما عندما جعلنا المتغيرات كمعلمات للإجراء فإن أمر إستدعاء الإجراء أصبح بالشكل التالي Call ApplyGlobalFormatting(cboFonts, txtFontSize, txtRowHeight * 567) وأنا أطبق هذا الأسلوب دائماً لسهولته تخيل أننا نحتاج إلى إستدعاء إجراء أو دالة ما لأكثر من مرة وبمعلمات مختلفة فبدل أن نحتاج إلى 5 او 6 أسطر لكل إستدعاء سنكتفي بسطر واحد في الأخير مهما إختلفت طرق الحل لكنها تؤدي إلى نفس النتيجة وكما يقول المثل كل الطرق تؤدي إلى روما تحياتي

متابع

تفضل استاذ @بلال بلال كل طلباتك اليك الشرح والمرفق بعد التعديل . ووافني بالرد . Import Excel From Gmail_Belal-2.rar

اعرض الملف 🖼️ أداة جميلة لإزالة خلفيات الصور | سلسلة هدايا الأكسس | ⭐ 🎁 السلام عليكم ورحمة الله وبركاته لكسر الروتين وعموم الفائدة 😎👌 أقدم لكم أداة جديدة بفكرة جديدة 🙂 :: أداة إزالة خلفيات الصور :: الهدف من الأداة واضح >> وهو ببساطة إزالة خلفيات الصور >> والناتج صورة بخلفية شفافة بصيغة png . ولها استخدامات كثيرة في الاحتياجات العامة أو لتشذيب الصور قبل إدراجها في برنامج الأكسس مثلا .. أو .. أو .. أو .. عدد ما شئت أنا شخصيا أحتجتها في برنامجي (صانع الشهادات) لإزالة خلفيات التواقيع 🖋️📜 ثم إضافتها للبرنامج كمرفق. الأداة فكرتها بسيطة >> الإتصال بموقع remove.bg المشهور عن طريق ال API والعود بالناتج بدون الحاجة لفتح الموقع. مفتاح الـAPI الحالي هو خاص بي ويمكنكم استخدامه مباشرة ولكنه محدود ب 50 تحويل لليوم .. في حال رغبتك بوضع مفتاحك الخاص ( وهي خدمة مجانية بالمناسبة ) يمكن تغييره في أول صفحة الكود وقد وضحت الطريقة هناك . 🙂 الملف مفتوح المصدر :: ودعواتكم الطيبة 🙂 صاحب الملف Moosak تمت الاضافه 06/22/26 الاقسام قسم الأكسيس  

استاذ هل تسطيع ادراج ايقونة عند تحديد اسم الموظف يتم تصدير معلومات الموظف الى ورقةFeuil1 المعلومات الرقم الموظف والاسم واللقب ويظهر في اسم ملف الاكسيل باسم ولقب الموظف ورقمه استاذ اريد ادراج حقل البحث في النموذج الفرعي بدل مربع تحرير وسرد بارك الله فيك

مشاركة مع اساتذتي تفضل استاذ @2saad محاولتي حسب ما فهمت اليك الشرح والمرفق . ووافني بالرد 2saad_Font, size, and row height.rar

طلبي منه المثال من اجل اجعل نقل الفكرة الى مشروعه يسيرا اما اذا تسألني عن رأيي فما دام ان الكود نجح عنده .. فأقرب وأسهل طريقة هو استبدال المتغيرات الثابتة في الكود وجعلها متغيرة عامة فقط ومناداتها من الفورم .. اقصد هذه : Const MY_FONT As String = "Arial" ' اسم الخط Const MY_SIZE As Integer = 12 ' حجم الخط Const ROW_HEIGHT As Integer = 450 ' ارتفاع الصف (بالتويت Twips: كل 1 سم تقريباً 567 تويت)

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

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

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

استاذ ترحيل البيانات الى الورقة Feuil1 الحقول بالون الأزرق لا تفرغ الحقول عند الترحيل ترحيل البيانات الى الورقة Feuil12 الحقول بالون الأصفر وعند الترحيل تفرغ الحقول تكون بأيقونة وترحيل البيانات الى الورقة Feuil13 الحقول بالون الأحمر وعند الترحيل تفرغ الحقول تكون بأيقونة والحقول الفارغ لم يتم ترحيل

قمت بالإستفادة من كود أحد الأمثلة في المنتدى وعدلت الإجراء ليعتمد على المعلمات بدل القيم الثابتة ستجد في المرفق ملف يحتوي على نموذج ووحدة نمطية قم بإسترادهما إلى تطبيقك وفتج النموذج ستجد فيه مربعات لتحديد القيم المطلوبة وبالنقر على زر (تنفيذ الإجراء) يفترض أن يتم تعميم القيم المحددة فيما يخص قيم (حجم الخط و الإرتفاع) قمت بتحديد القيم بالنطاق (من 7 الى 72) لحجم الخط لإن حجم أصغر من 7 أراه غير منطقي لأن النص سيصبح غير مقروء والرقم 72 هو الحد الأقصى لحجم الخط في أكسس ولست متأكداً من أنه يقبل رقم أعلى من 72 نفس الشيئ للإرتفاع فإرتفاع أقل من 4 ملم سيكون صغيرا جداً وإرتفاع أكبر من 1.4 سم سيكون كبيراً جداً ولكن في الأخير لك حرية تعديل القيم بصراحة أنا لم أجرب تنفيذ الأمر لذلك لا أدري إذا كانت ستظهر أي أخطاء فإذا ظهرت أي أخطاء يرجى إعلامنا بها تحياتي Fonts.accdb

السلام عليكم مرفق الملف بعد التعديل لعله المطلوب Copy of Horaire-18-06-2026-(04.12.06).xlsb

وعليكم السلام ورحمه الله وبركاته يجب عليك ارفاق ملف الاكسل المراد العمل عليه نظام حماية لملف الاكسل والدخول للصفحات تشفير الملفات بدلا من استخدام انواع الحماية المختلفة مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_شاشة دخول_صلاحيات_PASS WORD_اخفاء معادلات

السلام عليكم لدي ورقة Horaire2027 اريد ترحيل البيانات الى ورقة Feuil1 و Feuil12 و Feuil13 1- ترحيل البيانات الى الورقة Feuil1 الحقول بالون الأزرق لا تفرغ الحقول عند الترحيل 2-ترحيل البيانات الى الورقة Feuil12 الحقول بالون الأصفر وعند الترحيل تفرغ الحقول 3-ترحيل البيانات الى الورقة Feuil13 الحقول بالون الأحمر وعند الترحيل تفرغ الحقول Horaire-18-06-2026-(04.12.06).xlsb

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

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

تفضل استاذ @بلال بلال المرفق بعد التعديل بطلباتك . ووافني بالرد . Import Excel From Gmail_Belal-1.rar

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