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

لدالة البحث VLOOKUP إمكانيات مذهلة لا يعلمها الكثير بالتاكيد تم استعراض الكثير من هذه الامكانيات على منتدى اوفيسنا إن لم يكن كلها ولكن كانت فى الاغلب رداً على اسئلة زملاء فلم ينتبة اليها الكثير لهذا سنستعرض معاً إمكانيات هذه الدالة على شكل - امثلة مع الشرح فكرة 1 / فكرة 2 / فكرة 3 / وبما اننا استخدمنا الدالة MATCH فلنتذكرها معاً فى المرفق ستجدوا التطبيقات وستتوالى باقى امكانيات هذه الدالة تباعاً ان شاء الله VLOOKUP _ 1.rar

السلام عليكم ورحمة الله وبركاته كل سنة وحضراتكم بخير بمناسبة الشهر الفضيل أستأذن أستاذى الفاضل العزيز ياسر خليل فى هذه الاضافة اثراء للموضوع يمكن عمل كود واحد وزر واحد يعمل على اخقاء واظهار الصورة : Sub showhidepic() With ActiveSheet.Shapes("Rounded Rectangle 2").TextFrame2.TextRange.Characters If .Text = "Hide" Then .Text = "Show" ActiveSheet.Shapes("صورة 1").Visible = False Else .Text = "Hide" ActiveSheet.Shapes("صورة 1").Visible = True End If End With End Sub أخى وأستاذنا الفاضل ياسر خليل أقول لك نورت المنتدى تقبلوا جميعا تحياتى Hide Show Picture 2 .rar

حل أخر أخى أتمنى يكون المطلوب والمعادلة معادلة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER" معا لتكوين هذان القوسان فى بداية ونهاية المعادلة ولكى تحقق النتيجة بشكل صحيح {=MIN(IF(($N$1:$N$8<>0)*($M$1:$M$8<>0),$M$1:$M$8))} تقبل تحياتى جلب القيمة الأقل بإستثناء الصفر.rar

أخي الكريم زوهير بناءً على ما تقدم به الرائع المتميز الأخ الحبيب سليم إليك هذا الكود البسيط الي سيؤدي الغرض إن شاء المولى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$2" Or Target.Address = "$G$2" Or Target.Address = "$H$2" Then [I2].Formula = "=SUMIFS(C$3:C$500,$A$3:$A$500,$F$2,$B$3:$B$500,"">=""&$G$2,$B$3:$B$500,""<=""&$H$2)" [J2].Formula = "=SUMIFS(D$3:D$500,$A$3:$A$500,$F$2,$B$3:$B$500,"">=""&$G$2,$B$3:$B$500,""<=""&$H$2)" [K2].Formula = "=SUMIFS(E$3:E$500,$A$3:$A$500,$F$2,$B$3:$B$500,"">=""&$G$2,$B$3:$B$500,""<=""&$H$2)" Range("I2:K2").Value = Range("I2:K2").Value End If End Sub تقبل تحياتي Sum Values Between Two Dates.rar

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

((( رمضان والاكسيل ))) كل عام وانتم بخير بصفتك محاسب الخزينه وصل اليك كشف الراواتب الشهريه حيث كانت اسماء الموظفين ورواتبهم على سطر واحد . وحتى تكون دقيق فى عملك لابد من استخراج هذه الارقام او المبالغ. لاتنسونا بصالح دعاؤكم استخراج رقم من نص - اوفيسنا.rar

مثال للتراجع عن التعديل او الادخال للفورم الرئيسي والفورم الفرعي في ان واحد . التراجع عن تعديلات.rar

أخى الحبيب الغالى / ياسر خليل أخى الفاضل / مختار جزاكم الله خيرا ورمضان كريم

تم التعديل حسب الرغبة عرض العامود From net.rar

الأخ الغالي أكرم جلال إليك الملف التالي Sub HidePicture() '[False] يقوم الكود بإخفاء الصورة باستخدام القيمة '------------------------------------------------ ActiveSheet.Shapes("صورة 1").Visible = False End Sub Sub ShowPicture() '[True] يقوم الكود بإظهار الصورة باستخدام القيمة '------------------------------------------------ ActiveSheet.Shapes("صورة 1").Visible = True End Sub تقبل تحياتي Hide Show Picture.rar

الأخ الكريم أحمد عبد السلام أهلا بك في المنتدى ..يرجى تغيير اسم الظهور للغة العربية ويرجى مراجعة التوجيهات في الموضوعات المثبتة ارفق ملفك ليساعدك الأخوة الكرام بالمنتدى

السلام عليكم اتفضل cccc.rar

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

التطبيق بالمرفقات Excel - INDIRECT.rar

اخى واستاذى خالد كل عام وانت بخير هديه مقبوله وشرح ارئع وممتع بارك الله فيك وزادك من فضله وعلمه تقبل تحياتى

جرب معادلة الصفيف التالية =SUMPRODUCT(($D$6:$D$23=$C3)*($E$6:$E$23)*($C$6:$C$23=INDEX(C6:C23,MATCH(1,(SUBTOTAL(3,OFFSET(C6:C23,ROW(C6:C23)-MIN(ROW(C6:C23)),0,1)))*(C6:C23<>""),0)))) لا تنسى أن تضغط Ctrl + Shift + Enter sum.rar

الأخت الفاضلة أمة الله (أبو حنين ) نفس شكل الاسم ونفس شكل الملف الخاص بك .. عموماً تفضل جرب الملف المرفق ..عله يكون المطلوب ... متنساش تدعي لي على الإفطار Sub TransferData_YK() Dim WS As Worksheet Dim strSheet As String, strID As String, strDes As String Dim startDate As Date, endDate As Date Dim LR As Long, lRow As Long, Cell As Range Set WS = Sheets("general") strSheet = WS.Range("G1") strID = LCase(WS.Range("B3")) strDes = WS.Range("G2") startDate = WS.Range("B1") endDate = WS.Range("B2") lRow = 6 Application.ScreenUpdating = False WS.Range("B6:G100").ClearContents If strSheet <> "" Then With Sheets(strSheet) LR = .Cells(Rows.Count, 3).End(xlUp).Row For Each Cell In .Range("E6:E" & LR) If Cell >= startDate And Cell <= endDate And Cell.Offset(, 1) = strDes And LCase(Cell.Offset(, -2)) = strID Then Cell.Offset(, -3).Resize(, 6).Copy WS.Cells(lRow, 2).PasteSpecial xlPasteValues lRow = lRow + 1 End If Next Cell End With End If Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي اسنان.rar

السلام عليكم اخى الحبيب ياسر حمدا لله على السلامة منور المنتدى كود رئع .. جزاك الله كل الخير الاخ الصقر... جزاك الله كل الخير

اخي الفاضل قم بتحميل الملف المرفق فهو وفك الضغط عنه هيظهرلك فولدر فيه ملفين ومنهم ملف اسمه Setup افتحه واضغط على Install NumberToWords ثم اضغط أوكي أوكي واقفل الملف وروح أفتح أي ملف إكسل وفي الخلية A1 اكتب المعادلة التالية =xf(B1) وفي الخلية A2 اكتب المعادلة التالية =xa(B1) وفي الخلية B2 اكتب أي رقم يعجبك وان شاء الله تضبط معاك وهكذا بقى معادلة تحويل الارقام إلى العربية هي xa ومعادلة التحويل إلى الفرنسية هي xf Perso.rar

هو حضرتك جربت الحل السابق أم لا و لو ممكن تخبرنا عن نسخة اﻷفس عند حضرتك ما هى وكذلك على الجهاز اﻵخر هل هى 2010 أم 2003

تم التعديل حسب ماتراه مناسباً اضغط على أفضل اجابة تكرار 2003 معدل.rar

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

تفضل أخي الكريم ضع هذه المعادلة في الخلية I14 =SUM($B14:$H14*TRANSPOSE(B$3:B$9)) ولا تنس أن تضغط CTRL+SHIFT+ENTER لأنها معادلة صفيف وانسخ المعادلة أفقيا ورأسيا

بعد السلام اليك هذا الحل القوائم المنسدلة مطاطة تستجيب لاي تغيير فقط اذا كان اسم المادة غير مكرر اضغط افضل اجابة اذا كان كذلك استخراج القيم حسب التاريخ salim.rar

الأخ الفاضل أبو يحيى كنت قد جهزت الملف من أول ما الموضوع نزل ولكني نسيت لأسباب كثيرة إليك الملف التالي .. وقارن أخي صلاح بين سرعة الإخفاء في كلا الكودين .. كما يمكنك الاستغناء عن الأزرار ولكن لابد لكي يتم التنفيذ للإخفاء والإظهار تغيير معين في ورقة العمل ..فحددت لك الخلية A4 إذا وضعت بها القيمة صفر يتم الإخفاء وإذا تم مسح محتوياتها يتم الإظهار Sub ShowAll() On Error Resume Next Application.ScreenUpdating = False With ActiveSheet.UsedRange .EntireRow.Hidden = False .EntireColumn.Hidden = False End With Application.ScreenUpdating = True End Sub Sub HideAll() Dim RW As Range, R_TB As Range Dim CL As Range, C_TB As Range Application.ScreenUpdating = False For Each RW In Range("N7:N200") If RW.Value = 0 Or RW = "" Then If R_TB Is Nothing Then Set R_TB = RW Else Set R_TB = Union(R_TB, RW) End If End If Next RW R_TB.EntireRow.Hidden = True For Each CL In Range("D201:N201") If CL.Value = 0 Or CL = "" Then If C_TB Is Nothing Then Set C_TB = CL Else Set C_TB = Union(C_TB, CL) End If End If Next CL C_TB.EntireColumn.Hidden = True Application.ScreenUpdating = True End Sub ويوضع الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A4")) Is Nothing Then Application.ScreenUpdating = False If Range("A4").Value = 0 And Not IsEmpty(Range("A4")) Then Call HideAll ElseIf IsEmpty(Range("A4")) Then Call ShowAll End If Application.ScreenUpdating = True End If End Sub أرجو أن يكون المطلوب :fff: Hide Columns & Rows With Blanks.rar

عندى قاعدة الحكومة الالكترونية المستخدمة قديما فى المدارس واريد التعديل عليها لتناسب التعديل الجديد للوظائف مثل معلم ومعلم اول أ واضافة بعض الاعمدة مثل تاريخ التسكين وهكذا

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

متابعة الواجبات ************* الأخ الفاضل صلاح 15 صلاح (مش كان كفاية علينا صلاح واحد) بسم الله ما شاء الله يبدو أنك متمكن ، مش بس عملت الواجب وكمان بتشرح كل جزئية فيه .. أول ملحوظة كمعلومة جديدة كمان عشان الكل يستفيد .. فيه جملة اسمها Option Explicit دي يفضل الاعتياد على استخدامها ، ودي بتخلينا وتجبرنا لما نشتغل نعلن عن المتغيرات غصب عننا طول ما هي موجودة ، ودي بتتكتب مرة واحدة في أول الموديول وبتكون منفصلة عن الإجراء الفرعي يعني بتكون بالشكل ده Option Explicit Sub Officena() MsgBox "Hello Salah15Salah. Thank you very much" End Sub ولو حبينا نعلن عن متغير نصي هيكون بالشكل ده Option Explicit Sub Officena() Dim MyString As String MyString = "Hello Salah15Salah. Thank you very much" MsgBox MyString End Sub هنا فيه متغير نصي من النوع String وتم الإعلان عنه .. ممكن لو مفيش الجملة Option Explicit ممكن يتم الاستغناء عن الجملة الأولى ..جملة الإعلان وهنلاقي الكود تم تنفيذه ومفيش مشكلة نجرب الكود مرة تانية بس هنحط تعليق في بداية الجملة وفي بداية سطر الإعلان ونشوف النتيجة!! 'Option Explicit Sub Officena() 'Dim MyString As String MyString = "Hello Salah15Salah. Thank you very much" MsgBox MyString End Sub طيب دلوقتي بقا جرب تشيل التعليق من بداية جملة Option Explicit ونفذ الكود هتلاقي محرر الأكواد بيطلع لك رسالة خطأ ويقولك معناها إن المتغير لم يتم الإعلان عنه ..اضغط على علامة المربع الأزرق اللي على يمين المثلث الأخضر الخاص بتنفيذ الكود .. المربع الأزرق ده اسمه Reset عشان الكود دلوقتي في حالة Break زي فاصل .. وهيفضل محرر الأكواد معلم لك على سطر باللون الأصفر إشارة إلى إن فيه شيء خطأ ، ومش هيسيبك لحد ما تصلح غلطك ..لكن ممكن نهرب منه مؤقتا بالضغط على Reset (أضف إلى معوماتك) طيب جرب تنفذ تاني يمكن يحن عليك المرة دي وينفذ لك الكود (والله لو قعدت جنبه من هنا للقرن الجاي) مش هينفذ كودك طول ما الجملة دي موجودة. واحد هيقولي وأنا أربط نفسي بيها ليه سيبك منها دي باين عليها جملة رخمة وغلسة وهتقطع عليا ..! هقولك لا حاول تعود نفسك ع الصح عشان تتعلم صح .. إحنا قلنا قبل كدا إننا لازم نفشل عشان ننجح .. عمر ما فيه نجاح من غير فشل (دا حتى كدا يبقا نجاح طعمه بايخ)!! طيب معلومة تانية ..هل كل مرة أعمل موديول جديد هكتب الجملة دي بنفسي ؟ قولك لا عمنا بيل جيتس وضع في خيارات المحرر من قايمة Tools ثم Options اللي هي الخيارات اللي بيحب دائما إضافتها في البرامج بتاعته (أصله بيعز الخيار شوية).. هنلاقي تبويب اسمه Editor وفيه تاني جملة جنبها مربع فاضي نحط فيه علامة صح الجملة اسمها Require Variable Declaration وبكدا لما نيجي نعمل إضافة موديول جديد هنلاقي الجملة موجودة في كل موديول كبداية إجبارية للإعلان عن المتغيرات.. طيب نرجع لصلاح الراجل زمانه خد برد مننا بسبب التذنيبة دي من بدري (حضرتك جملة option Explicit موجودة مرتين ..دا كلام !! أكيد إنت بتعزها شويتين ، بس معزتك ليها متخلكش تخرج برا القاعدة اللي بتقول إن الجملة دي تيجي مرة واحدة بس ) ، ودي الرسالة اللي هتظهر لك لما تبدأ التنفيذ بس عموما برافو عليك ..إنت خلتني أعمل حلقة من غير حلقة وأضفنا للزملاء معلومات جديدة . حاجة تانية أخي الحبيب صلاح MyString = "ÓÈÍÇä Çááå æÇáÍãÏ ááå æáÇ Åáå ÅáÇ Çááå æÇááå ÃßÈÑ" With æÑÞÉ1 .Range("C5").Value = MyString End With يفضل إن تكون جملة الإعلان عن المتغير ووضع قيمة له في الأول قبل جملة With ... End With على فكرة الكود اللي لصقته دلوقتي فيه حاجة مش مظبوطة ... أنا تعمدت إن أسيبه كدا عشان تشوفوا اللغة العربية لما نلصقها هنا بتكون بالشكل ده (لا هي إنجليزي ولا هي عربي ..هي تيجي على عبري شوية) .. طبعا كمعلومة جديدة بالنسبة لناس كتير عشان اللغة العربية تيجي معانا بشكل صحيح بنعمل حاجة بسيطة جدا بنخلي اتجاه الكتابة في الكود باللغة العربية وبعدين نعمل نسخ ولصق هنلاقي المشكلة اتحلت (شفتوا البطاطا أقصد البساطة) Dim MyString As String MyString = "سبحان الله والحمد لله ولا إله إلا الله والله أكبر" With ورقة1 .Range("C5").Value = MyString End With الحمد لله اتحلت المشكلة .. بصراحة أشكر الأخ الغالي صلاح نظرا إنه ألهمنا بمعلومات جمة وجميلة (جمة وجميلة) من خلال متابعة الواجب الخاص بيه (بصراحة روعة يا صلاح) هو دا اللي فعلا بدور عليه إنت بالنسبة لي طالب مجتهد ومثالي!! معلومة جميلة بيقدمها لنا الأخ صلاح إننا ممكن بدل ما نكتب سطرين لوضع قيمة لمتغيرين مثلا ..ممكن نخليهم في سطر واحد وبنفصل بينهم بنقطتين i = 100: t = 150 وكمان الإعلان عن متغيرين ممكن يكون في سطر واحد زي كدا Dim i As Integer, t As Integer نشكر الأخ الحبيب صلاح من أعماق قلوبنا متمنين له دوام التوفيق (ومتحرمناش من الواجب الجميل ده .عايزين كل يوم من ده) بكدا نكون اتعلمنا من صلاح معلومات غاية في الأهمية.. الأخت الفاضلة morestudy معلش اتأخرنا عليكي في التصحيح (صلاح خد وقتنا كله ، بس كله في النهاية بيصب ليكم) المرة دي فيه تحسن ملحوظ .. الواجب جميل جدا والحمد لله مفيش أخطاء! بالنسبة لسؤالك الأول : اللي هيجاوب عليه أخونا حماده عمر من خلال المشاركة دي http://www.officena.net/ib/index.php?showtopic=56983#entry361677 السؤال التاني : نعم يمكن تنفيذ الأمر بدون أزرار لكن الزر لتسهيل التعامل مع التنفيذ ، ولكن يمكن الضغط على Alt+F8 هيطلع لنا نافذة فيها كل الأكواد اللي عملناه بنختار الكود ونضغط Run . أما بالنسبة لمعرفة الكود تم تنفيذه أم لا فدا العين هي اللي تقرره .. يعني مثلا أنا هشتغل غلى الخلية C5 أقوم أمسحها وأنفذ الكود ، لو طلعت النتيجة في الخلية زي ما انا متوقعها يبقا كدا تم التنفيذ بنجاح ..لو حصل العكس براجع الكود مرة تانية عشان أعرف الغلطة فين (حد عرف الغلطة فين؟ الغلطة فين؟ ساب الباب مفتوح ! أكبر غلطة ممكن يغلطها المبرمج إنه يسيب الباب مفنتوح (شركة الرعب المحدودة)) .. طبعا قفلنا بقوسين عشان فتحنا قوسين ..ودي مهمة في البرمجة (إننا لو فتحنا قوس يبقا مننساش نقفل القوس شفتوا الطالب النبيه اللي خد باله إني مقفلتش القوس في السطر اللي فات برافو عليك .. بس أنا كنت لسه بكمل كلامي) السؤال التالت : هناك طرق أخرى يمكن فيها الاستغناء عن Run ولكن ليس هذا هو الوقت المناسب للحديث عنها ممكن نقول باختصار إنها أكواد مرتبطة بحدث الصفحة أو المصنف ودي هييجي الكلام عنها بعدين إن شاء الله دمتم في رعاية الله وحفظه وعونه وتوفيقه والسلام عليكم

السلام عليكم الخطوات اعمل الشهادة التي تريدها ثم ادخل المعلومات المطلوبة للكود وسيعمل الملف مع اي ملف شهادات ************************************************ ملحوظة : اذا ادخلت في خلايا الشهادة رقم معين وتريده ان يتكرر في كل الشهادات (بدون تسلسل) ادخله كصيغة نصيه مثلا: العام الدراسي ="2009 /2010" والعكس صحيح لو اردت رقم تسلسلي للشهادات في خلية معينة في الشهادة ابتداءا من الرقم 1 ادخل الرقم 1 في الخلية تريدها في الشهادة ستجد في الشهادة الثانية 2 وفي الثالثة 3 وهكذا تباعا *********************************************** المعلومات المطلوبة اعلى الكود : '*********************************************** '*********************************************** ' اسم ورقة الشهادات Const ShName As String = "الشهادات" ' رقم اول صف للشهادة Const FirstRow As Integer = 12 ' عدد صفوف الشهادة Const CountRow As Integer = 12 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 13 ' خلية موقع الطالب لمعادلات الشهادة Const Range_Index As String = "A12" '===================================== ' اسم ورقة البيانات Const Sh As String = "بيانات اساسية" ' نطاق ناجح دور ثاني في ورقة البيانات Const MyND As String = "BK10:BK1000" ' نطاق الاسماء في ورقة البيانات Const MyNSearch As String = "B10:B1000" '===================================== ' خلية عدد كل المتقدمين Const CountAll As String = "C3" ' خلية عدد الناجحين Const CountNA As String = "C4" ' كلمة البحث عن الناجحين Const NA_G As String = "ناجح" ' خلية عدد دور ثاني Const CountDT As String = "C5" ' كلمة البحث عن دور ثاني Const DT_G As String = "دور تان" '************************************************ '************************************************ اذا تم ادخال المطلوب بالشكل الصحيح سيعمل الكود على اي ملف تفضلوا المرفق شهادات جديد.rar

أخي العزيز جرب مرة أخرى ربما كان قناع الادخال يزعجك قليلا ..... تحويل التاريخ من هجري إلى ميلادي والعكس _1.rar

السلام عليكم ورحمة الله و بركاته الاخ الفاضل / SAMI2 يمكنك مراجعة لهذا المرفق تحويل التاريخ من هجري إلى ميلادي والعكس.rar

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

جرب هذه الدالة البسيطه Public Function SumUpTo5(ByVal S,ByVal F,ByVal K) As Double On Error Resume Next SumUpTo3=s+f+k End Function