كل الانشطه

تم إضافة الاصدار 32 بت ، اهلاً وسهلاً بك صديقي

شكرا جزيلا لكما وبارك الله فيكما وزادكما الله من علمه أخي الفاضل خليفة ارجو أن يتسع صدرك ( شرح الله صدرك للعلم والإيمان ) بعد اذن حضرتك ممكن نضع شرطا في الموديول ( الرقم في الأعمدة الخمسة لا يقل عن 2 ) يعني في العمود الأول لا يزيد عن 10 ولا يقل عن 2 في العمود الثاني لا يزيد عن 5 ولا يقل عن 2 في العمود الثالث لا يزيد عن 5 ولا يقل عن 2 في العمود الرابع لا يزيد عن 5 ولا يقل عن 2 في العمود الخامس لا يزيد عن 10 ولا يقل عن 2 ولكم جزيل الشكر ووافر الاحترام

شكرا جزيلا اخي الفاضل ملحوظة : الملف لم فتح عندي لأني استعمل اوفيس 2010 32 بت مذا افعل ؟

وعليكم السلام ورحمة الله تعالى وبركاته يمكنك دمج الأكواد السابقة في كود واحد يمكنك من طباعة وصل معين أو عدة وصولات من إختيارك بالطريقة التالية Sub Choose_the_print() Dim tmp As Variant, arr As Variant, n As Range Dim OnRng As String, xInput As String, a(1 To 6) As String Dim WS As Worksheet: Set WS = Sheets("ورقة1") a(1) = "H2:L16": a(2) = "N2:R16": a(3) = "T2:X16": a(4) = "H18:L32": a(5) = "N18:R32": a(6) = "T18:X32" xInput = InputBox("يرجى إدخال أرقام الوصولات للطباعة" & vbCrLf & "مفصولة بفاصلة (-) مثل: 3-2-1", "إختيار الوصولات") If Trim(xInput) = "" Then: MsgBox "لم يتم إدخال أي أرقام يرجى المحاولة مرة أخرى", vbExclamation: Exit Sub tmp = Split(xInput, "-") For Each arr In tmp If IsNumeric(Trim(arr)) Then If Val(arr) >= 1 And Val(arr) <= 6 Then OnRng = a(Val(arr)) Set n = WS.Range(OnRng) n.PrintOut Copies:=1, Collate:=True Else MsgBox "رقم الوصل " & arr & " غير موجود يرجى التأكد", vbExclamation Exit Sub End If Else MsgBox "إدخال خاطئ " & arr, vbExclamation Exit Sub End If Next arr MsgBox "تمت الطباعة بنجاح", vbInformation End Sub والكود التالي لطباعة جميع الوصولات دفعة واحدة Sub PrintAllRanges() Dim WS As Worksheet: Set WS = Sheets("ورقة1") Dim a(1 To 6) As String, i As Integer, PrintRange As Range Dim Response As VbMsgBoxResult Response = MsgBox("هل ترغب في طباعة جميع الوصولات ؟", vbYesNo + vbQuestion, "تأكيد الطباعة") If Response = vbNo Then Exit Sub a(1) = "H2:L16": a(2) = "N2:R16": a(3) = "T2:X16" a(4) = "H18:L32": a(5) = "N18:R32": a(6) = "T18:X32" For i = LBound(a) To UBound(a) Set PrintRange = WS.Range(a(i)) PrintRange.PrintOut Copies:=1, Collate:=True Next i MsgBox "تمت طباعة جميع النطاقات بنجاح", vbInformation End Sub مثال.xlsm

وعليكم السلام ورحمة الله وبركاته حسب فهمى لطلبك اليك الملف مثال (1).xlsm

الله الله عليك يا استاذنا @kkhaliffa 1960 شكرا جزيلا لك ولكل القائمين على هذا المنتدى العظيم، وجزاك الله كل خير وجعلها في ميزان حسناتك فعلا هذا ما احتاج اليه : سلمت ايديك وأحسن الله خاتمتنا واياكم يا رب العالمين

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

للرفع

السلام عليكم لدي ملف و فيه 6 وصولات قبض او صرف للطباعة و لدي ازرار لطباعة كل وصل لكن احتاج كود للطباعة واحد فقط و عند الضغط عليه يطلب مني اختيار الوصولات لطباعتها مثال.xlsm

تفضل استاذ @fuadco التعديل حسب ما فهمت بالمر فق . اقرأه جيداً . ووافني بالرد . DDTempTest Add&Copy_Backup-111.rar

في انتظار الرد والمساعدة من الاخوة الخبراء

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

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

استاذنا القدير @kkhalifa1960 انا جربت الطريقة هذي من قبل بس مانفعت لسبب ان حقل Auto عندي هو مفتاح رئيسي لايقبل التكرار لذلك عبارة INSERT INTO مانفعت لكن في حال النسخ واللصق من داخل الجدول نفسه يضيف للسجل المنسوخ رقم تسلسل جديد عند اللصق .. لاحظ المثال بعد التعديل هل هناك عبارة تقوم بنسخ كامل السجل ولصقه مع تغيير رقم التسلسل لرقم جديد كما هو الحال بالنسخ واللصق اليدوي في الجدول ؟ DDTempTest Add&Copy_Backup.rar

السلام عليكم ابو احمد افتقدناك في منتدى الاكسس ، وفاز بك منتدى الاكسل. طرح جديد ومميز ، كالعادة ، شكرا على المشاركة. جعفر

تفضل الاقساط السنوية غير المدفوعة (1).accdb

جرب هذا الملف maachat3.xlsm

أين الملف؟!

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

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

تفضل استاذ @magdidir المرفق بعد التعديل .ووافني بالرد . test(115-3).rar

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) 📌 أقدم لكم اليوم فكرة قد تكون ليست بالجديدة ، ولكنها بالحديثة و بطريقة فوكشية ▫▪◽◾◻◼. الكثير من المواضيع التي تحدثت عن كيفية رفع ملفات المستخدم على جوجل درايف أو غيره من المواقع التي تقدم مساحات سحابية متعددة الخدمات لمستخدميها .. اليوم وبتوفيق من الله ، تم إنشاء هذه الأداة للتعامل مع جوجل درايف Google Driveحصراً ، لكونه يقدم مساحة 15 جيجا بايت لمستخدميه . ما كان يؤرق الكثيرين هو أن جوجل أو غيره من مقدمي الخدمة المشابهة يقوم بتعديل سياسته وقوانينه كل فترة . لكن هنا وبهذه الأداة المجانية تم حل المشكلة بعد فحصها مراراً وتكراراً (متمنياً ذلك) . الفكرة في الأداة تعتمد على حساب جوجل أو Gmail شخصي . ما يلزم المستخدم هنا تطبيق الخطوات البسيطة التالية حسب الصور أو الفيديو في هذا الرابط . 📌 عند فتح الأداة لأول مرة ، سيساعدك معالج الإنشاء بجميع الخطوات ( خطوة بخطوة ) وستظهر لك هذه الرسالة :- 📌 عند النقر على Yes ، ستظهر لك رسالة الإرشاد الأولى كالتالي :- 📌 سيتم فتح المتصفح لديك على الرابط الخاص بإنشاء الخدمة .. وللمتابعة دون الإطالة ، أترككم مع الصور و الخطوات خطوة بخطوة . 📌 عند الإنتهاء من تنفيذ الخطوات والحصول على رمزي الـ ( CLIENT ID و CLIENT SECRET ) . ✨ سيتوجه بك معالج الإنشاء للخطوة قبل الأخيرة كالآتي :- 📌 هنا يطلب منك لصق رمز CLIENT ID الذي حصلت عليه من تسلسل الخطوات السابقة . ثم بعد لصقه والضغط على OK ، ستظهر لك الرسالة التالية :- 📌 والتي يطلب منك لصق CLIENT SECRET كما في الصورة أعلاه . ✨ الآن الخطوة الهامة والتلقائية ، وبعد لصق الرمزين الخاصين بحسابك في جوجل درايف ( لا تقم بمشاركتهم مع أي أحد ) ، سنهب للحصول على رمز التفويض مرة واحدة فقط ! وهذا يعني أنك لن تحتاج إليه مستقبلاً . انظر الصورة التالية :- 📌 عند النقر على موافق ، سيتم فتح متصفحك على رابط خاص في جوجل لتمنح بريدك الإلكتروني الذي استخدمته في إنشاء الخدمة سابقاً كامل الصلاحية لإستخدام خدمات جوجل درايف . وطبعاً بالمتابعة وتأكيد الموافقة ، ستحصل على رمز التفويض الخاص بك و لمرة واحدة فقط ولن تحتاجه فيما بعد ، فتقوم بنسخه ولصقه في رسالة التأكيد التالية :- الآن وبفضل الله ، ستظهر لك رسالة " تم التفويض بنجاح" ، وبهذه الخطوة تم ربط آكسيس بحساب جوجل درايف الخاص بك ، وستظهر لك واجهة الأداة كما في الصورة أدناه . وما يلي شرحاً سريعاً لمميزاتها . مميزات الأداة :- تتيح لك الأداة رفع الملفات بأي امتداد وبأي حجم ؛ إلى أي مجلد تحدده في حسابك على جوجل درايف ، أو في الملف الرئيسي عند عدم اختيارك لمجلد محدد . والمجلدات التي في حسابك ستظهر لك عند النقر على زر "مجلداتي" ، ثم من قائمة الكومبوبوكس ستختار المجلد الهدف لرفع الملف اليه . زر "إختيار ملف" لإختيار الملف الذي ترغب برفعه على جوجل درايف . زر "معاينة" مخصص لمعاينة الملف حسب الرسالة التي ستظهر لك . زر "مسح الحقول" لتفريغ العناصر من قيمها . زر "ارفع الملف" والذي من خلاله ستقوم بتنفيذ عملية رفع الملف إلى حسابك في جوجل درايف . زر "نسخ الرابط" لنسخ الرابط بعد أن تمت عملية الرفع بنجاح ( لإستخداماتك الشخصية وحاجتك لاحقاً ) . وفيما يلي ، صورة سريعة لعملية رفع صورة على سبيل المثال : ملف الأداة بنسختين .. نسخة 64 بت نسخة 32 بت Uploader.zip Uploader 32.zip

ارجو المساعدة في انتاج تقرير شهري لحساب الرواتب CCCODE 7.accdb

السلام عليك اخي ابو عيد ادامك الله ممكن طريقة نقل عامود (دوام) وعامود (سعر الساعة ) من شيت يومية الى شيت 1 وطلب ثاني ممكن تثبيت الاعمدة الملونة بلون برتقالي وعدم السماح بمحيها او التعديل عليها maachat2 (1).xlsm

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