طارق محمود

السلام عليكم بالإضافة إلي رد أخي نوفل nofal.saad أيضا يمكن عمل ذلك من الإكسل ولكنها غير مريحة من وجهة نظري علي كل حال الكود منقول من أعمال أحد العباقرة بالمنتدي أظنه عالمنا الكبير خبور خير تفضل المرفق تنفيذ الأمر عند وقت محدد.rar

وهذا المرفق تستطيع تجربة الكود عليه تحويل جميع الدوال الى نتائج فقط.rar

السلام عليكم الكود هو: Sub delete_all_functions() x = Worksheets.Count For i = 1 To x Worksheets(i).Select Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select For Each se In Selection se.Value = se.Value Next Next i End Sub وبالطبع يمكنك إضافة شرط الوقت أو اليوم

السلام عليكم أستاذنا العظيم بارك الله فيك وفي أوقاتك إسمح لي بطلب للفائدة إذا سمح وقتك :ان تضيف شرط إن كانت البوينت بين رقمين تظل مع الأرقام لأن لو الرقم ليس رقما صحيحا أي به بوينت يضمها مع الحروف كأن تكون العبارة " حصل محمد علي 33.75 درجة" وجزاك الله كل الخير علي ماقدمت وماتقدم لجميع الأعضاء تلميذكم / طارق محمود

السلام عليكم أخي العزيز إسمح لي إنت شحيح في شرح ماتريد عموما يارب يكون المرفق ماتريد وإلا إشرح أكثر شرح الملف المرفق تم تسمية خلية السعر في كل نوع سيارات بإسمها تم إضافة شيت جديد All فقط به جميع الأسماء (الموديلات) في الورقة1 تم عمل Data Validation لأسماء السيارات في الخلية A4 تماما كما عمل ذلك أخونا العزيز هشام شلبي يعني ممكن تختار فقط من السهم اللي في الخلية A4 عن طريق الدالة INDIRECT يمكن الحصول علي الخلية لمطلوبة من الورقة الخاصة بها أيضا يمكن تعديل هذا مثلا ، لو تم بيع أكثر من سيارة من نفس النوع في نفس اليوم يمكن الحصول علي عددها وإجمالي سعر البيع مثلا بس إنت إشرح اللي تريده بالضبط استدعاء بيان من صفحة معينة أخرى1.rar

أخي العزيز فقط تضغط الزر الأصفر في الورقة الرابعة والكود يصلح حتي 99 إسم (يعني 99 شيت) وممكن طبعا زيادته تفضل المرفق test2.rar

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

أخي الكريم أنظر الفيديو المرفق للمزيد إنسخ كود من أي موضوع مشابه وماأكثرها بالمنتدي hide2.rar

السلام عليكم ولاغلبة ولاحاجة راجع الرابط الآتي لأكواد الأحداث http://www.mvps.org/dmcritchie/excel/event.htm#change أكواد الأحداث هي أكواد خاصة وترتبط بحدث معين في هذا الشييت فقط (أي الشييت الذي تضع فيه الكود) وقد وضعت لك كودين منهما كود إسمه Worksheet_Activate والآخر إسمه Worksheet_Change وكما هو واضح من إسمهما واحد ينفذ الكود بمجرد تنشيط الورقة (أي كلما تدخل عليها) والآخر بحدوث أي تغيير في الورقة (Editing) أما الكود نفسه هو سطر واحد في الحالتين Range("n12:n79").AutoFilter Field:=1, Criteria1:="OK" ينشط عملية الفلترة السابق ذكرها

السلام عليكم ليس بعد كلام الأساتذة خبور خير والحسامي أي كلام فقط أيضا للإثراء مرفق حل بدون أكواد بإستخدام الدالة Indirect Book2_Tareq.rar

لغيت الفلتر في الورقة الأولي وأخفيت عمود الفلتر في الثانية وعند الدخول علي الورقة الثانية ، أوتوماتيكيا سيتم تعديل الفلتر إلي الحالة OK وأيضا عند أي تغيير في الورقة الثانية ، أوتوماتيكيا سيتم تعديل الفلتر إلي الحالة OK

السلام عليكم تفضل المرفق فقط لم أكن أريد أن أستخدم الأكواد III-05-3.rar

أخي العزيز حسب ما هو بالورقة الثانية الصفوف من 13 إلي 51 ثابتة وسيختفي منها مالاداعي له فقط النقل سيتم أوتوماتيك من الورقة الأولي بالمعادلات لن تفعل شيئا إلا أن تضغط قبل الطباعة علي السهم في العمود المساعد وتختار حالة OK

السلام عليكم أولا يمكنك عمل ملف خاص بالأكواد دائم في الإكسل وترفقه دائما بصيغة Add-In ولكن هذا يتطلب أن يكون للماكرو إختصار من لوحة المفاتيح (الكيبورد) وليكن مثلا Ctrl مع حرف Q الكابيتال أو Ctrl-Shift-Q الخطوات لعمل ذلك: إفتح محرر الفيجوال بيزيك عن طريق Alt-F11 إنسخ الماكرو إفتح ملف جديد وليكن Book2.xls ضع الماكرو به من خيارات الماكرو :إختر إختصار من لوحة المفاتيح (الكيبورد) حرف Q الكابيتال إحفظه بصيغة xla آخر خيار في قائمة الحفظ ، إكسل 2003 وطبعا تسميه كما تشاء أنا سميته في الفيديو المرفق Rrrrr من قائمة Tools ثم Add-In إختر الخيار الجديد Book2 بشرط أن تكون البيانات بنفس النسق : اسم العميل , التاريخ , رقم الصنف , الرصيد حتى تاريخه في أربع أعمدة مع أي ملف آخر إذا ضغطت Ctrl-Shift-Q سيتم تنفيذ الماكرو أنظر الفيديو لمزيد من الإيضاح ثانيا أنا بالفعل راعيت هذه النقطة يقوم الكود بحفظ أقل تاريخ وأكبر تاريخ عند القراءة من الورقة الأولي ثم في الورقة الجديدة ، في الصف الثالث يبدأ من يوم 1 في شهر أقل تاريخ وينتهي عند آخر يوم في شهر أكبر تاريخ بمعني لو أقل تاريخ مثلا 22/7/2010 وأكبر تاريخ 3/2/2011 ستجد التاريخ في الورقة الجديدة ، في الصف الثالث يبدأ من يوم 1/7/2010 وينتهي في 28/2/2011 أوتوماتيكيا وهذا سيستهلك من أعمدة 243 + 1 لرقم الصنف =244 من أقصي متاح (256 رقم في إكسل 2003) جرب مرة أخري وستجد ذلك صحيحا ولكن لاتزيد عن 8 أشهر لو إكسل 2003 لأن عدد الأعمدة محدود Add_IN_XLA.rar

السلام عليكم مرحبا بك ياباشمهندس انا أيضا مهندس مدنى أنا حليت لك حل بسيط بدون أكواد أولا نقلت كل البيانات اللي في الورقة الأولي للثانية ثم بإستخدام عمود مساعد به فلتر يتكون فيه أوتومايتك حالة الطباعة الحالة OK تعني أن هذا البيان قد غيره العميل غيره وبالتالي يتم طباعته والحالة Hide تعني أنه لم يتغير يعني صفر يعني لاداعي لطباعته كل ماعليك قبل الطباعة أن تضغط علي السهم في العمود المساعد وتختار حالة OK وكذلك في الورقة الأولي راجع المرفق وأخبرني النتيجة III-05-2.rar

السلام عليكم عذرا أخي إنشغلت عنك نرجع لطلباتك يبدو أنني لن أستطيع مساعدتك إلا في إخفاء ورقات العمل تستطيع ان تنقل البيانات الهامة لورقة أو ورقات وتجعلها مخفية لمنع اللعب فيها أنظر الفيديو المرفق سيتم إخفاء Sheet2 إخفاء عادي يمكن إرجاعه من القوائم وسيتم إخفاء Sheet3 إخفاء زائد لايمكن إرجاعه إلا من الكود وليكمل باقي الإخوة طلباتك Hide_Unhide.rar

السلام عليكم مرفق المطلوب تم عمل خلايا أخري إضافية لحساب معامل القرعة وهو معامل موجب (أي يضاف) إلي تقييمه اللي في العمود AB أيضا باستخدام الجداول المحورية تم عمل أكثر من تقرير مطبوع إختر منها مايناسبك وبتحديث أي بيانات في الورقة الأولي فقط علي التقرير الذي إخترته ، داخل الجدول المحوري ، كليك يمين ثم Refresh جدول لادارة مسابقة رياضية3.rar

السلام عليكم تفضل أخي الكريم المرفق به كود (ماكرو) بالضغط علي الزر الأصفر ينتج لك شييت جديد في نفس الملف بإسم العميل وبالتنسيق البيانات الذي تريده ballance.rar

السلام عليكم تفضل أخي المرفق نسخ2منت.rar

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

السلام عليكم أخي العزيز يبدو انه لابد من الأكواد ، ولكن شكل الجدول وتنسيقه إذا كان ثابتا سيؤثر في الكود يوجد في الملف الأصلي ballance عمودان مخفيان E ، B إذا كانت البيانات من الـ Query تأتي دائما بهذا الشكل فالأفضل إرفاق جدول أكبر أي به 3 عملاء علي الأقل يمكنك إستبدال أسماء العملاء بــ عميل 001 , عميل 002 , عميل 003 وهكذا

السلام عليكم أرجو أن أكون فهمت المطلوب تم عمل خلايا إضافية لحساب معامل الأسبقية بحيث أن من يبدأ في الثقل أولا ويفشل يضاف إليه معامل سالب (أي يطرح) من تقييمه اللي في العمود AB راجع المرفق وأخبرني جدول لادارة مسابقة رياضية2.rar

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

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

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