أ / محمد صالح

أهلا بأهل كفر الزيات ترقية مستحقة وتميز ملحوظ أستاذ أحمد وفقك الله لكل ما فيه صالح العملية التعليمية ألف مبروك الترقية

أخي أحمد الحروف التي تظهر لك هي حروف اللغة العربية بترميز windows-1256 ولكي تظهر لك الحروف مظبوطة غير ترميز الصفحة إلى utf-8 وذلك من خلال قائمة view ثم character encoding في متصفح فاير فوكس وفي انترنت اكسبلورر في قائمة view ثم encoding وهكذا في أي متصفح اختر utf-8 من الترميز encoding أما بالنسبة للأخطاء الأولى فهي تخص لغة المواقع php وهي تظهر أحياناً في حالة وجود عطل في السيرفر أتمنى أن يكون هذا هو المطلوب

أخي الكريم أعتقد أنه ما دامت قيم الحروف ثابتة يمكنك كتابة الأرقام بدلاً من الحروف مباشرة وجمعها بدالة sum وإلا ما الفائدة من استبدال الرقم بحرف؟!!

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

أخي الكريم سعد مضمون الطريقة التي أخبرنا بها الأخ الشهابي عن أخينا أحمد زمان هي نفسها التي أخبرك بها الأخ طارق مع ميزة الاختصار وللجمع بين الدالة التي كتبها الأخ طارق ودالة الأخ أحمد زمان استعمل هذه المعادلة في الخلية C9 =SUMPRODUCT(--(INDIRECT(B9&"!$B$8:$B$100")<=$H$5), --(INDIRECT(B9&"!$B$8:$B$100")>=$C$5),INDIRECT(B9&"!$k$8:$k$100")) وأخبرني بالنتيجة لأنه كان هناك خطأ في كتابتنا للمعادلة من الذاكرة ولم أنتبه أن المدى الأخير يخص العمود k وليس b

شكرا لمرورك أخي طارق مش عارف فاتت علي إزاي الحيلة دي؟؟!! يمكن لانشغالي بموضوع الدوال .... بالفعل أخي عبد الله الموضوع يحتاج فقط لتغيير تنسيق الخلايا مرفق ملفك أخي سعد بعد التعديل السيارات.rar

أشكر جميع المشاركين في الموضوع بفضل الله تم الانتهاء من مجموعة الدوال الموجودة في الفئة المنطقية excel-functions.rar

شكرا لمرورك أخي طارق هذا ما كنت أفكر فيه عمل ملف يحوي جميع الدوال بمعلومات تفصيلية عنها وأمثلة وهذا ملفي بعد التعديل تم إضافة عمود لبناء جملة المعادلة تم إضافة شيت لكل دالة تم إضافة حقول جديدة في صفحة الدالة تم الربط بين الجميع والفهرس باستخدام الارتباط التشعبي تم اعتماد تنسيق ملفات إكسل 2007 وما بعدها XLSX وذلك لمتابعة العمل مع الدوال الحديثة في إكسل 2007 و 2010 وعددها 75 دالة وأيضا لسرعة حفظ الملف حيث يستهلك حفظ الملف بصيغة xls فترة زمنية كبيرة جداً .................. أتمنى من جميع الإخوة التواصل في هذا الموضوع قدر الاستطاعة وملء جميع الحقول عن كل دالة حسب وقت فراغ كل منا ............... طريقة تنفيذ المشروع * الاعتماد على آخر ملف تم رفعه حتى يكون الملف به آخر التحديثات التي قام بها الإخوة الزملاء (ويفضل حذف الملفات التي تم صدور نسخة أحدث منها حتى لا يتشتت الأعضاء) * يمكن للجميع المشاركة بخبرته أو بالنقل من تعليمات إكسل 2010 http://office.micros...010369014&CTT=4 **************** أنا أعمل الآن على الدوال في الفئة (النصية) وفقنا الله وإياكم لكل ما يحب ويرضى اللهم احفظ مصر وأهلها من كل سوء

بارك الله لك أخي عبد الله والشكر موصول للأخ حسن new4a

بارك الله لكل من ساهم في حل مشكلة أخيه وخلاصة الأمر لجعل الأرقام تظهر باللغة العربية في إكسل يجب توافر شرطين * الأول هو جعل اتجاه النص من اليمين لليسار من خلال الضغط على ctrl+1 لفتح نافذة تنسيق الخلايا * الثاني هو جعل تنسيق الأرقام باللغة العربية من لوحة التحكم control panel ---> ثم خيارات اللغة والمنقطة الإقليمية regional and language options ---> وفي التبويب الأول الخاص بتنسيق الأرقام والتواريخ والوقت وغير ذلك نختار من القائمة العلوية بلدك العربية (أنا أختار مصر) بدون الدخول في تفاصيل يتم تغيير الأرقام والتواريخ وفقنا الله وإياكم لكل ما يحب ويرضى اللهم احفظ مصر وأهلها من كل سوء

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

أخي الكريم سعد أعتقد والله أعلم لا يوجد فصل لاسم الشيت عن باقي المسار للنطاق بمعنى أنه يمكنك وضع اسم الشيت والنطاق الخاص به في خلية ثم قراءته كمدى من خلال الدالة indirect جرب مثلا أن تضع في الخلية b9 هذه القيمة 1!$B$8:$B$100 ثم عدل المعادلة التي في الخلية c9 إلى =SUMPRODUCT(--(INDIRECT(B9)<=$H$5), --(INDIRECT(B9)>=$C$5),INDIRECT(B9)) أتمنى أن أكون وفقت في الوصول معك لحل لهذا المطلوب

بسم الله الرحمن الرحيم الحمد لله رب العالمين كثيرا ما يشغل بالي ولا أدري أيشغل هذا الأمر بال الإخوة الزملاء أم لا؟ موضوع توافق الدوال بين إصدارات الإكسل حيث أنني أستعمل أوفيس 2010 وأريد أن أعلم : هل هذه الدالة متوافقة مع إصدار 2003 مثلاً أو لا؟ وهل هي متوافقة مع 2007 أم لا؟ وما هي الدوال الجديدة في إكسل 2010؟ والحمد لله قمت بعمل هذا البحث البسيط الذي يضم كل هذه المعلومات وأكثر .............. ومن هنا أعرض على الإخوة أن يعرض كل واحد منا تجربته واستخداماته لكل دالة من هذه الدوال مع مثال حتى نتمكن من جمع كل ما يخص دوال الإكسل من شرح وأمثلة في هذا الموضوع بإذن الله ........... وبهذا المشروع بإذن الله تكتمل دائرة معرفة الإكسل فالإكسل معادلات وأكواد والأكواد وال vba يتم مناقشتها في الدورة وهنا يتم مناقشة المعادلات والدوال ولا تنسوني من صالح دعائكم ولا تنسوا مصر من صالح دعائكم ************** تم حذف المرفق لوجود نسخة أحدث هنا في المشاركة 11# ويمكن التحميل مباشرة من هنا http://www.officena....attach_id=49058

فعلا أخي مجدي موسوعة من المعلومات الرائعة والمفيدة بارك الله لك

بارك الله لك أخي عبد الله مثال رائع حقاً أخي الكريم قصي المثال يصلح لما تريد فقط يلزمك وضع صور للطلاب في مجلد الصور واجعل اسم صورة كل طالب هي رقم مسلسله مثلا ثم اكتب في الخلية الخاصة باسم الصورة رقم الطالب سيتم عرض صورته

شكرا لك أخي الحسين ولكن في رأيي الشخصي أفضل برنامج لتسجيل الشروحات هو camtasia studio 7.1 http://www.techsmith.com/camtasia.html فبه الكثير من الإمكانيات التي لا توجد في غيره أدعوك لتجربته البرنامج المذكور من حضرتك يشبه كثيرا برنامج bb flashback http://www.bbsoftwar...hback/home.aspx وفقنا الله وإياكم لكل ما يحب ويرضى

شكرا لك أخي الكريم عطاء يدل على الكرم وحب الغير بارك الله لك

لعلك تقصد هذا الملف http://www.officena.net/ib/index.php?showtopic=29972 أتمنى تفيدك هذه الأداة وتتخدمها فيما يرضي الله

شكرا جزيلا استاذ محمد برجاء التكرم بأضافة كوذ يعيد الصفحة الى قبل الفرز أخي الكريم استعمل هذا الكود Sub nofilter() ActiveSheet.ShowAllData End Sub

بارك الله لك أخي العيدروس وبناء على طلب أستاذ أحمد تم تعديل الكود ليتم استدعاؤه من صفحة أخرى ولتكن مثلا sheet3 mas_مطلوب فرز ALIDROOS.rar

بارك الله لك أخي أبا نصار استعمال للكود بطريقة تدل على فهم صائب وبارك الله لك أخي أحمد ربط بين المعادلات والكود رائع وأرجو أن يتسع صدرك للتعديل البسيط على الكود (فهوايتي اختصار الأكواد) Sub mSaveAs() If Range("H7") = False Then QQ = Range("J7") MsgBox QQ Exit Sub End If FN = Range("G7") ActiveWorkbook.SaveAs Filename:=FN End Sub للملاحظة تم الاستغناء عن سطري الذهاب إلى السطر رقم 9 والسطر نفسه واستبدالهما ب جملة الخروج من الإجراء

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

أخي الكريم الجزيرة كود activeprinter هو الخاص بتنشيط طابعة معينة للطباعة عليها ولا يوجد غيره لعمل ذلك فإما أن يكون الخطأ في اسم الطابعة أو في اتصال الطابعة بالجهاز وتأكد أنه تظهر أسفل رمز الطابعة كلمة ready (جاهز) قبل الطباعة ولمعرفة اسماء الطابعات الموصلة بالجهاز يمكنك استعمال هذا الكود Private Const PRINTER_ENUM_LOCAL = &H2 Private Const PRINTER_ENUM_CONNECTIONS = &H4 Private Declare Function EnumPrinters Lib "winspool.drv" _ Alias "EnumPrintersA" _ (ByVal flags As Long, _ ByVal name As String, _ ByVal Level As Long, _ pPrinterEnum As Any, _ ByVal cdBuf As Long, _ pcbNeeded As Long, _ pcReturned As Long) _ As Long Private Declare Function StrLen Lib "kernel32" _ Alias "lstrlenA" _ (ByVal Ptr As Long) _ As Long Private Declare Function StrCopy Lib "kernel32" _ Alias "lstrcpyA" _ (ByVal RetVal As String, _ ByVal Ptr As Long) _ As Long Private Function CopyStringFromPtr(ByVal pSource As Long) As String CopyStringFromPtr = Space$(StrLen(pSource)) StrCopy CopyStringFromPtr, pSource End Function Public Function GetPrinterNames() As Variant Dim fSuccess As Boolean, lBuflen As Long, lFlags As Long Dim aBuffer() As Long, lEntries As Long Dim iCount As Integer, aPrinters() As String lFlags = PRINTER_ENUM_LOCAL Or PRINTER_ENUM_CONNECTIONS Call EnumPrinters(lFlags, vbNullString, 1, 0, 0, lBuflen, lEntries) ReDim aBuffer(lBuflen \ 4) fSuccess = EnumPrinters( _ lFlags, _ vbNullString, _ 1, _ aBuffer(0), _ lBuflen, _ lBuflen, _ lEntries) <> 0 If fSuccess And lEntries > 0 Then ReDim aPrinters(lEntries - 1) For iCount = 0 To lEntries - 1 aPrinters(iCount) = CopyStringFromPtr(aBuffer(iCount * 4 + 2)) Next GetPrinterNames = aPrinters End If End Function Public Sub GetPrinterList() Dim aPrinters As Variant, i As Integer aPrinters = GetPrinterNames If IsArray(aPrinters) Then For i = 0 To UBound(aPrinters) Debug.Print aPrinters(i) Next End If End Sub لذلك يجب أولا التأكد من توصيل الطابعة وجاهزيتها وثانيا اسمها الصحيح ثم تستعمل activeprinter وفقنا الله وإياكم لكل خير

إذا كان الأمر كذلك فيمكنك استعمال الدالة trunc =trunc(a1*10%,2) حيث a1 هو الرقم المراد ضربه في 10% و ال 2 هو عدد الأرقام على يمين العلامة العشرية

أخي الكريم مجدي يونس في أي خلية بالضبط صادفت ذلك؟؟!! ففي الملف المرسل مني يتم قص أول رقمين بعد العلامة العشرية بدون تقريب في نسبة ال 10% وال 30% ومن الطبيعي ألا ينتج رقم به ثلاثة أرقام على يمين العلامة العشرية من حاصل جمع أرقام هي في الأصل رقمين على يمين العلامة ............. لا تقلق الآلية التي يمشي بها الملف صحيحة وإن صادفت ذلك فأين وجدته للوصول للحل وفقنا الله وإياكم لكل ما يحب ويرضى