alsihran

الله يجزاك خير استاذي يبدو أني لم اوصل الفكرة بشل جيد الكود الاول الذي عملته يعمل بشكل جيد انا هنا اريد ز تحويل اعمدة اضافية الى صفوف لنفس الملف لو افترضنا ان هناك اعمدة بنفس طريقة العمود E , F وهنا نضرب المثال بالعمود G و H فكيف سيكون شكل المصفوفة لاضافتها للورقة الثانية اعلم ان الخطأ كان مني كان يجب ان اضيف مرفق يحتوي على نفس عدد الاعمدة التي اريدها ان لم تكن الفكرة وصلت سأضيف مرفق اخر للتطبيق عليه او ارسل لك الملف على بشكل خاص لاحتوائه على معلومات حساسة

شكرا لك أخي الكريم النتيجة صحيحة حسب المرفق وهو مثال حاولت تطبيق المثال على الملف الفعلي وهو يحتوي على 35 عامود لكن فشلت المحاولة وظهرت هذه الرسالة عند تشغيل Macro1 وعند تشغيل المايكرو test يتم اضافة 4 اعمدة فقط في الورقة رقم 2 استاذي الكريم هلا تلطفت وشرحت لي خطوة بخطوة الية عمل المايكرو Macro1 والمايكرو test وما هو المطلوب تعديلة في الكود لاضافة بقية الاعمدة شاكر ومقدر لك مساعدتك وحسن تعاونك

السلام عليكم ورحمة الله و بركاته بالمرفق ملف يحتوي على صفوف واعمدة المشكلة : كل 14 صف في الواقع هو صف واحد لأن هناك بعض القيم مكررة وتعاملي معها يدويا من حيث تحويل بعض خلايا الاعمدة الى صفوف وحذف المتكرر ومن ثم نسخ جميع القيم ولصقها متعب جدا المطلوب : الاحتفاظ بقيمة واحده من العمود A المتضمن عنوان Code الاحتفاظ بقيمة واحده من العمود B المتضمن عنوان date1 وهكذا لبقية الاعمدة C :D تحويل قيم الخلايا في العمود E من الخلية رقم E2 الى E14 الى صفوف بدون تكرار وادراج القيم من العمود F اسفل منها للحصول على هذه النتيجة لجميع السجلات حسب شرح الصورة أمل الاخذ في الحسبان ان عدد الاعمدة في الجدول الاساسي تقريبا 31 عمود والملف المرفق هذا اضعه كمثال بسبب وجود بيانات حساسه هل هناك طريقة تسمح بعمل المطلوب تكون اسهل من العمل اليدوي لأنه في كل يوم يأتيني ملف به ما يقارب اربع وعشرون الف صف وتحويلها يدوي متعب ويحتمل الخطأ ارجو ان اكون استطيعت شرح المطلوب بصورة واضحه تحويل الاعمدة الى صفوف وتنسيق البيانات.xlsx

شكرا لكم جميعاً

رائع أستاذي الكريم هذه النتيجة المطلوبة وهذا جعلني اطمع في كرمك و ان يتسع صدرك لتفيدني بما يلي 1- ارجو شرح المعادلة خطوة خطوة لأتأكد اني فهمتها بشكل صحيح 2- اريد المعادلة عندما تكون الخلايا المرجعية في شيت اخر 3- اريد المعادلة بدون خلايا مرجعية شاكر ومقدر لك وتقبل خالص تحياتي أشكرك استاذي لمساعدتك لو تلاحظ في حقل النتيجة تجد القيمة العليا وصلت 117 وهنا تكون خطأ لأن اعلى قيمة ممكن نحصل عليها هي 100 ارجو التعديل على المعادلة لتكون الخيرات امامي متعدده وتقبل خالص التحية

السلام عليكم في المرفق اريد اظهار الدرجة من خلال تحويل النص الى رقم للخلية c11 اذا كان النص No تكون القيمة صفر اذا كان قيمة اخرى تكون القيمة 9 وكذا لبقية الخلايا وقد قمت بشرح قيمة كل خلية في المرفق اريد اظهار النتيجة في الخلية Score Score.xlsx

يستحق بكل جدارة الف مبروك لنا هذا الاختيار

مع الاسف استاذ @saad abed هذا المطلوب انظر الصورة اتالية توضح العملية من خلال العد اليدوي والنتيجة التي ظهرت من خلال عملك جدول pivot table اللون الاحمر يوضح نتيجة العد اليدوي لكل قيمة من رقم 2 لكل خلية في كل عامود اما ما قمت به انت جزاك الله خير كل الاعمدة تعطي رقم 17

اعتذر منك أخي الكريم رفقت الملف الخطأ اليك المرفق الجديد المطلوب نفس اللي انت عملته عد القيمة رقم 2 لكل عامود حسب العمود Extension شاكر ومقدر لك datea.xlsx

مع الأسف ليس المطلوب شكرا لمحاولتك

ليس هذا المطلوب أخي الكريم المطلوب عمل Pivot Tabels واظهار الاعمدة s1 s2 s3 s4 s5 s6 s7 s8 s9 s10 وعد القيمة 2 لكل id_Ccallg من كل من عمود شكرا لك

السلام عليكم المطلوب بالمف المرفق عد الخلايا التي تتضمن القيمة 2 لكل id_Ccallg في كل عامود من خلال جدول Pivot Tabels المصنف1.xlsx

تمام هذا حل المشكلة وهذا تمام شكرا لك

بعد أذنك استاذ 1- لاحظت أن الفورم frm_relink لم يعد يغلق تلقائيا بعد فتحه كما في السابق لو كان عندي اكثر من جدول اكسل هل نعيد تكرار الكود مع تغير أسم الملف للربط If tdf.Name = "shet_Data" Then Call CurrentDb.TableDefs.Delete(tdf.Name) DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, _ "shet_Data", CurrentProject.Path & "\Data.xlsx", True, "ورقة1" & "$" Else

👍 شكرا لك

المرفق لو سمحت شكلك نسيت ترفعه😇

للرفع

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

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

السلام عليكم بالمرفق يوجد قاعدة بيانات للجداول و والواجه عند الدخول على الواجهة Data وفتح نموذج frm_relink يتم الاتباط بقاعدة الجدوال Data_be في نفس مجلد البرنامج والامور تمام المطلوب : الارتباط بجدول الاكسل الموجود في نفس المجلد بنفس طريقة الارتباط بجدول الاكسس برمجيا حاولت اطبق نفس الطريقة لكن فشلة محاولتي Relink.rar

اعتقد ولا أجزم بأن هذه الجزئية تمت اضافتها من قبل موقع الاستضافة مؤخراً لتخفيف الضغط على السيرفر تخيل ان كل شخص يفتح الاتصال مع قاعدة البيانات ويترك الاتصال مفتوح بدون العمل كم مقدار الضغط الذي سيتعرض له السيرفر لذلك وضعوا هذه البرمجية لفصل الاتصال أعيد وأكرر لا أجزم بهذا الكلام بعد مشاهدة رابط الموضوع اللي وضعه استاذنا ابو خليل صار عندي تصور عن المطلوب سؤالك هذا غير مجرى الموضوع 180 درجة سأعطيك رايي كمستخدم لمواقع الاستضافة لقواعد بيانات SQl Server لمدة 6 اشهر 1 - طريقة ربط الاكسس مع جداول قواعد بيانات Sql server عن طريق ODBC أو ما يعرف بالاتصال المتصل بحيث يتم انزال نسخه مرتبطه من الجداول في قاعدة بيانات الاكسس وعند فتح الجدول يبقى الاتصال مفتوح دون انقطاع هذه الطريقة غير مجديه فعند وصولك لعدد 500 سجل ومحاولة عمل استعلام فرز وعمليات حسابية او جلب بيانات مرتبطه ستكون هذه المعالجة للبيانات بطيئة جدا جدا اضف الى ذلك عند فتح الاستعلام من خلال نموذج وعمل بعض الاوامر البرمجية ستصاب بالملل لأن جلب البيانات للنموذج في حالة كان لديك عدد السجلات المذكورة سيأخذ منك وقت لايقل عن 3 دقائق كحد أدنى ربما يخطر لك سؤال هنا وتقول ان هذا بسبب موقع الاستضافة بناء على المساحة التي قمت بشرائها والسرعه ...... ألخ سأجيب واقول لك جربت اكثر من موقع ومن ضمنها مساحه على Azure وهذا من أفضل المواقع للاستضافة إن لم يكن أقواها على الاطلاق بناءً على نوع الاشتراك عند تجربته تحسن الاتصال نوعا ما وكان الأمر شبه مقبول ولكن قيمة الاشتراك في هذه السيرفرات مكلف جدا طبعا الأمر يختلف تماما عند عمل سيرفر على جهازك او من خلال شبكه داخلية ستجد الأوامر سريعه جدا بناء على مواصفات الجهاز نأتي للأمر الأخر 2- الاتصال بقواعد بيانات Sql Server في مواقع الاستضافة بتقنية Dbset أو ما يعرف بالاتصال المنفصل ان شاء الله يكون المصطلح صحيح بحيث تقوم بتعريف الاتصال والمتغيرات وتكتب جمل الاتصال بالجدول او stored procedure أو الاستعلام تفتح الاتصال وتجلب او ترسل البيانات ثم تقوم بإغلاق الاتصال بدون أن يكون عندك جداول حيث يتم تخزين البيانات في الذاكرة وتقوم باستعراضها عن طريق النموذج او تقوم بالاضافة او التعديل والحذف ثم تعيد ارسالها الى قاعدة البيانات مباشرة للجدول او عن طريق stored procedure هذه الطريقة مشابه بحد كبير الى طريقة برامج visual basic هذه الطريقة جدا ممتازة وسريعه جدا إذا كان بناء البرنامج صحيح وكل شي تمام ولكن تحتاج جهد وعمل كبير وكثير يعاب على هذه الطريقة عدم استطاعتك بناء بعض التقارير عن طريقها حيث ستحتاج الى تصميم جداول مؤقته ثم تجلب البيانات وتخزنها بالجدول وبعد ذلك تستطيع بناء التقرير وهذا هو موضوع كود الاتصال الذي وضعته لك أتمنى أكون قدرت افيدك بشي عن الموضوع

الكود اللي وضعته لك جاهز sqldb.Open "Provider=SQLOLEDB;Data Source=SQL8003.site4now.net;Initial Catalog=;User Id=أسم قاعدة البيانات;Password=الباسورد"

السلام عليكم ورحمة الله عندي جدول يوجد به عامود يحتوي على خلية تحتوي على ثلاث قيم 1 2 3 اريد انشاء عامود جديد في جدول Pivot Table يعد لي قيم الخلايا التي تحتوي الرقم 2 انا عملت المعادلة لكن المشكلة تقوم بعد جميع القيم =COUNT(Qry_tblData[S10])

جربت هذا الموقع جيد يعطيك تجربة 60 يوم https://www.smarterasp.net/ هذا كود الاتصال وعند تسجيلك وانشاء قاعدة البيانات سيعرض لك جميع انواع الاتصال تقريباً sqldb.Open "Provider=SQLOLEDB;Data Source=SQL8003.site4now.net;Initial Catalog=;User Id=UserName;Password=********"

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