ahmed sherif

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

السلام عليكم كل عام وحضراتكم بخير اريد كتابة تلك المعادلات بواسطة vba application

1- IF(AND(ISNUMBER(I7),ISNUMBER(K7)),G7,"")

2- IF(AND(ISNUMBER(I7),ISNUMBER(K7),I7>K7),G7,"")

3- SUMPRODUCT(($bn$7:$bn$23=ca9)*($bo$7:$bo$23))+SUMPRODUCT(($bq$7:$bq$23=ca9)*($bp$7:$bp$23))

السلام عليكم نفذت معادلة xlookup بواسطة vba لكن عند الاتنفيذ لا يعطينى اى ناتج ولا حتى رسالة خطاء

الموديل بأسم sub dd فى الملف المرفق

test2.xlsm

بسم الله ماشاء الله ربنا يزيدك من فضله

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

My_test.xlsm

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

استاذ سليم السلام عليكم انا شاكر لآهتمام حضرتك

لكن الجزء اللى منوقف فيه هو فى الشيت رقم 2 

المشكلة هى انى زودت عدد الصفوف الى تسعة بدلا من خمسة

بدءا من الصف الخامس J5 الى  j13

بالاضافة عايز افهم هذا الجزء المحدد End(4)) 

مرفق لضرتكتجارب.xlsm الملف مرة اخرى وشكرا لحضرنك

جزيل الشكر لكما لدعمكم بهذه الاحابة العبقرية جزاكم الله كل خير

استاذ سليم السلام عليكم انا عملت تعديل لشكل الجمع كنوع من انواع التدريب نجح الامر فى الشيت رقم 1 حاولت فى الشيت رقم 2 زيادة عدد الصفوف الى 9 صفوف بنفس الشكل المعدل لكن النتيجة خاطئة او لم تنفذ بالشكل الصحيح منى طبعا

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

m = .Range("A1", Range("A1").End(4)).Rows.Count وخاصه الجزء اللى بلون احمر

والثانى كيف ازود عدد الصفوف التىتجارب.xlsm اريد جمعها على نفس الشكل بعد التعديل فى الملف المرفق 

السلام عليكم الاستاذةا  الكرام

اريد عمل عملية جمع لجدول عدد الصفوف فيه ثابتة ولتكن 5 صفوف فى الجدول الواحد

الجدول مكرر عشرون مرة على سبيل المثال

اريد ان اتعلم كيف يمكن عمل حلقة تكرارية بحيث يتم جمع الجداول كل واحد على حده لكن مرة واحدة وتكرار المعادلة اكثر من مرةتجارب.xlsm

السلام عليكم الاستاذة الكرام عملت دالة تظهر اليوم الحاص بالتاريخ المشكلة ان الناتج يظهر باللغة العربية وانا اريده باللغة الانجليزية

المعادلة هى

=IF(E5="","",TEXT(E5,"dddd")

جزاك الله كل خير استاذ طارق

ترقيم.xlsxالسلام عليكم الاستاذه الكرام  لدى ملف اكسيل يوجد به جدولين متجاورين متكررين لعدة مرات كل جدول به تسع خانات اريد عمل ترقيم تلقائى لعدد الجداول اولا واريد  ترقيم تلقائى لعدد الخانات للجدول ثانيا لكن سيكون عدد خانات الجدول الثانى مكملة لعدد خانات الجدول الاول على سبيل المثال الجدول الاول من 1 الى 9 الثانى من 10 الى 18 الثالث من 19 الى 27 وهكذا مرفق ملف توضيحى ملحوظة اريد عمل هذا الترقيم داخل الشيت نفسه وليس على عدة شيتات

جزاك الله كل خير على هذه المعلومة الجميلة

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

السلام عليكم الاستاذة الكرام اريد تعلم انشاء current region لاستخدامة فيما بعد لعملية النسخ واللصق بواسطة vba 

المشكلة التى تواجهنى انى عامل جدول بين اعمدته فواصل صغيرة بمعنى من (a1:e10) نطاق f1 فراغ او فاصل ثم من (g1:g10) ثم h فراغ او فاصل ثم من (i1:i10)نطاق L فراغ او فاصل ثم من (k1:k10)نطاق 

يتكرر النطاق بالكامل بنفس الوضعية من (m1::w10)بنفس الشكل

اريد نسخ المجال بالكامل من (a1:w10) بعد تحديدة بواسطة current region داخل ال شيت نفسة للصق اكثر من مرة النسخ واللصق  لكن التحديد بواسطة ال current region هو اللى موقف الموضوع مرفق الملف للتوضيح

تم تعديل رفع الملف

YT.xlsm

يا نهار ابيض انا كنت ياصص على االشريط اللى تحت حالص شكرا لحضرتك والله انا محرج من حضرتك جدا احيانا تبقى الحلول امام اعيننا ولا نراها

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

السلام عليكم استاذ محمد بخصوص ملف الاكسيس اللى حضرتك ساعدتنى فيه لم افهم المقصود بتعديل الاسماء الى اللغة اللاتينية اضطرت الى اعادة التصميم من جديد وادخال الكود يدويا ظهرت لى هذه الرسالة invalid procedure callorargument وكلمة Private Sub sceh_Change() مظلله باللون الاصفر انا بعتذر لحضرتك جدا اننى اثقلت عليك لكن الموضوع شديد الاهمية بالنسبة لى الغريب فى الامر انه لايوجد مشكلة على الجهاز بينما على اللاب لا يعمل بالرغم تطابق كل شئ من اعدادات اللغة على الجهاز و نسخة الويندز والاوفيس انا عملت اقصى ما لدى لحل المشكلة قبل اللجوء الى حضرتك مرة اخرى

السلام عليكم استاذ محمد معلش بخصوص ملف الاكسيس اللى مش عايز يشتغل عندى على الللاب فى مشكلة غريبة بعد الدخول على قائنة tools فى المطور واختيار  editor format tab font لا يظهر سهم منسدل لاختيار لغة Courier New (Arabic هذه  صورة لعدم وجود سهم منسدل

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

استاذ محمد عندما قمت بنقل الملف من الجهاز على اللاب وضغطت على النموذج ظهرت لى هذه الرسالة

microsoft access connot save the form or report because it displays characters form a language that connot be saved in your current system locale
switch your system locale to the language in the form and the try again

تأكدت من اعدادات النظام  لقبت متعرف على اللغة العربية ما المشكلة

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

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

gstorm.rar

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

Private Sub ffind_KeyUp(KeyCode As Integer, Shift As Integer)

        If KeyCode = 32 Then
        Me.ffind.Value = Me.ffind.Text & Chr$(32)
        Me.ffind.SelStart = Len(ffind.Text)
        
End If
End Sub

انا عاجز عن الشكر يا استاذ محمد جزاك الله كل خير وجعله فى ميزان حسناتك ان شاء الله ادرس الكود جيدا حيث انه اول كود اتعلمة فى الاكسيس لأننى اريج تنفبذ مهمة صعبة جدا ايضا داخل النموذج و بنسبة تتعدى 95 % محتاجة كود vba انا سعبد جدا بمعرفة حضرتك