عبد الفتاح كيرة

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

لا عليك أخى وفقك الله لكل خير

شكرا لك أستاذ عماد الكود التالى يوجد به صيغتان للإشارة للمدى مع تغيير رقم الصف لاستجلاب بيانات الكود يستخلص جدول مدرس من جدول مدرسى كبير طبعا كل مدرس جدوله فى صف واحد من الجدول الرئيس لجلب جدول مدرس رقم 2 نحتاج لتغيير رقم الصف و هكذا حتى نجلب جدول آخر مدرس Sub tar() 'الإعلان عن المتغيرات 'العناوين Dim k1 As String Dim k2 As String Dim k3 As String Dim k4 As String 'رقم الصف فى الجدول الأصلى Dim t1 As Integer 'رقم الصف فى الشيت الثانى الذى ستنسخ إليه الجداول للمدرسين Dim t2 As Integer k1 = "مدرسة kemas الإعدادية للبنين" k2 = "جدول الأستاذ" k3 = "" k4 = "اليوم" t1 = 6 t2 = 2 Sheets("new").Columns("a:l").ClearContents Application.ScreenUpdating = False Sheets("new").Range("a1:l500").Font.Bold = True For i = 1 To 50 'لصق العناوين Sheets("new").Range("a" & t2).Value = k1 Sheets("new").Range("d" & t2).Value = k2 Sheets("عام").Range("b" & t1).Copy Sheets("new").Range("f" & t2) 'النزول صفا لأسفل t2 = t2 + 1 Sheets("new").Range("a" & t2) = k4 Sheets("عام").Range("f5:m5").Copy Sheets("new").Range("b" & t2) t2 = t2 + 1 Sheets("new").Range("a" & t2) = "الأحد" 'نسخ جدول أول أستاذ ليوم الأحد 'طريقةالأستاذ خبور للإشارة للمدى مع المتغير Sheets("عام").Range("f" & t1 & ":m" & t1).Copy Sheets("new").Range("b" & t2 & ":i" & t2) 'Sheets("عام").Range(("f" & t1), ("m" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2)) 'النزول صفا لأسفل t2 = t2 + 1 'نسخ جدول أول أستاذ ليوم الإثنين Sheets("new").Range("a" & t2) = "الإثنين" 'طريقة أخرى الإشارة لمدى مع متغير لرقم الصف Sheets("عام").Range(("n" & t1), ("u" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2)) t2 = t2 + 1 Sheets("new").Range("a" & t2) = "الثلاثاء" Sheets("عام").Range(("v" & t1), ("ac" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2)) t2 = t2 + 1 Sheets("new").Range("a" & t2) = "الأربعاء" Sheets("عام").Range(("ad" & t1), ("ak" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2)) t2 = t2 + 1 Sheets("new").Range("a" & t2) = "الخميس" Sheets("عام").Range(("al" & t1), ("as" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2)) t1 = t1 + 1 t2 = t2 + 2 Sheets("new").Range(("a" & t2), ("i" & t2)) = k3 Next Application.ScreenUpdating = True Sheets("new").Activate Range("a1").Select End Sub و مرفق البرنامج نفسه للاطلاع و إبداء الرأى فى كود جلب جداول المدرسين و ذلك فى الورقة المسماة new فى انتظار الرد و تقييم هذا الكود البدائى واقتراح تحسينات عليه مع الشكر جدول للتدريب على الكود للرفع.zip

بارك الله فيكم إخوتى يا ليت استكمالا للفائدة ممكن كود جمع عمودين متجاورين و الناتج فى العمود الثالث ؟ ولو أننا أثقلنا عليكم بارك الله فيكم

أقصد أخى عماد كيف أتنقل بين خلايا عمود صفا بعد صف من خلال استبدال رقم الصف بمتغير أنا أريد صيغة ذلك

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

أهلا أخانا أبا البراء أثريت الموضوع ممكن شرح الكود خاصة .End(xlDown).Select شكرا لك ولو أحد عنده طرق أخرى فلا يبخل علينا بها

أشكرك أبا البراء لكنى لست صاحب السؤال عموما أثريت معلوماتنا بمعادلة جديدة

الأخ الفاضل أنت لم تخبرنا من البداية بوجود أرقام كبيرة

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

رائع جدا أخى هشام 4 أسطر من ذهب Sub HH() Dim XYZ As Range For Each XYZ In Range("a1:a100") XYZ.Offset(0, 1).Value = XYZ.Value * 3 Next End Sub بارك الله فيك المهم عندى ألا تظهر المعادلة عند تحديد الخلية لابد أن هناك طرقا أخرى نطمع فى كرمكم مع جزيل الشكر

أشكرك جدا على كريم عطائك وسرعة استجابتك جارى التحميل و إلى لقاء

السلام عليكم العمود a فيه مثلا القيم 1 2 3 المطلوب ضرب a1 فى 3 ووضع الناتج فى b1 ضرب a2 فى 3 ووضع الناتج فى b2 وهكذا لنهاية المدى طبعا بالكود أيضا بدون حلقة تكرار مع الشكر

أقصد مثلا عند الإشارة للمدى n1:u1 الحرفان n - u يمثلان العمود بينما الرقم 1 يمثل رقم الصف أنا أريد أن أجعل رقم الصف هذا متغيرا و ليس ثابتا فهل الصيغة التالية جيدة أو هى الوحيدة الممكنة أم هناك طرق أخرى؟ Sheets("عام").Range(("n" & t1), ("u" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2)) أم أن هناك طرق أحسن فهنا المتغيران t1 - t2 حلتا مكان أرقام الصفوف لعل طلبى واضح علما بأن الصيغة السابقة تعمل بكفاءة

أحسن الله إليك أخ عماد دروسك الآن مطبوعة لدى على الورق لاستخدامها وقت الحاجة عندى سؤال لك و للأساتذة الأسرع يجيبنى متكرما أنا أشير لمدى هكذا مثلا a1:f1 ولكن كيف أشير للمدى نفسه لو أحببت أن أستخدم متغيرا بدلا من الأرقام يعنى رقم الصف سيتغير عندى أثناء البرنامج فما الجملة المعبرة عن ذلك فى حالة استعمال متغير r مثلا أرجو أن يكون سؤالى مفهوما و إذا كانت هناك أكثر من طريقة فأود معرفتها كلها وشكرا لكم

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

السلام عليكم ده تقريب تفصيل عندنا 4 أنواع من التقريب كما ذكر أخونا لذلك استخدمت دالة choose ضع المعادلة التالية أمام a1 واسحبها لأسفل =CHOOSE(IF(A1>1.7;1;IF(A1>1.5;2;IF(A1>1.2;3;IF(A1>=1;4;""))));CEILING(A1;1);A1-MOD(A1;0.5);CEILING(A1;0.5);ROUNDDOWN(A1;0)) طريقة أبسط بدالة if فقط =IF(A1>1.7;CEILING(A1;1);IF(A1>1.5;A1-MOD(A1;0.5);IF(A1>1.2;CEILING(A1;0.5);IF(A1>=0;ROUNDDOWN(A1;0);"")))) وشكرا

زادكما الله علما حلول رائعة و مبهرة

Function_num (رقم الدالة) مطلوبة. الأرقام من 1 إلى 11 (بما في ذلك القيم المخفية) أو 101 إلى 111 (تجاهل القيم المخفية) والتي تحدد الدالة التي تستخدم في حساب الإجماليات الفرعية داخل القائمة. Function_num (بما في ذلك القيم المخفية) Function_num (تجاهل القيم المخفية) الدالة 1 101 AVERAGE 2 102 COUNT 3 103 COUNTA 4 104 MAX 5 105 MIN 6 106 PRODUCT 7 107 STDEV 8 108 STDEVP 9 109 SUM 10 110 VAR 11 111 VARP Ref1 مطلوبة. النطاق أو المرجع المسمى الأول الذي تريد الإجمالي الفرعي له. فتح الله عليكم

ما هذا يا رجل؟ ده شغل فيروسات والله أعلم

بارك الله فيك و إلى الأمام

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

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

=0&MID(A1;2;7)

لو أنت فاتح شاشة إكسل أمامك ستدور مع دوران الشاشة معلومة قيمة أخ طارق