جلال الجمال_ابو أدهم

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة عمل اسم مستخدم وكلمة مرور تم ارفاق المشاركه من أبوهديل و ادخال كود الدخول بالشاشه من الفاضل _ أ / مهند الزيدي اسم المستخدم ABC باسورد 123 و لا تنسونا من صالح الدعاء كشف الموظفين مختصر.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود لتعديل الإطار تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله لاحظ بالملف المرفق بمجرد ادخال بيانات فى العمود _G _ التاريخ يتم تحرك سطر التحديد Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False On Error Resume Next If Intersect(Target, Range("G3:G1000")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("G3:G1000")) Is Nothing And Target.Value <> "" And Target.Offset(1, 0).Value = "" Then Range(Target, Target.Offset(0, -6)).Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlHairline End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlHairline End With Target.Offset(1, -6).Select Else Range(Target, Target.Offset(0, -6)).Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlHairline End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlHairline End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Color = -8355712 .TintAndShade = 0 .Weight = xlHairline End With Target.Select End If Application.ScreenUpdating = True End Sub و لا تنسونا من صالح الدعاء Format Cells - Border-1.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة المدى والجدول الديناميكى الابعاد (Dynamic table) تم ارفاق كود الحل من الفاضل _ أ / عمر الحسينى _أبو تامر جمع تلقائى لمدى معين باستخدام Dynamic table Range مع الداله OFFSET فيمكن استخدام المدى المتحرك بمعنى المدى الديناميكى (Dynamic Range) فى عمل جدول ذو مدى ديناميكى (Dynamic table) ولعمل Dynamic Range يجب اجادة استخدام دالة (OFFSET) مع احد دوال العد مثل (COUNTA) الجدول الديناميكى يمكن عملة بطريقتين حسب احتياجك النوع الاول هو الجدول ذو المدى المتحرك بعدد الصفوف حسب احتوائها للبيانات وهو ما فهمت من طلبك شاهد المرفق ستجد فى المرفق ورقتين الورقة الاولى بها مثال لما تطلب اللون الاخضر هو مدى الجدول ويتم انشاء المدى (MyRange1) من قائمة ( ادراج / اسم / تعريف ) وكتابة اسم المدى فى خانة (الاسماء فى المصنف) ومعادلة المدى فى ( يشير الى ) والمعادلة المستخدمة هى : =OFFSET(Test1!$B$8;0;0;COUNTA(Test1!$B$8:$B$141);13) والخلية الصفراء تقوم بعملية جمع الجدول وصيغتها : =SUM(MyRange1) والورقة الثانية : نفس الورقة الاولى مع الاختلاف فى نوع الجدول وهو جدول ديناميكى بعدد الصفوف والاعمدة Dynamic_table.rar و الان مع شرح الداله Offset استخدام دالة ( Offset ) لتصنع مدى او نطاق ديناميكى هي دالة حيوية لها كثير من الاستخدامات دالة (Offset) من الدوال الهامة جدا التى تتعامل مع مراجع الخلية وهى من الدوال التى تزيد امكانيات الدوال الاخرى التى تقترن بها ودالة (Offset) تعيد قيمة من اي خلية يشار اليها بعدد من الصفوف والاعمدة التى تبتعد عنها . وصيغة الدالة هى : =OFFSET(reference,rows,cols,height,width) - العامل الاول : الخلية المرجع او الخلية الاساس او الام 2 - العامل الثانى : عدد الصفوف 3 - العامل الثالث : عدد الاعمدة 4 - العامل الرابع : الارتفاع محدد بعدد من الصفوف 5- العامل الخامس : العرض محدد بعدد من الاعمدة وقد تم استخدام دالة () فى المثال الذى اشرت اليه اخى لعمل مدى متحرك او ديناميكى ولنعمل معا مثال بسيط : نحن نريد إنشاء مدى لجدوال من البيانات يحتوى على 10 صف و 5 أعمدة الوضع العادى لهذا الاجراء هو ان نقوم بتعليم هذا المدى بدأ من الخلية (A1) الى الخلية (E10) من قائمة (ادراج / اسم / تعريف) ونكتب اسم هذا المدى وليكن ( Rng) سنجد ان الصيغة الموجود اثناء انشاء الجدول فى الصندوق الحوارى (تعريف اسم) والتى تشير الى احداثيات المدى ( Rng) هى : A1:E10 وهى عبارة عن 10 صف و 5 أعمدة وتظل هكذا دائما هذا المدى دائما ثابت كما نعرف سواء احتوى الجدوال على بيانات او لم يحتوى على بيانات هنا تأتى فائدة انشاء المدى الديناميكى الذى تزاد عدد صفوفة او تنكمش تبعا لأحتواء المدى على بيانات وخاصة فى العمود الاول او حسب اى عمود تريدة ليكون هو الحاكم بأمر المدى حسب احتوائة على بيانات . سنقوم معا بإنشاء نفس المدى ولكن بأسم ( MyRange ) وبنفس الابعاد التى اشرنا اليها وهى عبارة عن 10 صف و 5 أعمدة . ولكن هذه المرة سيكون كمدى دينامكى يتمدد وينكمش حسب احتواء العمود الاول (A) على بيانات اى اذا كانت الخلايا من (1A) الى (3A) بها بيانات كان المدى عبارة عن 3 صف و 5 أعمدة . اما اذا كانت الخلايا من (1A) الى (7A) بها بيانات كان المدى عبارة عن 7 صف و 5 أعمدة . شئ جميل جدا طبعا لمن يتعامل مع الاكواد وخاصتا من يعمل مع اسماء النطاقات بدل من الاشارة الى المدى بالخلايا المرجعية له 0 اخى قم فتح ملف جديد فارغ لنعمل هذا المثال : قم بتسمية الورقة الاولى Test1 فى الورقة الاولى قم بتحدد المدى (A1:E10) وقم بتلوين خلاياه باللون الاخضر الفاتح ليكون فقط واضح لنا . قف فى اى خلية واضغط مفتاحى (كنترول + اف3) لفتح صندوق الحوار (تعريف اسم) فى خانة (الاسماء فى المصنف) اكتب اسم المدى او النطاق فى هذا المثال وليكن (MyRange) وفى خانة (يشير الى) اكتب الصيغة التالية : سنقوم بشرحا بعد إنشاء المدى والتعرف عليه =OFFSET(Test1!$A$1;0;0;COUNTA(Test1!$A$1:$A$10);5) ثم اضغط موافق وقم بحفظ الملف املئ الخلايا الخضراء بأى بيانات اضغط مفتاح (اذهب الى) اى مفتاح (اف5) و اكتب (MyRange) طبعا بدون الاقواس سنجد ان المنطقة الخضراء تم تعليمها بالكامل (A1:E10) الان قم بمسح بيانات الصف العاشر والتاسع اضغط مفتاح مفتاح (اف5) و اكتب (MyRange) سنجد هنا ان المنطقة المعلمة عبارة عن ثمانية صفوف من الجدول والان امسح محتويات الخلية (8A) اضغط مفتاح مفتاح (اف5) و اكتب (MyRange) سنجد هنا ان المنطقة المعلمة عبارة عن سبعة صفوف من الجدول لماذا اخى سنفهم ذلك من شرج صيغة المدى : =OFFSET(Test1!$A$1;0;0;COUNTA(Test1!$A$1:$A$10);5) لاحظ ان Test1! هذا هو اسم اورقة الاولى ملحق به علامة التعجب ليشر الى اسم الورقة (هذه طريقة الاشارة الى اسماء الاوراق فى صيغ المعادلات) 1 - العامل الاول : Test1!$A$1 وهو يشير الى الخلية (1A) فى الورقة ( Test1 ) اى الخلية الاساسية او نقطة بداية المدى او خلية الارتكاز او الخلية الام 2 - العامل الثانى : صفر 3 - العامل الثالث : صفر العامل الثانى والثالث صفر لأننا لن نبتعد عن الخلية الام بأى عدد من الخلايا لا رأسيا او افقيا 4 - العامل الرابع : COUNTA(Test1!$A$1:$A$10) هذا العامل هو قلب المدى المتحرك او الديناميكى او المفصلى فهو يقوم بعد الخلايا فى العمود الاول من (A1) الى (A10) . فعندما قمنا بمسح بيانات الصف الصف العاشر والتاسع كان ناتج هذا العامل هو 8 أى 8 صفوف وهو العامل الديناميكى فى الصيغة . وايضا عندما قمنا بمسح محتويات الخلية (A8) كان ناتج هذا العامل هو 7 أى 7 صفوف وهنا بيت القصيد . لان ارتفاع الجدول او المدى (MyRange) يتحدد حسب احتواء المدى (A1: A10) على بيانات . 5- العامل الخامس : 5 وهنا نقوم بتحديد عرض الجدول او المدى (MyRange) بعدد من الاعمدة وهو 5 أعمدة وهو ثابت دائما . ولكن يمكن جعله ديناميكى ايضا لو اردنا ذلك بنفس الطريقة المتبعة فى العامل الرابع ليكون جدول متحرك او ديناميكى كامل الاحساس بالنسبة لعدد صفوف واعمدة الجدول ولكن فى مثالنا هذا هو يتحسس فقط عدد الصفوف بالتحكم فى العامل الرابع ولو اردنا ان يكون كامل الاحساس يجب ان يكون العامل الخامس مفصلى ايضا كالرابع مع تغير عناوين الخلايا الى العناوين المناظرة . لعلى وعسى ان اكون قد وفقت فى شرح المدى الديناميكى وقد تعمدت الاسهاب فى الشرح بطريقة مبسطة لما له من اهمية فى عالم الاكواد وتسهيل العمل المراد انجازة بطريقة فعالة وحية تجاة التغيرات فى حجم المدى المحتوى على بيانات . مع تحيات عمر الحسينى _أبو تامر Dynamic_table.rar و لا تنسونا من صالح الدعاء

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة المدى والجدول الديناميكى الابعاد (Dynamic table) تم ارفاق كود الحل من الفاضل _ أ / عمر الحسينى _أبو تامر و لا تنسونا من صالح الدعاء _جمع تلقائى__3 (1).rar _______2 ([Lجمع تلقائى).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود لاجراء عمليات حسابية من خلال الفورم تم ارفاق كود الحل من الفاضل _ أ / طلعت محمد حسن و لا تنسونا من صالح الدعاء عمليات حسابية (1).rar

تحياتى و جزاك الله خيرا و يبارك الله لصاحب الكود أ / ياسر خليل أبو البراء و لسؤالك تم تجميع عمود الكميه المنصرفه _ عمود D تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة جمع في الليست بوكس بفورم بحث أ / عبدالله باقشير With Me.ListFind For Counter = 0 To .ListCount - 1 SumResult = SumResult + .Column(3, Counter) Next Counter End With TextBox1.Value = SumResult مع امكانية تغيير العمود المراد جمعه تم ارفاق كود الحل من الفاضل _ أ / ياسر خليل أبو البراء و لا تنسونا من صالح الدعاء Search UserForm Magic.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة شرح القوائم المنسدلة تم ارفاق كود الحل من الفاضل _ أ / نزار سليمان عيد و لا تنسونا من صالح الدعاء _______________________Combo_Box.rar __فلاش قائمه منسدله____ (1).rar _______________________Combo_Box (1).rar _______________________Combo_Box____userform.rar User_form_nizar.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ماكرو لإدارج صف جديد بنفس التنسيقات والمعادلات تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله و لا تنسونا من صالح الدعاء إدراج صفوف جديدة بنفس التنسيق والمعادلات بالعدد المطلوب (1).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود في زر لانشاء مجلد من اسم خلية(اسم العيادة) وحفظ الفاتورة تم ارفاق كود الحل من الفاضل _ أ / أبو حنــــين و لا تنسونا من صالح الدعاء تحياتى Book1 (حفظ ملف فى مسار محدد).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود في زر لانشاء مجلد من اسم خلية(اسم العيادة) وحفظ الفاتورة تم ارفاق كود الحل من الفاضل _ أ /عبدالله المجرب و لا تنسونا من صالح الدعاء تحياتى BSI2 (فاتوره).zip

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة شرح كود يعمل بطريقة دالة VLOOKUP داخل يوزرفورم تم ارفاق كود الحل من الفاضل _ أ /رجب جاويش _ احمد فضيله و لا تنسونا من صالح الدعاء تحياتى userform2 (CALL CENTER)_RAGAB.rar FADILA (2).rar FADILA 2013.rar

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طلب تسجيل اكبر عدد من الفواتير المرحلة و الحفاظ عليها تم ارفاق كود الحل من الفاضل _ أ /طلعت محمد حسن و لا تنسونا من صالح الدعاء تحياتى تصميم فاتورة (1).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تصحيح الخطأ فى أكواد الاستعلام عن طريق الاسم بشاشة ( فورم ) تم تعديل على الكود من_ أ / طلعت محمد حسن و لا تنسونا من صالح الدعاء تحياتى استعلام عن طريق الاسم تعديل 3 (1).rar

morestudy اخى الفاضل جزاك الله خيرا

تحياتى مرفق معادلتين للتسلسل التلقائى و بفرض مطلوب عمل تسلسل تلقائى فى العمود A بشرط التسجيل فى العمود B تكون المعادله الاولى بسيطه لا تتغير عند فلترة البيانات =IF(B2="";"";MAX(A$1:A1)+1) و الثانيه متغيره فعند فلترة البيانات تتغير حسب البيانات المفلتره =+IF(B2="";"";SUBTOTAL(3;B2:B2)) و لا تنسونا من صالح الدعاء تحياتى معادلتين تسلسل تلقائى بسيطه و اخرى تعمل مع الفلتره.rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج محاسبة لادارة مكتبة تم ارفاق المشاركه من الفاضل _ أ / طلعت محمد حسن و لا تنسونا من صالح الدعاء تحياتى مكتبةsama.rar

ياسر خليل أبو البراء اخى الفاضل ما شاء الله عليك

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مساعدة فى البحث بملف الاكسيل تم ارفاق كود الحل من الفاضل _ أ / أبوعبد الله ـ عبد الفتاح كيرة و لا تنسونا من صالح الدعاء تحياتى قص صف بيانات ولصقه لورقة تحددها من خلال فورم للبحث عن البيانات (1).rar ـkemasكود البحث عن كلمة فى الصفحة ثم حذف صفها.rar ـkemasكود البحث عن كلمة فى الصفحة ثم حذف و لصق صفهاورقتان.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة هل تعلم---------- معلومات تخص ListBox تم ارفاق كود الحل من الفاضل _ أ /عبدالله باقشير و لا تنسونا من صالح الدعاء تحياتى نموذج عرض وتعديل بيانات (1).rar و مرفق ملف بعدتعديل النطاق لزيادة مدى الاستدعاء تعديل النطاق_نموذج عرض وتعديل بيانات.rar

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه برامج تكويد دليل الحسابات نموذج للدليل المحاسبي ثلاثة مستويات_ _ أ / عبدالله باقشير نموذج للدليل المحاسبي اربعة مستويات_ _ أ / عبدالله باقشير دليل حسابات سهل الاستخدام _ أ / عبدالله باقشير كود بحث و اضافة و تعديل تسلسلى لتكويد الحسابات_ _ أ / عبدالله باقشير فورم بحث لاكثر من دليل حسابات _ أ / عبدالله باقشير فورم بحث _ أ / عبدالله باقشير لأول مرة في الأكسل ...شجرة الحسابات بهذه الطريقة_ أ / عماد الحسامى دليل حسابات من عمودين أ / عماد الحسامى و مشاركات الاعضاء هديتى_برنامج تكويد لدليل الحسابات_الاصناف_3_مستويات _ جلال الجمال_ابو أدهم التكويد - انشاء اكواد الحسابات واستشارة المحاسبين_ أ / احمد زمان تكويد / ادخال صنف بناء على اسم المجموعة _ أ / حسام عيسى _ الصقر برنامج دليل حسابات بعدد لا نهائي من المستويات _ أ / أنس دروبي اكواد و معادلات التسلسل التلقائى كود و معادلة تسلسل تلقائى بدلالة خليه _ أ / أبو حنــــين _ سليم حاصبيا معادلة تسلسل تلقائى بسيطه و اخرى متغيره عند فلترة البيانات _ مشاركه من / جلال الجمال_ابو أدهم ترقيم الصفوف الظاهرة فقط _ من مشاركات الاعضاء كود صغير جدا و لكن مفيد جدا_معادلة ادراج تسلسل تلقائى _ أ / أبوعبد الله_اكسلجى _ h63 Special_Sequences _ أ / سليم حاصبيا _ بن علية حاجي _ ياسر العربى عمل فلترة لقائمة معينة واصلاح اخطاء التسلسل دالة مميزة _ أ / عماد محمد غازى محمد رحمة