نجوم المشاركات
Popular Content
Showing content with the highest reputation on 09/29/16 in all areas
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود في زر لانشاء مجلد من اسم خلية(اسم العيادة) وحفظ الفاتورة تم ارفاق كود الحل من الفاضل _ أ / أبو حنــــين و لا تنسونا من صالح الدعاء تحياتى Book1 (حفظ ملف فى مسار محدد).rar2 points
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود في زر لانشاء مجلد من اسم خلية(اسم العيادة) وحفظ الفاتورة تم ارفاق كود الحل من الفاضل _ أ /عبدالله المجرب و لا تنسونا من صالح الدعاء تحياتى BSI2 (فاتوره).zip2 points
-
سليم حاصبيا أبو حنــــين ياسر خليل أبو البراء الاخوه الافاضل جزاكم الله خيرا وحشانا اوى كلمة لاثراء الموضوع تحياتى2 points
-
جرب هذا الملف تم حماية المعادلات لعدم العبث بها عن طريق الخطـأ معادلة تجميع عدد العمليات على حسب التاريخ والإسم SALIM.rar2 points
-
2 points
-
الأخ الأستاذ الكريم ياسر شكرا لك طبعا من المستحيل أرفاق ملف لأن المشكلة ديناميكية متغيرة طيب حاولت أنا البحث عن حل و قد وجدت أن تغيير أعدادات الليست بوكس من UserForm_Activate ل UserForm_Initialize و هي : .ColumnWidths = "15;175;100;25;25;100" قد حل المشكلة - أنا لم أفهم الفرق لكن المهم حلت المشكلة مع الشكر الجزيل لك1 point
-
سليم حاصبيا اخى الفاضل جزاك الله خيرا طلعت محمد حسن احمد غانم حسين مامون الاخوه الافاضل جزاكم الله خيرا1 point
-
وعليكم السلام أخي الغالي أبو حنين بالفعل هذه من الدوال الرائعة والتي أعجبتني وكنت أنوي شرحها وتراجعت للأسهل ليفهمها الأعضاء جزيت خيراً ومشكور على إثرائك للموضوع ، بارك الله فيك1 point
-
1 point
-
السلام عليكم لإثراء الموضوع يمكن ان نستعمل Sub Test() MsgBox Split(ActiveCell.Address, "$")(1) End Sub1 point
-
السلام عليكم اخي ابو هديل شاهد المرفق واخبرني اذا كان هذا هو المطلوب اقبل تحياتي واحترامي كشف الموظفين مختصر.rar1 point
-
الأخ الكريم محمد لؤي السلام عليكم جرب المرفق التالى لعلة يفى بالغرض نسألكم الدعاء abo_abary_معادلة بحث عن رقم السيارة الجديد والقديم.rar1 point
-
1 point
-
بارك الله فيك اخي جلال وجعل هذه الاعمال في ميزان حسناتك .1 point
-
1 point
-
تفضل استاذنا الكريم انظر هنا يوجد شيئ عن هذه الدالة . وهذا مثال استاذنا الحسامي for...next.rar1 point
-
اخي العزيز انا اضفت حقلين حقل تاريخ تعين و حقل رصيد الكلي للاجازات حين تدخل تاريخ تعين تبين رصيده حتى اليوم و اضفت زر جديد حين تضغط عليه بيتبين ايضا رصيده الكلي والباقي عليك اذا واحد خذت اجازة لازم بينقص الرصيد مع تحياتي اجازات.rar1 point
-
اخى العزيز عبد الله لم يكن قصدى نهائيا احتكار البرنامج لانى تعلمت هنا بدون احتكار و استفدت الكثير و الكثير ودائما تعودت على وضع باسورد للمحرر خوفا من استخدام خاطى لاى احد غير متخصص ومن السهوله جدا معرفه باسورد المحرر للمتخصص ومع ذلك هذا هو الباسورد للمحرر 85211 و ارجو ان يستفيد الكل وانا شخصيا يا اخى عبدالله قد استفدت منك كثيرا وايضا من عمالقه هذا المنتدى لكم الشكر جميعا واتمنى ان يستفيد الجميع وانا حاضر لاى استفسار او ملاحظه وشكرا على رفع البرنامج على سيرفر المنتدى1 point
-
الاخوة الاعزاء في المنتدي الكريم كما تعودنا منكم الرد علينا في استفسارتنا ومشاكلنا ارجو منكم حل هذه المشكلة لو سمحتم عندي ملف اكسيل بالعمل ارغب في جمع الخلايا التي اظللها بلون نختلف بحيث اني اقوم بتلوين بعض الخلايا علي طول الشهر بالوان مختلفه كل لون له معني عندي في عملي اي يجمع الالوان الصفراء في خلية واحده والزرقاء في خلية اخري وهكذا اخوكم شريف اخوي شريف بارك الله فيك اولا تحتاج الى انشاء داله اسمها colorindex وذلك بنسخ الكود التالي ثم لصقه في مودل جديد '--------------------------------------------------------------------- ' ColorIndex Function '--------------------------------------------------------------------- ' Function: Returns the colorindex of the supplied range ' Synopsis: Initially, gets a colorindex value for black and white ' from the activeworkbook colour palette ' Then works through each cell in the supplied range and ' determines the colorindex, and adds to array ' Finishes by returning acumulated array ' Variations: Determines cell colour (interior) or text colour (font) ' Default is cell colour ' Constraints: Does not count colours set by conditional formatting '--------------------------------------------------------------------- ' Author: Bob Phillips ' Additions for ranges suggested by Harlan Grove '--------------------------------------------------------------------- '--------------------------------------------------------------------- Function ColorIndex(rng As Range, _ Optional text As Boolean = False) As Variant '--------------------------------------------------------------------- Dim cell As Range, row As Range Dim i As Long, j As Long Dim iWhite As Long, iBlack As Long Dim aryColours As Variant If rng.Areas.Count > 1 Then ColorIndex = CVErr(xlErrValue) Exit Function End If iWhite = WhiteColorindex(rng.Worksheet.Parent) iBlack = BlackColorindex(rng.Worksheet.Parent) If rng.Cells.Count = 1 Then If text Then aryColours = DecodeColorIndex(rng, True, iBlack) Else aryColours = DecodeColorIndex(rng, False, iWhite) End If Else aryColours = rng.Value i = 0 For Each row In rng.Rows i = i + 1 j = 0 For Each cell In row.Cells j = j + 1 If text Then aryColours(i, j) = _ DecodeColorIndex(cell,True,iBlack) Else aryColours(i, j) = _ DecodeColorIndex(cell,False,iWhite) End If Next cell Next row End If ColorIndex = aryColours End Function '--------------------------------------------------------------------- Private Function WhiteColorindex(oWB As Workbook) '--------------------------------------------------------------------- Dim iPalette As Long WhiteColorindex = 0 For iPalette = 1 To 56 If oWB.Colors(iPalette) = &HFFFFFF Then WhiteColorindex = iPalette Exit Function End If Next iPalette End Function '--------------------------------------------------------------------- Private Function BlackColorindex(oWB As Workbook) '--------------------------------------------------------------------- Dim iPalette As Long BlackColorindex = 0 For iPalette = 1 To 56 If oWB.Colors(iPalette) = &H0 Then BlackColorindex = iPalette Exit Function End If Next iPalette End Function '--------------------------------------------------------------------- Private Function DecodeColorIndex(rng As Range, _ text As Boolean, _ idx As Long) '--------------------------------------------------------------------- Dim iColor As Long If text Then iColor = rng.font.ColorIndex Else iColor = rng.Interior.ColorIndex End If If iColor < 0 Then iColor = idx End If DecodeColorIndex = iColor End Function '--------------------------------------------------------------------- ' End of ColorIndex Function '--------------------------------------------------------------------- بعدين لمعرفه ارقام الالوان في اكسل يجب عليك وضع اسم الداله السابقه في خليه وتحديد اسم الخليه التي تحتوي على اللون مثلا يوجد لديك اللون الاصفر قم بتعبئه خليه باللون الاصفر ولتكن مثلا a1 ثم اكتب هذه الداله في b1 مثلا =ColorIndex(a1) هذا فقط لكي نعرف رقم اللون الاصفر طبعا النتيجه تكون الرقم 6 بعد الحصول على الرقم نفرض ان الخلاياالملونه موجوده في العمود e نذهب الى الخليه المراد الجمع فيها للون الاصفر ونضع المعادله التاليه =SUMPRODUCT(--(ColorIndex(E1:E100)=6),E1:E100) حيث ان الرقم 6 هو اللون شرط الجمع طبعا هذه الداله لا تجمع الخلايا الملون باستخدام التنسيق التلقائي1 point