كمال محمد

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

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

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

شكراً جزيلاً أستاذ ياسر أسعدتني بمرورك الكريم الأمور تعمل على ما يرام أشكرك ^________^

ملاحظة : تم حفظ الكود بشكل ماكرو وهو يعمل ولكن سؤال على ماسبق 1- كيف يمكن جعل الماكرو يشغل تلقائياً عند فتح الملف 2- السؤال الثاني هو ذاته : ولكن الان أريد معرفة كيفية تغيير FolderPath & FileName وذلك في حال أردت إنشاء مجلد وملفات لها تسمية جديدة غير (book1) وملف اساسي غير (س) لأني واجهة مشكلة عند تسمية ملفات الأكسل باللغة العربية .. (لا يعمل الكود)

أستاذ ياسر الغالي أسعد الله اوقاتكم بكل سرور وجزاكم الله كل خير الملف المرسل من حضرتكم يعمل وعند الإضافة فإنه يضيف ولا مشكلة ولكن الان أريد معرفة كيفية تغيير FolderPath & FileName وذلك في حال أردت إنشاء مجلد وملفات لها تسمية جديدة غير (book1) وملف اساسي غير (س) وسؤال أخر بعد إذنكم : هل تم حفظ الكود على شكل ماكرو وإن كان الجواب نعم فكيف احفظه كماكرو لا يسعني في النهاية إلا أن أدعو الله لكم بالخير والتوفيق على تعاونكم الطيب والكريم والسلام ختام

تحياتي استاذ ياسر الغالي وأشكر مرورك وطلباتك على العين والرأس المجلد المرفق هو توضيح للحالة وبالنسبة لسؤالك الكريم فالجواب نعم ستكون كل الملفات في مجلد واحد مع المجلد الرئيسي س ملاحظة يوجد في المجلد المرفق يوجد اربعة ملفات اكسل وملف اكسل خامس اسمة (س) في كل ملف من الملفات الاربعة يوجد في الخلية A1 الرقم 10 أما في ملف الاكسل (س) يوجد في الخلية A1 الرقم 40 والذي يعتبر عبارة عن تجميع الرقم 10 من ملف الاكسل 1 و 2 و 3 و 4 أي 40*10=40 وذلك بعد تطبيق الكود البرمجي السابق سؤالي هو اود الان إضافة ملف اكسل جديد وأود من ملف الاكسل (س) أن يجمع مافي الخلية A1 إضافة على ما سبق هل من طريقة عندما انشئ اي ملف مستقبلاً ان يتم الحساب بشكل اتوماتيكي في الملف (س) دون الدخول مرة ثانية إلى الكود وتغيير directory مجلد نون.rar

ملاحظة يا أفاضل قمت بترجيب الكود البرمجي Sub SUM_WBs() Dim FileNameXls As Variant, i As Integer, wb As Workbook 'ChDir = "C:\Temp\" 'Default directory FileNameXls = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*", MultiSelect:=True) If Not IsArray(FileNameXls) Then Exit Sub ' User cancelled Application.ScreenUpdating = False For i = LBound(FileNameXls) To UBound(FileNameXls) Set wb = Workbooks.Open(FileNameXls(i)) wb.Sheets(1).Range("D4:S21").Copy ThisWorkbook.Sheets(1).Range("D4:S21").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=True, Transpose:=False Application.CutCopyMode = False wb.Close SaveChanges:=False Next i Application.ScreenUpdating = True End Sub وهو مفيد لحالتي ولكن لملفات اكسل موجودة ولكن سؤالي في حال أردت انشاء ملفات اكسل جديدة واردت أن يقوم الكود في الأعلى بأخذ الملفات المنشئة حديئاً بشكل اوتوماتيكي دون تغيير الـ directory

تحياتي يا كرام أسعد الله اوقاتكم بكل خير وبعد من المعروف إن طريقة ربط ملفات الأكسل بملف اكسل واحد هو أمر سهل و لا صعوبة فيه ولكن لدي حالة لنفرض لدي مجلد يحتوي على اربعة ملفات اكسل وملف اكسل خامس (اسمه (س) مثلاً)يجمع نتائج الأربعة بطريقة معينة السؤال هل يوجد طريقة يستطيع الملف (س) أن يجمع الملفات التي سوف اضيفها مستقبلاً دون العودة لربط الملفات الجديدة الصورة في الأسف تبين الفكرة أيضاً من أنا جاهز لأقراء صفحات او اتابع فيديو او ابحث اكثر أن كان هناك عنوان لحالتي ولكم جزيل الشكر والمودة

شكراااااً

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

شكراً وتم تغير الاسم أشكركم ^____^

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

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