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

وهذه مشاركة مع أخي أحمد .... انظر المرفق .... SuperMarketSals Doolar - Dinar3111.mdb

السلام عليكم ملف مرفق تجريبي تحياتي Chart.rar

اتفضلوا البرنامج العملاء_والديون_اقساط_0777134668.accdb

بارك الله فيك أخي الفاضل .... بالتوفيق ,,,,,, احسن الله اليك أخي أحمد بارك الله في جهودك في مشاركة والاجابة على الاسئلة .... جزاك الله خيرا ......

السلام عليكم اخى الفاضل انظر لاستعلام 1 هل هذا ما تريد ؟ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق SuperMarketSals Doolar - Dinar31.mdb

تفضل لك ما طلبت diff Time.xlsx

تفضل... 1- على اعتبار ان الملف 1.xlsm في مجلد Files في القسم c 2- بعد انتهاء نقل الاوراق اختر "حفظ" اذا كنت لاتريد احتفاظ الملف الاصلي 1.xlsm بالاوراق المنقوله والعكس صحيح عند اختيار "عدم الحفظ" 3- يمكن لك نسخ الاوراق اكثر من مره الى ملف HR_TESTER HR_TESTER.xlsm 1.xlsm

السلام عليكم اخي الكريم تفضل اتمنى ان يكون الملف المرفق هو المطلوب ملاحظة : قمت بانقاص المعادلة -1 لان شهر تموز هو 31 يوم وانا اعرف ان الرواتب تقسم جميع الاشهر على 30 يوم (يمكنك التعديل على المعادلة حسب احتياجك) وان المعادلة يمكن استخدامها من بداية اي شهر او وسطه او نهايته (تقوم باستخراج عدد الايام من اي شهر ) تحياتي aa.rar

احسنت اخى واستاذى @kanory جزاك الله خيرا

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

هل هذا ما تريد ؟ SuperMarketSals Doolar - Dinar31.rar

اخي العزيز الملف الاول عملته بالاكسس والملف الثاني عملته بالاكسيل ونسخته للاكسس فقط لنظر لرابط الفيديو لعله يفيدك تحياتي https://www.youtube.com/watch?v=dRG8JCgNxyU

السلام عليكم اخى الفاضل تفضل الملف بعد التعديل ارجو ان يفيد و يفى بالغرض مطلوب النقل.xlsm

السلام عليكم أخي هل هذا هو المطلوب ؟ A_des.accdb

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

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

السلام عليكم و رحمة الله و بركاته أزرار متحركة و منزلقة قد تفيد أحد الأخوة في مشاريعهم أزرار متحركة.accdb

If Val(Me.balance) < Val(Me.qty2) Then شكر للكل اعضاء المنتدى .

انظر الملف ....... ddd.accdb

الله يبارك فيك استاذي الفاضل kanory جزاك الله خيرا اساتذتي الافاضل ممنون منكم جميعا اللهم ربي يحفظكم ويمن عليكم بالصحة والعافية والخير والبركات

تفضل لك ما طلبت Data Entry.xlsm

اخي العزيز nacer_alger من الافضل ارفاق ملفك لغرض التعديل او مثال ؟ حسب فهمي لسؤالك استخدم دالة iif بالاستعلام فهي الدالة السحرية من خلالها تستطيع عمل الكثير IIf([الكمية]>=0 ; [F]+[H]+[K]+[L]+[M]; [F]-[H]-[K]-[L]-[M]) تحياتي

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

ربما يكون المطلوب ادخل ايقيمة في Textbox1وانقر زر Entr على لوحة المفاتيح عد الكومبوبكس الممتلئة.xlsm

أحسنت أستاذ عبد اللطيف عمل رائع بارك الله فيك

السلام عليكم ورحمة الله وبركاته من مبدأ ( لا تعطني سمكة ولكن علمني كيف اصطاد ) قهذا الفيديو رائع للتعامل مع تحويل الصفوف الى أعمدة

بارك الله فيك ياخى لقد افاد وفاض ووفى واستكفى حبيبي تسلملى

بارك الله فيك اخي Ali Sadiq نعم هذا هو المطلوب و قل رب زدني علما و اشكر الجميع على المساعدة

ربنا يكرمك يا بشمهندس خالد هشوف الفيديو

احسنت اخى على ومنور المنتدى

هل جميع الصنف في المستودع بنفس السعر ام هي مجموعة بسعر ومجموعة اخرى بسعر اخر ....

اذا كنت تريد القيمة الحقيقية المعادلة في الخلية F15 من هذا الملف My_test_5.xlsx

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

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

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

المعادلة التالية مع (Ctrl+Shift+Enter) =IF(ISNA(MATCH($E$4,$A$1:$A$85,0)),AVERAGE(INDEX($B$1:$B$85,MATCH($E$4,$A$1:$A$85)):INDEX($B$1:$B$85,MATCH($E$4,$A$1:$A$85)+1)),INDEX($B$1:$B$85,MATCH($E$4,$A$1:$A$85,0))) الملف مرفق My_test_4.xlsx

وعليكم السلام لك ما اردت نموذج3.xlsm

سلمك الله و حياك أستاذ عبد اللطيف .. أبشر و لا تهتم 😉

تسلم استاذ سليم موفق دائما

قم باستبدال 2 و 3 في هذين السطرين من الكود (اكتب 2 ماكن الــ 3 و 3 مكان الــ 2) sec.Cells(m, k) = S.Cells(i, 3) sec.Cells(m, k + 1) = S.Cells(i, 2)

استاذ سليم بعد تشغيل الكود الجديد عكس عمود (name - id) كما قى الصورة

شكراً لك استاذ سليم نفع الله بعلمك وزادك علما الى علمك

ممكن ذلك بهذا التعديل على الماكرو Option Explicit Sub Copy_As_you_Like1() Dim S As Worksheet, sec As Worksheet Dim i% Dim Last%, m%, k%, Howmay_row Set S = Sheets("Source"): Set sec = Sheets("second_sh") sec.Range("A3").CurrentRegion.Clear m = S.Range("F6"): Howmay_row = S.Range("F7") Last = S.Cells(Rows.Count, 2).End(3).Row m = 3: k = 2 For i = 3 To Last sec.Cells(m, k) = S.Cells(i, 3) sec.Cells(m, k + 1) = S.Cells(i, 2) m = m + 1 If m Mod (Howmay_row + 3) = 0 Then m = 3: k = k + 2 End If Next With sec.Range("B3").CurrentRegion .Interior.ColorIndex = 6 .Borders.LineStyle = 1 .InsertIndent 1 End With End Sub

استاذ سليم ممكن أبدأ من الخلية (B3) بدلا من (A3) شكرا لحضرتك

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

السلام عليكم اخواني أقدم لكم مجموعة من الأمثلة كنت قد حملتها من مواقع عربية و أجنبية لعلها تفيد من له اهتمام بها و المقصود بالمثال هنا ليس برنامج كامل و انما حل برمجي لجزئية معينة من جزئيات المسائل المطلوب حلها . . مع المعذرة عن ذكر اسم الموقع أو اسم المصمم للمثال حيث الأمثلة موجودة عندي من فترة و لم أعد أذكر معلومات عنها و سأقوم ان شا الله بتحميل الأمثلة أولا بأول و أرجو من الأخوة الكرام عدم ادارج أي تعليق هنا حتى يتسع المجال لتحميل أكبر عدد من الأمثلة بأقل عدد من المشاركات , و من أحب التعليق أو الاستفسار فليفتح موضوعا جديدا بهذا الأمر فهرس الأمثلة : تغيير لون خلفية الأكسس مثال على دوال التجميع مثال لفتح النموذج بعدة طرق انسيابية مثال رائع على استخدام خاصية المؤقت في النموذج Timer مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه مثال لعمل جدول يبين جميع البيانات التي تم تعديلها مثال لعمل نسخ احتياطي مجدول زمنيا مثال لعمل ترقيم تلقائي برمجيا نموذج الآلة الحاسبة مثال لفتح نموذج التقويم مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox مثال لكيفية النسخ و اللصق من و الى الحافظة مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف مثال لكيفية انشاء شريط قوائم بالكود و اضفة أزرار اليها أو حذفها مثال لمقارنة الاختلافات بين سجلات جدولين مثال على التنسيق الشرطي بعدة طرق مختلفة للنماذج مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار في النموذج مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي مثال لتغيير لون زر الأمر بمجرد مرور الفأرة عليه مثال لتفقيط الأرقام - عربي انكليزي مثال على نقل عدة بيانات من نموذج الى نموذج آخر مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر مثال لتشغيل استعلام حذف سجلات بناء على قيمة معينة مختارة في النموذج مثال على استخدام شريط التقدم الأزرق Progress Bar مثال على كيفية ارسال بيانات الى ملف وورد , و فتح ذلك الملف بعد انشائه مثال على البحث مع تجاهل التشابه في الحروف مثل الألف و الهمزة مثال على البحث المتقدم في أكثر من حقل مثال على استخدام المؤثرات البصرية في جعل الكائنات تتحرك باشكال هندسية مثال لكيفية تغيير تنسيقات الحقول : تاريخ - نصوص - أحرف مثال على نموذج يحوي نماذج فرعية بثلاثة مستويات

صمم بنفسك شكل و لون و نص صندوق الرسالة MsgBox من خلال النموذج أدخل النص الذي ترغب به و كذلك الألوان Msgbox_Colour.rar

مثال على البحث مع تجاهل التشابه في الحروف مثلا بين الهمزة و المد و بدون همزة في حرف الألف و بين الياء بنفقطتين و بدونهما - تصميم محمد طاهر - أوفسينا Search.rar

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

- هذا مثال للتحكم بتغيير لون خلفية الأكسس - من تصميم أبو هاجر access_backcolor.rar