alsihran

السلام عليكم هذا الموضوع للاستاذ @jjafferr حاولت تطبيق الجزئية الخاصة بفلترة حقل city في Qry في حال كانت هناك قيمة بحقل city بالنموذج والا فعرض جميع السجلات المرفق Felter.rar

تمام فعلاً هو المطلوب عذراً المطلوب المتوسط لكل عمود مجمعه حسب Extension شكرا لك ليست المطلوب استاذنا ابو خليل لكن استفدت من طريقتك في الاستغناء عن كثير من الاستعلامات في الاستعلام النهائي شكراً لك

فيك الخير والبركة استاذنا الله يعطيك طول العمر بخير وصحه وعافية 🙌 كل الحقول S19 إلى S25 يستثنى منها القيمة رقم 6 لا نريد حسابها في المتوسط الاستعلام Qry_119 هو مثال العمود AVGS19 هو المتوسط للقيم في العمود بعد تحويله الى رقم صحيح بالدالة ROUND وهو يعمل بشكل صحيح فقط اريد اسثناء القيمة رقم 6 من الدخول في حساب المتوسط

استاذنا اخفاء العمود لن يفي بالغرض الاستعلام استعلام جدولي يقوم بحساب عدد القيم للعمود S24 وتجميعها حسب العمود Extension ومن ثم وضعت الدالة AVGS24: Round(Avg([s24]);0) للحصول على متوسط القيم للعمود S24 المطلوب الآن استثناء القيمة رقم 6 في العمود S24 من الدخول في حساب متوسط القيم في الدالة AVGS24: Round(Avg([s24]);0) ان شاء الله قدرت اوضح المطلوب 🙃

السلام عليكم ورحمة الله وبركاتة الدالة التالية تقوم بحساب المتوسط وتقريبه الى رقم صحيح في الحقل اريد استثناء الرقم 6 من الدخول في حساب المتوسط AVGS24: Round(Avg([s24]);0) قمت بمحاولة وضع الدالة بهذه الصيغة ولكن اعطتني نتائج بالسالب AVGS24: Round(Avg([s24])<>6;0) AVGS24: Round(Avg([s24]between 1 and 5);0) Access Database Ruond.rar

سبحان الله يومين احاول اوصل لنتيجة وبعد ما طرحت الموضوع توصلت لها الدالة يجب ان تكتب بهذا الشكل AVGS19: Round(AVG([s19]);0)

السلام عليكم في الاستعلام الجدولي استخدمة دالة التقريب Round للحصول على اقرب رقم صحيح AVGS19: Round([s19];0) لاستخدامة في استعلام اخر لكن المشكلة ان الدالة لاتقوم بالتقريب بشكل صحيح مثلا عندما يكون الرقم 1.94117647058824 تعطيني التقريب رقم 1 كما في الصورة والمفروض الرقم الاقرب يكون 2 وهكذا لبقية الارقام امل المساعده المرفق

وعليكم السلام الان اصبح الاستعلام اسرع بكثير من السابق شاكر ومقدر جهدك ومساعدتك

up

ثابته لا تتغير لكن احتمال زيادة عدد الاسئلة

الله يعطيك العافية ما حصلت العمودين المطلوب تحويلهم الى صفوف حسب الصورة ...؟

بسبب بعض البيانات الحساسة لم اقم بتعديلها ارسلت لك الرابط على الخاص

لو سمحت ليه يتم بعثرة الحقول يعني ما تطلع بالترتيب الموجود في الجدول الاساسي و عليكم السلام حاولت ارفع اكبر ملف حجمه 20 ميغا بعد الضغط صار الحجم 13 ميغا للاسف المنتدى ماسمح لي لان حجم الملف كبير

Up

نعم هذه النتيجة المطلوبة لكن للاسف عند تطبيقها على ملف البيانات الاصلي الذي ناتجه 5100 سجل تشغيل الاستعلام بطيئ وعدد السجلات يزداد في كل اسبوع

السلام عليكم ورحمة الله وبركاتة عيد مبارك بالمرفق جدول بيانات اكسل مرتبط بقاعدة البيانات يحتوي على بيانات مبعثرة ومكررة بمعنى كل 25 صف من صفوف الجدول تكون سجل واحد فقط قمت بعمل استعلام لتكوين سجل واحد وحذف البيانات المكررة ولكن المشكلة هناك عامودين لم اتمكن من اضافته الى السجل في الحقيقة استطعت ان انسق البيانات بحذف التكرار وجعل كل 25 سطر ( سجل ) من الاكسل عن طريق استعلامات كثيرة لكن للاسف عند زيادة اعداد السجلات يكون تشغيل الاستعلام النهائي بطيئ جدا والمشكلة انه في نهاية كل اسبوع تزيد عدد السجلات تقريبا 150454 في الاكسل يعني بعد كم شهر راح يهنق الاستعلام ومايشتغل المطلوب : هل هناك طريقة عن طريق الكود لاكمال بيانات السجل في الاستعلام باضافة قيم العمود Question كعناوين اعمدة لتكون عمود منفصل لكل قيمة وتندرج تحتها القيم المقابلة في العمود Answer لعدد 25 حقل على اعتبار انها تكون تابعه لنفس السجل لنحصل على هذه النتيجة في الاستعلام لأتمكن من انشاء جدول جديد من الاستعلام بالاضافة الى البيانات الموجود في الاستعلام nw.rar

لم أقم بعمل اي شيئ اضافي فقط اضفة بعض الاعمدة Sub test() Dim a a = Sheets(1).Cells.CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) If Not .exists(a(i, 1)) Then .Add a(i, 1), Array(Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6), _ a(i, 7), a(i, 8), a(i, 9), a(i, 10), a(i, 11), a(i, 12), a(i, 13), a(i, 14), a(i, 15), _ a(i, 16), a(i, 17), a(i, 18), a(i, 19), a(i, 20), a(i, 21), a(i, 22), a(i, 23), _ a(i, 24), a(i, 25), a(i, 26), a(i, 27)), Array(a(i, 28), a(i, 29))) Else w = .Item(a(i, 1)) w(1)(0) = w(1)(0) & "|" & a(i, 28) w(1)(1) = w(1)(1) & "|" & a(i, 29) .Item(a(i, 1)) = w End If Next itm = .items For i = 0 To .Count - 1 Sheets(2).Cells(i + 2, 1).Resize(, 27) = .items()(i)(0) Sheets(2).Cells(i + 2, 1).Offset(, 27) = .items()(i)(1)(1) Next Application.DisplayAlerts = False Sheets(2).Cells(2, 28).Resize(.Count).TextToColumns Destination:=Sheets(2).Cells(2, 28), DataType:=xlDelimited, _ Other:=True, OtherChar:="|", FieldInfo:=Array(14, 1), TrailingMinusNumbers:=True Application.DisplayAlerts = True End With End Sub

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

نعم استاذ اريد اضافة اعمدة جديد بنفس طريقة العمودين E و F 🍁

الله يجزاك خير استاذي يبدو أني لم اوصل الفكرة بشل جيد الكود الاول الذي عملته يعمل بشكل جيد انا هنا اريد ز تحويل اعمدة اضافية الى صفوف لنفس الملف لو افترضنا ان هناك اعمدة بنفس طريقة العمود 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