omar elhosseini

تحياتى الى الاخ التقني العنوان صحيح ويعمل على جهازى ارجو الغاء الكوكيز والتجربة تحياتى

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

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

تحويل الارقام و العملات الى حروف دوال تفقيط جميع العملات والارقام على هذا الرابط http://www.officena.net/ib/index.php?showt...33&hl=تفقيط حبى وتقديرى مع وسام التميز الى كل الاساتذة اللذين ساعدو فى اثراء مكتبة الاكواد العربية بأعمال فريدة يعجز الاكسيل عن اداءها ولن نجد شبيه لها حتى الان فهى اكود يفخر بها منتدانا ويميزه دون المنتديات العربية قاطبة بصدور هذه الاكواد من منصة منتديات اوفيسنا . :: مع تحيات عاشق الاكواد المميزة ::

دالة تفقيط الدرجات للأستاذ ابو هادى على هذا الرابط http://www.officena.net/ib/index.php?s=&am...ost&p=19027

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

اخى اذا وضعت الملف ربما يمكن حل المشكلة

الاخ lord لاحظ الاتى : قمت بتعديل مدى الفرز لييناسب مع جدول الاختبار اعد المدى كما تريد بعد ذلك . فعلا يحدث هذا الخطأ مع الفرز بسب ديناميكية الدوائر (الفرز يختار مدى الفرز ويقوم بالترتيب ثم كود الدوائر يعمل بعد ذلك ويختار من مدى الدوائر خلية خلية فيحدث تعارض فى العناوين) ما علينا من الية عمل الدوائر للتغلب على هذه المشكلة اتبع الاسلوب الموجود فى موديول 7 وهو بالترتيب الاتى : قبل الفرز نعمل على ازالة معادلات الدوائر بالماكرو (Test1) . تنفيذ امر الغاء الدائر السطر الثانى فى الماكرو (Test1) . بعد الفرز نعيد كتابة معادلات الدوائر التى قمنا بأزالتها الماكرو (Test2) . بذلك لن يحدث اى خطأ ملاحظة اخرى : كود الدوائر فى ملفك هو النسخة الاولى من كود الدوائر قمت بوضع اخر نسخة للأستاذ السيد عبد العال من الكود بالملف احتفظ بها والغى الكود الذى عندك شاهد المرفق omar.rar

ضع الملف لأكتشاف الخطأ

اخى شاهد هذا الرابط دالة الترتيب للاستاذ ابو هادى

الاخ saffaa أعمالك متميزة .. فلماذا لم تعط هذا العمل بعضا من اهتمامك ؟ اين عدم الاهتمام اخى مشكلة الطباعة ليست مشكلة فى البرنامج هى مشكلة طول بيانات الطلب ويمكنكم تعديل ذلك بدون تدخل منى اما بانقاص عرض الاعمدة او بحذف بعض الاعمدة لتدخل فى نطاق الطباعة - أولا بالنسبة لإزالة عمود كتب لك الأخ يمكن ترميز كلمة بنات وبنين إلى ( أ -- ب ... ليخفف عرض العمود ( إقتباس ) 2- التاريخ يمكن كتابته 13/4/95 فيتم إزالة حرفين ( رقمين 19 ) للتوسعه 3-الجنسية يمكن ترميزها إلى حرف ( ص ) يمكنك تنسيق البيانات فى الصفحة الاولى وترميزها بما تريد مع مراعات حدود الطباعة قى هذه الحالة لن توجد مشكلة المرفق الأخير لك تم زخرفة الأزرار فقط ..... ومع الطابعة لالاتغيير كيف رأيت تغير الازرار ولم تر 1- تغير حجم الخط من 12 الى 13 2 - تغير عرض الاعمدة 3 - تغير عدد الطلاب فى صفحة الطباعة 4 - تغير زووم الطباعة من 100 الى 93 بعد تكبير الخط 5 - تعديل رؤوس الاعمدة من كتابة افقية الى رأسية انت لم ترى الكثير أرسل لك اخونا في الله مرفقا وهو عز الطلب .. تركته وذهبت للمرفق الذي اشتكينا منه كيف هو عز الطلب عز الطلب من وجهة نظرك ام من وجهة حدود الطباعة عز الطلب هذا خارج حدود الطباعة بأخر 2 عمود رغم صغر الخط فى عز الطلب يجب فهم معنى حدود الطباعة جيدا الهامش الايمن والايسر قى البرنامج مساوى لصفر هنا يكون التحكم لكم فى التنسيق وعرض اعمدة البيانات وحجم الخط وليس تقصيرا منى وعدم اهتمام واليك مثال على ما اقول المرفق هو نفس الملف السابق بدون تعديل على اكواد البرنامج الذى تم فقط هو حذف اخر عمود واعادة التنسيق مثلا حسب رغبتى او رغبة اى عضو البرنامج سليم ولابه شائبة وشكرا لك على حسن تقيمك رغم اننا الان فى المشاركة رقم 56 وانت لم تشترك فى الموضوع الا من بداية المشاركة رقم 52 وتتحدث عن الاهتمام شكرا لك اخى ____________6.rar

Resize يعمل هذا الامر على زيادة وتقليل حجم المدى المختار بعدد من الصفوف والاعمدة التى تحددها للزيادة او النقصان شاهد المرفق لتتعرف على الامر Resize.rar

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

استاذنا علي السحيب تحياتى لك شكرا لك مرورك الكريم اردت الخروج من حلقة تكرار استخدام الاوامر .

اخى halwim إذا تم إدراج صف جديد بوسط المدى كلنا نعلم أن الصف الجديد سيكون لونه أبيض وحدوده عادية وووالخ من قال ذلك عند ادراج صف او عمود وسط مدى ذو صفات يحمل نفس الصفات بحيث يأخذ نفس الأسلوب فلو فرضنا أن أحد أعمدة المدى يتطلب خلية مطلقة ($) فيصبح بمجرد كتابة أي قيمة تكون الخلية مطلقة صفة العناوين النسبية والمطلقة ليست من صفات الاسطر والاعمدة بل هى صفة لعناوين المعادلة الخاصة بالخلية اعد تحميل المرفق من هنا تجد فى الصفحة الثانية امكانية تحويل عناوين اى معادلة عند ادخالها من نسبى الى مطلق http://www.officena.net/ib/index.php?act=S...st=0#entry63366 تحياتى

بسم الله الرحمن الرحيم تحياتى الى الجميع من الملاحظ انه توجد بعض اوامر ال ( VBA ) لانستخدمها بكثرة فى مشاركتنا بل توجد الكثير من الاوامر التى لم تستخدم بالمرة فى معظم المنتديات العربية واحببت ان يشترك معى الاخوة الاعضاء فيما ارى ان نادر الاستخدام لنتعرف على بعض الاوامر Converting From Relative to Absolute اليوم نبدأ بأمر يسمح بتحوبل العناوين من عنواوين مطلقة الى نسبية والعكس . ولتتعرف كيف يعمل هذا الامر شاهد المرفق Converting_From_Relative_to_Absolute.rar

اعد تحميل المرفق تحياتى

الاخ halwim تحياتى شاهد المرفق _____________.rar

اخى atob تحياتى لك لابأس من استفسارك فنحن فى الخدمة الكود كان به بعض الاسطر الزائدة تم ازالتها حتى يسهل الامر عليك شاهد الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) MyCol = ActiveCell.Column ' متغير نضع فيه رقم العمود الذى نقف فيه اى الذى تم التأشير عليه MyRow = ActiveCell.Row ' متغير نضع فيه رقم الصف الذى نقف فيه اى الذى تم التأشير عليه If MyCol = 2 And MyRow >= 11 And MyRow <= 15 Then ' يقوم بالتفيذ فى الحالات الاتيه : ' اذا كان رقم العمود الذى نقف عليه هو العمود 2 أى العمود الذى به الاسماء التى سنوشر عليها ' اذا كان رقم الصف الذى نقف عليه هو من 11 الى 15 أى الصفوف التى بها الاسماء التى سنوشر عليها With Sheets("ورقة3") ' بأستخدام البيانات من الورقة الثالثة For x = 2 To 14 ' هى دورة تقوم بنقل بيانات الاسم الذى تم تحديده الى السطر الموجود فى الورقة الاولى من العمود 2 الى العمود 15 Cells(4, x) = .Cells(MyRow - 7, x) ' يقوم بالننسخ خلية خلية من الورقة 3 الى الورقة 1 ' والرقم 7 هو الفرق بين رقم صف احمد فى الورقة 1 ورقم صف احمد فى الورقة 3 Next x End With End If End Sub End Sub اخى حمل الملف بعد ازالة الاسطر الزائدة تحياتى ___________.rar

اخى هذا السطر يعمل على الاتى عندما تدخل رقم فى الخلية (B3) سيختبر الخلية (C3) اذا كانت لاتحتوى على تاريخ يسجل فيها المبلغ اما اذا كانت تحتوى على تاريخ يسجل فى الورقة الثانية شاهد المرفق _____________.rar

اخى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then ' يعمل السطر السابق على التأكد من التعامل مع خلية واحدة لحل مشكلة التعدى If Not Intersect(Target, Range("B3:B30")) Is Nothing Then ' تحديد مدى الادخال If IsDate(Range(Target.Address).Offset(0, 1)) Then ' يقوم بأختبار خلية العمود (C) اذا بها تاريخ مسجل يقوم بالتسجيل فى الورقة الثانية وغير ذلك يسجل فى الاولى Sheets(2).Range(Target.Address).Offset(0, -1) = Date & " " & Time ' تسجيل تاريخ الدفعه فى نفس السطر فى الورقة الثانية Sheets(2).Range("A32") = Date & " " & Time ' تسجيل تاريخ اخر دفعه اخر فى الصغ 32 فى الورقة الثانية Else ' يقوم بنفس التسجيل ولكن فى الورقة الاولى عندما لايكون هناك تاريخ فى خلية العمود (C) Range(Target.Address).Offset(0, 1) = Date & " " & Time Cells(32, 3) = Date & " " & Time End If End If End If End Sub تحياتى _____________.rar

الاخ mhrrd تصميمى للملف على اساس انك تفعل خاصية اظهار قيم الصفر 0 قم بتفعيلها كالاتى : من قائمة( ادوات / خيارات / عرض ) ضع علامة صح امام ( قيم الصفر )

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

الاخ halwim فى محرر الاكواد اكتب (OnKey) ثم اضغط مفتاح (F1) ستجد الاجابة تحياتى

الاخ halwim تحياتى شاهد المرفق __________________________________3.rar