نجوم المشاركات

السلام عليكم ورحمة الله وبركاته اقدم لكم معلومة بسيطة ارجوا ان تنال على اعجابكم وان لا تكون مكرره يحتاج بعض مستخدمي الاكسل الى معرفة كيف يقوم بالترتيب بين عشرات الموظفين او الطلاب بدون الرجوع الى عمليات الفرز المعروفه وفي هذه الطريقة سوف تعرف الترتيب باستخدام الداله RANK واليكم الطريقة : 1. قم بطباعة الجدول الذي تحتاج اليه اذا لم يكن موجود. 2. قم بتحديد موقع الفرز كما هو مبين في الجدول المرفق. 3. ألخانه الأولى من جدول الترتيب استخدم الداله واختر منها RANK من قائمة الاحصاء. 4. في الخانة مثلاً H9 والخانة الثانية ref ضع المعادلة التالية ((=RANK(H9;$H$9:$H$12 5. ضع علامة ( $ ) بين الحروف كما هو موضح وختر الخانات المراد ترتيبها. 6. بعد ذلك اسحب من الخانة الاولى الى الخانة الاخيرة. 7. بهذا حصلت على الترتيب بدون عناء يذكر. حمل الملف المرفق لكي يسهل عليك معرفة الطريقة اخيراً التحميل من هنا التحميل من هنا التحميل من هنا دعائكم لي بظهر الغيب محبكم BAINH

السلام عليكم ورحمة الله وبركاته اقدم هذا العمل واهديه الى اساتذتى وكل أعضاء اوفيسنا وهو: بعيد عن المعادلات والاكواد . استخدام الصور في المخططات والرسومات البيانية اسال الله ان يتقبل منى هذا العمل ملحوظه ذكرت أسماء أساتذتي في المنتدى ووضعت بيانات افتراضيه فقط تقبلوا خالص تحياتي تلميذ اوفيسنا استخدام الصور فى الرسم البيانى.rar

ارفق ملف أو انسخ معادلتك في كود =IFERROR((VLOOKUP(C1;$A$1:$B$3;2;0));0)

الحل بسيط جداً عدد النجوم.rar

تفضل وبدون استخدام IF مع وجود اقتراح بحذف بعض الاعمدة exampel#1.rar

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

ا / ابو محمد اشكرك شكرا جزيلا و بارك الله فيك شرح رائع و وافى اتمنى من اساتذة الاكسيل المزيد لان وجدت استخدام رائع للدالة حيث انها تستخدم لجمع اعمدة افقية بطريقة رأسية و العكس بدلا من دالة transpose

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

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

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

إخواني جربوا هذا الملف Hide Formulas By Code.rar

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

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

السلام عليكم تغـيـيـر ديـنار بــــــــــــــــــــــ: ريـال وضع هذا فى الخلبة (NbLettresArabes(H6= ' --------------------------------------------- ' FONCTION DE TRADUCTION D'UNE SOMME EN LETTRES ' --------------------------------------------- Option Explicit Option Base 1 Public Unité As Variant Public Dizaine As Variant Public Décimales As Currency Public CasPart As Variant Public Lettres As String Public Cent_Pluriel As Boolean ' ------------------- ' FONCTION PRINCIPALE ' ------------------- ' Function NbLettresArabes(Nombre As Currency) As String ' Limitation à 999 999 999 999 . 99 If Nombre >= 1000000000000# Then MsgBox "! هاذ العدد كبير", 0, "Message" Exit Function End If ' Initialisation des tableaux Unité = Array("واحد", "اثنان", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية ", "تسعة") Dizaine = Array("عشرة", "عشرون", "ثلاثون", "اربعون", "خمسون", "ستون", "سبعون", "ثمانون", "تسعون") CasPart = Array("عشرة", "احد عشرة", "اثن عشرة", "ثلاثة عشرة", "أربعة عشرة", "خمسةعشرة", "ستةعشرة", "سبعةعشرة", "ثمانية عشرة", "تسعة عشرة") ' Mise à vide de la chaîne de réception de la traduction du nombre Lettres = "" ' Initialisation des indicateurs de pluriel des nombres cent et vingt Cent_Pluriel = True ' Conversion de la partie décimale en un nombre de 0 à 99 ' arrondi à l'unité la plus proche Décimales = CInt((Nombre - Fix(Nombre)) * 100) ' Conservation de la partie entière du nombre Nombre = Fix(Nombre) ' Orientation du traitement suivant valeur de la partie entière Select Case Nombre Case 0 Lettres = "صفر" 'Zéro Case 1 To 9 Lettres = Unité(CInt(Nombre)) Case 10 To 99 Trt_Dizaines Nombre Case 100 To 999 Trt_Centaines Nombre Case 1000 To 999999999999# Trt_Multiples_de_Mille Nombre End Select ' Indication de la monnaie If Décimales > 0 Then Lettres = Lettres & " دينار " + " و " Else If Décimales = 0 Then Lettres = Lettres & " دينار " ' + " و " End If End If ' Orientation du traitement suivant valeur de la partie décimale Select Case Décimales Case 1 To 9 Lettres = Lettres & Unité(CInt(Décimales)) Case 10 To 99 Trt_Dizaines Décimales End Select ' Indication des centimes Select Case Décimales Case 1 Lettres = Lettres & " سنتيم" ' Centimes'" و" + Case Is > 1 Lettres = Lettres & " سنتيم" ' Centimes Case Is < 1 Lettres = Lettres ' & " سنتيم" ' Centimes End Select ' Renvoi du nombre traduit en lettres If Lettres = "صفر" & " دينار " Then Lettres = "" Else NbLettresArabes = Lettres End If End Function ' -------------------------------- ' TRAITEMENT DES MULTIPLES DE 1000 ' -------------------------------- Sub Trt_Multiples_de_Mille(Nombre As Currency) Dim Rank As Currency Dim Nom_Rang As String Dim Reste As Currency Cent_Pluriel = False ' Initialisation suivant taille du nombre : milliers, millions ou milliards Select Case Nombre Case 1000 To 999999 Rank = Fix(Nombre / 1000) Reste = Nombre Mod 1000 Nom_Rang = "ألف" ' Mille Case 1000000 To 999999999 Rank = Fix(Nombre / 1000000) Reste = Nombre Mod 1000000 If Rank > 1 Then Nom_Rang = "مليون" 'Millions Else Nom_Rang = "مليون" ' Million End If Case Is > 999999999 Rank = Fix(Nombre / 1000000000) Reste = Nombre - Rank * 1000000000 If Rank > 1 Then Nom_Rang = "ميليار" ' Milliard Else Nom_Rang = "ميليار" ' Milliard End If End Select ' Traitement du rang des milliers, millions ou milliards Select Case Rank Case 1 If Nom_Rang = "الف" Then Lettres = Lettres & "آلاف" Else Lettres = Lettres & Unité(CInt(Rank)) & " " & Nom_Rang '& " و" End If Case 2 Lettres = Lettres & Unité(CInt(Rank)) & " " & Nom_Rang '& " و" Case 3 To 9 Lettres = Lettres & Unité(CInt(Rank)) & " " & Nom_Rang '& " و" Case 10 To 99 Trt_Dizaines (Rank) Lettres = Lettres & " " & Nom_Rang '& " و" Case 100 To 999 Trt_Centaines Rank Lettres = Lettres & " " & Nom_Rang '& " و" End Select Cent_Pluriel = True ' Orientation du traitement du reste si > 0 Select Case Reste Case 1 To 9 Lettres = Lettres & " و" & " " & Unité(CInt(Reste)) Case 10 To 99 Lettres = Lettres & " و" & " " Trt_Dizaines Reste Case 100 To 999 Lettres = Lettres & " و" & " " Trt_Centaines Reste Case Is > 999 Lettres = Lettres & " و" & " " Trt_Multiples_de_Mille Reste Case Else Lettres = Lettres & " " End Select Lettres = Lettres End Sub ' ----------------------------------- ' TRAITEMENT DES NOMBRES DE 100 0 999 ' ----------------------------------- Sub Trt_Centaines(Nombre As Currency) Dim Rank As Currency Dim Reste As Currency Rank = Fix(Nombre / 100) Reste = Nombre Mod 100 ' Traitement du rang des centaines If Rank = 1 Then If Reste = 0 Then Lettres = Lettres & "مائة" '& " و" Else Lettres = Lettres & "مائة" & " و" End If Else If Reste = 0 And Cent_Pluriel Then Lettres = Lettres & Unité(CInt(Rank)) & " " & "مئات" Else Lettres = Lettres & Unité(CInt(Rank)) & " " & "مئات" & " و" End If End If ' Traitement du reste < 100 Select Case Reste Case 1 To 9 Lettres = Lettres & " " & Unité(CInt(Reste)) Case Is > 9 Lettres = Lettres & " " Trt_Dizaines (Reste) End Select End Sub ' --------------------------------- ' TRAITEMENT DES NOMBRES DE 10 0 99 ' --------------------------------- Sub Trt_Dizaines(Nombre As Currency) Dim Reste As Integer Dim Rank As Integer Rank = Fix(Nombre / 10) Reste = Nombre Mod 10 Select Case Rank Case 1 Lettres = Lettres & CasPart(Reste + 1) Case 7 Select Case Reste Case 0 ' Nombre 70 Lettres = Lettres & Dizaine(Rank) Case Else ' Nombre 71 à 76 Lettres = Lettres & Unité(CInt(Reste)) & " و " & Dizaine(Rank) End Select Case 8 If Reste = 0 Then ' Nombre 80 Lettres = Lettres & Dizaine(Rank) Else ' Nombres 81 à 89 Lettres = Lettres & Unité(CInt(Reste)) & " و " & Dizaine(Rank) End If Case 9 If Reste = 0 Then ' Nombres 90 Lettres = Lettres & Dizaine(Rank) Else ' Nombres 91 à 99 Lettres = Lettres & Unité(CInt(Reste)) & " و " & Dizaine(Rank) End If Case Else ' Nombres 20 à 69 Select Case Reste Case 0 ' Nombres 20, 30, 40, 50, 60 Lettres = Lettres & Dizaine(Rank) Case Else ' Autres nombres Lettres = Lettres & Unité(CInt(Reste)) & " و " & Dizaine(Rank) End Select End Select End Sub

السادة الأفاضل عملت سجل دخول و خروج سيارات مطلوب تحديد الوقت و التاريخ لحظة الدخول و الخروج أستخدمت معادلات كتيرة فى الوقت و التاريخ كالتالى :- =Now() قمت بتغيير الفورمات الخاص بالناتج الذى يخرج من المعادلة السابقة ليكون 30/11/2013 19:45 عملت ستة معادلات أخرى كالتالى :- =year($A$2) =Month($A$2) =Day($A$2) =Hour($A$2) =Minute($A$2) =Second($A$2) و ذلك لتثبيت الوقت و التاريخ المشكلة عند عمل Duble Clicke و Save يتم تحديث الوقت و التاريخ تلقائياً محتاج حل لهذه المشكلة أفادكم الله

شكرا اخى محمد مصطفى على مرورك وردك وجزاك الله خيرا

السلام عليكم انشاء قائمة من عمودين الموضوع خاص بالمشاركة http://www.officena.net/ib/index.php?showtopic=21031 ولكن حبيت ان تعم الفائدة للجميع اخوكم خبور خير ___________________.rar

السلام عليكم الملف المرفق به طلبك . أبو عبدالله number_to_text.rar

أحبابي وإخواني الأعزاء إليكم هذا الكود الرائع والذي أعجبني كثيراً وأحببت أن تشاركوني الرأي والاستفادة منه . والتفاصيل بالملف المرفق . تقبلوا تحياتي . أبو عبدالله join_cells.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته تم التعديل الاولاد فوق والبنات تحت بالنسبة لكتابة الفصول الاول / الثاني لم اتوصل الى حل مناسب لان الترتيب الرقمي يعتمد عليه الكود اثناء التوزيع ممكن يكون بعد الفرز والا انتظر يمكن ربك يفتح علينا بالحل المناسب ودمتم في حفظ الله وسلامته تحياتي وسلامي اخوكم/ خبور ________________________________________________.rar