ياسر خليل أبو البراء

أخي الحبيب جرب الملف التالي إحصاء تحليلى.rar

السلام عليكم إخواني الكرام في المنتدى الحبيب أقدم لكم ملف صغير شرحت فيه كيفية إعداد قائمة بأسماء أوراق العمل في المصنف أترككم مع الملف .. . لا تنسونا من صالح دعائكم حمل من هنا

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

أخي ما هي الخلايا التي يمكن أن تدرج فيها كلمة Holiday؟ يمكن استخدام الدالة Countif كما أشرت في المشاركة رقم 21 ولو أمكن شرح مفصل والنتيجة المرجوة في أي خلية تريدها (أعتقد الخلية C41)...

أخي الحبيب إليك الملف بدون باسورد لمحرر الأكواد عسى أن تجد ما تبحث عنه لأني لم أفهم صراحة ما هو طلبك على وجه التحديد (اعذرني إذ أني بطيء الفهم قليلاً) Employs v2.1.rar

الأخ الحبيب أبو تميم في الملف الذي قمت بإرفاقه في المشاركة رقم 2 انتقل لمحرر الأكواد وضع السطر الخاص بإضافة مكتبة WIA محل هذا السطر strGUID = "{00020905-0000-0000-C000-000000000046}" ليصبح بهذا الشكل strGUID = "{94A0E92D-43C0-494E-AC29-FD45948A5221}" هذا كل ما في الأمر

بارك الله فيكم إخواني وجزاكم الله خير الجزاء في الدنيا والآخرة

ممكن أخي الحبيب المصدر الذي قمت بتنزيل الملف منه يبدو أن هناك كائنات مرتبطة بالملف Objects لأنه عند فتح الملف يعطيني رسالة خطأ

لم ترد على مشاركتي بشكل واضح ... ما هو الشرط الذي على أساسه يعمل التنسيق الشرطي لديك

أخي الحبيب يمكنك أيضاً الاستفادة من هذه الصفحة http://support.microsoft.com/kb/919195

وضح طلبك أكثر أخي الحبيب يمكن من خلال Excel Options إخفاء التبويب Developer الذي يحتوي على الأمر Visual Basic المسئول عن الولوج إلى محرر الأكواد فيمكن إزالة علامة الصح من جانب الخيار Show Developer Tab in the Ribbon

بارك الله فيك أبو نصار وجعل أعمالك في موزاين حسناتك يوم القيامة

جرب هذا الملف قمت بتنزيله من أحد المواقع AddRef.zip

أخي صاحب الموضوع إذا بدت لك الأمور معقدة ، فغير طريقة تفكيرك ما رأيك لو قمت بعمل معادلة بسيطة تغنيك عن كل هذا التعقيد =COUNTIF($E$5:$E$35;"Holiday") أو يمكنك أن تذكر لنا ما هو الشرط الذي على أساسه يعمل التنسيق الشرطي لديك ، ومن خلال الشرط يمكن حل المشكلة ببساطة شديدة

الأخ zarouki2000 ما هو الناتج المرتقب للخلية C41؟ هل هو عدد الخلايا الصفراء الناتجة عن التنسيق الشرطي أم مجموع محتوى الخلايا الصفراء؟

الأخ عباد صراحة لم أفهم الدالة الخاصة بك لو أمكن شرح مبسط للدالة

الأخ الحبيب عباد ممكن ترفق ملف كمثال للدالة التي قمت بها - بعد إذنك - لأني حاولت أجربها ولكنها لم تلفح معي بالمرة

تسلم الأيادي هو دا الكلام يا كبير

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

جرب تنزل أوفيس 2007 وتشتغل عليه أكيد حتحس بفرق كبير

مشكور على مرورك العطر أخي عباد (أبو نصار) ، والحمد لله إنك عرفتني دلوقتي (مش يوسف وإن كنت أحب اسم يوسف)

بارك الله فيك أخي الغالي عند عمل اختبار للدالة التي تفضلت بها جربت التاريخ 1/1/2012 فكانت النتيجة في اليوم 2012 من شهر جانفي عام واحد

ما هي نسخة الأوفيس التي تعمل عليها؟؟؟ الدالة تعمل لدي بشكل جيد على أوفيس 2007 أرجو من السادة الذين لديهم أوفيس 2003 أن يفيدونا بالنتيجة

أخي الغالي أولا قم بنسخ الكود أعلاه إلى موديول جديد في محرر الأكواد ثانيا قم بعمل مجلد على البارتسن C باسم Pictures ثالثا ضع صورة داخل المجلد Pictures باسم Penguins متبوعاً بنقطة ثم امتداد الصورة التي نسختها أخيراً اكتب المعادلة بهذا الشكل =INSERTPICTURE("C:\Pictures\Penguins.jpg") ثم اضغط إنتر

بارك الله فيك أخي الحبيب إخواني هذه دالة تقوم بتحويل التاريخ إلى نصوص ولكن باللغة الإنجليزية ، فهل من متبرع يقوم بترجمة الأيام والشهور والسنوات لأنني لست ضليعاً في اللغة العربية Function DateToWords(ByVal DateIn As Variant) As String Dim Yrs As String, Hundreds As String, Decades As String Dim Tens As Variant, Ordinal As Variant, Cardinal As Variant Ordinal = Array("First", "Second", "Third", "Fourth", "Fifth", "Sixth", "Seventh", _ "Eighth", "Nineth", "Tenth", "Eleventh", "Twelfth", "Thirteenth", _ "Fourteenth", "Fifteenth", "Sixteenth", "Seventeenth", "Eighteenth", _ "Nineteenth", "Twentieth", "Twenty-first", "Twenty-second", "Twenty-third", _ "Twenty-fourth", "Twenty-fifth", "Twenty-sixth", "Twenty-seventh", _ "Twenty-eighth", "Twenty-nineth", "Thirtieth", "Thirty-first") Cardinal = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", _ "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", _ "Sixteen", "Seventeen", "Eighteen", "Nineteen") Tens = Array("Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") If Len(DateIn) = 0 Then Exit Function If TypeOf Application.Caller Is Range Then ' The date serial number that Excel's worksheet thinks is for 2/29/1900 ' is actually the date serial number that VB thinks is for 2/28/1900 If Format([DateIn], "m/d/yyyy") = "2/28/1900" Then DateToWords = "Twenty-nineth of February, One Thousand Nine Hundred" Exit Function ElseIf DateIn < DateSerial(1900, 3, 1) Then If TypeOf Application.Caller Is Range Then DateIn = DateIn + 1 End If End If DateIn = CDate(DateIn) Yrs = CStr(Year(DateIn)) Decades = Mid$(Yrs, 3) If CInt(Decades) < 20 Then Decades = Cardinal(CInt(Decades)) Else Decades = Tens(CInt(Left$(Decades, 1)) - 2) & "-" & Cardinal(CInt(Right$(Decades, 1))) If Right(Decades, 1) = "-" Then Decades = Left(Decades, Len(Decades) - 1) End If Hundreds = Mid$(Yrs, 2, 1) If CInt(Hundreds) Then Hundreds = Cardinal(CInt(Hundreds)) & " Hundred " Else Hundreds = "" End If DateToWords = Ordinal(Day(DateIn) - 1) & " of " & Choose(Month(DateIn), "January", _ "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December") & ", " & _ Cardinal(CInt(Left$(Yrs, 1))) & " Thousand " & Hundreds & Decades End Function