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

الأخ الغالي محبوب ... إليك إصدار آخر من الملف ..عله ينال رضاك ..قمت ببعض الإضافات ليكون الملف شامل وكافي ووافي لكل السنوات ... جرب الملف التالي (ولو عجبك غير أفضل إجابة وحددها هنا ..ليسهل للباحث فيما بعد الوصول بسرعة للحل المطلوب) متنساش تدعي لي ..ومتنسناش بفردة كاوتش من معرض السيارات (أي مصلحة منك ..!!) Three Loops In Two Excel Files By YasserKhalil V2.rar

وعليكم السلام وحيا الله أخي عبدالرحمن هناك طريقتين لعمل المطلوب ، وأخي عبدالرحمن شرح الطريقة الاولى ، والطريقة الثانية: في 99.9% من برامجي ، انا لا استخدم منبثق ولا شكلي او مشروط الطريقة هي ، اختر الاختيار الذي عليه السهم: جعفر

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

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

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

السلام عليكم ورحمة الله وبركاته منقول عمل قائمة بأسماء الطابعات المتاحة شاهد المرفق تحياتي ActivePrinter.rar

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

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

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد ....................................................................... قدمنا فى الدروس السابقه كيفية البحث واظهار النتائج ولكن بشرط تطابق الكلمات الموجوده فى نطاق البحث مع الكلمة المدخله فى خليه البحث ........................................................................ اليوم نقدم درس جديد ولكن اظهار النتائج سيكون بناء على تطابق الحرف المدخل فى خلية البحث مع الاحرف الموجوده فى نطاق البحث ........................................................................ نقدم اليوم درسا جديدا فى شرح كيفية استخدام conditional formatting فى البحث وتظليل الخليه الموجوده فى نطاق البحث والتى تطابق الاحرف المدخله فى خليه البحث كما فى الصوره كما تشاهد فى الصوره اننا لدينا جدول بيانات به مجموعه من الاعمده وانه تم تظليل الخلاياالتى تحتوى على الحرف E باللون الاصفر وذلك لانها كما يتضح فى الصوره تطابق الاحرف المدخل فى الخليه C6 ولمعرفة كيفية تنفيذ ذلك تابع الشرح فى الصوره الاتيه قم بانشاء جدول بيانات كما فى الصوره الاولى ثم قم بتحديد الجدول بالكامل بداية من B8:E14 ثم اتبع الشرح الموجود فى الصوره =AND($C$6<>"",OR(ISNUMBER(SEARCH($C$6,B8)))) الان قم بتطبيق المثال على ملف من عندك وقم بتغير الاحرف الموجود فى الخليه C6 الى اى حرف موجود داخل الجدول وستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى. ........................................... الدرس القادم. كيفية استخدام conditional formatting فى البحث وتظليل السطر الذى تطابق حروفه الموجود فى نطاق البحث مع الاحرف المدخله فى خليه البحث

ا / ياسر شكرا جزيلا على المعلومة تصدق كنت فاكرها من الاوفيس و فوق كل زى علم عليم

اشكرك اخى الكريم

المطعم ، المشروبات ، الشيشة ( شيشة تفاح ) لا يستوون....

بردو ينفع بدون الشرطين الاولين اذا كان 50< لكن اصغر لا لأن الدكتور اكسل يعتبر كل حاجة فارغة او نص عبارة عن رقم صفر و بهذا سوف يلون لك حاجات غلط / جرب و استنتج

المعادلة و ضحة جداً ------ الكلمة and هي الشرط الذي لا يكون صحيحاً الا اذا كانت كل مكوناته صحيحة (True) الشرط الاول- الخلية B5 يجب ان تكون غير فارغة الشرط الثاني- الخلية C5 يجب ان تكون غير فارغة الشرط الثالث - المجموع اقل من 50

حدد اي خلية تحتوي على التنسيق الشرطي ثم اضغط Alt+O+D وسوف تظهر لك معادلة التنسيق

لم يتم التصحيح .. أخي الفاضل تقبل تحياتي (أنا وراك لحد ما تعرف تتعامل مع المنتدى)

الأخ الكريم محمود كويك إنت حددت أي مشاركة كأفضل إجابة (مشاركتك ..مقبولة منك ..عشان لسه جديد بس) لو حد تاني عملها كنت قطعته بسناني المهم : افتح أي ملف إكسيل ، أكيد طبعاً عارف الطريقة ، من قايمة Start وبعدين Programs وافتح البرامج هتلاقي Microsoft Offce وجنبه رقم الإصدار اللي إنت شغال عليه فتحنا الملف ..قول الحمد لله . من لوحة المفاتيح اضغط Alt + F11 ( كدا غلط .. مش كدا أنا مقلتش Alt وبعدين تسيب ايدك من على اللوحة .. خلي صبعك رااااااشق على مفتاح Alt وفي نفس الوقت اضغط F11 هيفتح معاك صفحة غريبة اسمها (محرر الأكواد) .. في الجنب الشمال هتلاقي نافذة اسمها نافذة المشروع Project Window وهتلاقي كلمة ThisWorkbook .. تعال على الكلمة دي واضغط دبل كليك (لو مفتحتش معاك صفحة بيضا .. اعمل دبل كليك تاني هتلاقي الماوس بتاعك بااااااايظ) لما تعمل دبل كليك هيظهر لك قايمتين منسدلتين اللي ع الشمال هتلاقي فيها كلمة Workbook كدا تعرف إنك واقف في المكان المظبوط خد الكود نسخ والصقه هناك في الحتة البيضا Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim X As Long X = Range("A1").Value Range("A1").Value = X + 1 End Sub وبكدا يكون الملف جاهز ..اعمل حفظ من علامة الحفظ أكيد عارفها ... ولاحظ الخلية A1 في كل مرة بتحفظ فيها الملف .. بس بالمناسبة في الاول هيطلعلك رسالة فيها Yes و No و Cancel اختار No أيوا اختار لا (اعترض) ولما يتفتح معاك نافذة الحفظ اختار من Save as type اختار Excel Macro enabled وفي الحقل المسمى File name اكتب اسمي (شايفك بتكتب اسمك انت .. مش مهم هعديها دي) كدا الملف جاهز بعد الحفظ امسح محتويات الخلية A1 وجرب تحفظ الملف واحفظ تاني وكمان مرة احفظ وشوف النطاق A1 أرجو ان أكون قد أفدتك

الأخ الحبيب رجب (أنا معاك شفت العجب وجبت لي الكلام) فيه نااااااااس بصالي في العزومة اللي لسه متمتش !! وبصالي في الموضوع .. ولما تقول فرح هيبصولي في النقطة .. تقبل تحياتي

الأخ الحبيب بكري .. أهلا بك في المنتدى أخاً جديداً .. رويداً رويداً .. إحنا مش صوااااريخ يا بكري .. الصبر يا أخي الفاضل هل اطلعت على التوجيهات : http://www.officena.net/ib/index.php?showtopic=60147 هذا لأن عنوان الموضوع غير معبر .. سيتم تغيير العنوان إن شاء الله ما في بارقة أمل .. صدقني ولا بارقة عمر! لأني فتحت الملف ولاقيت 7 طلباات ... لو قريت التوجيهات هتلاقي إن الأعضاء بتنفر من الموضوعات متعددة الطلبات .. فيكفي أن تطرح طلب في موضوع حتى إذا تم على أكمل وجه اطرح موضوع جديد بطلب جديد ..وهكذا إلى أن يكتمل العمل (هذه مجرد نصيحة وليس إلزام .. لكن خدها من واحد خبرة) تقبل تحياتي

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

هل هذا ما تريه اذا كان صحيحاً اضغط عجبني formate 11.rar

اخي الفاضل الموضوع سهل علي حسب ما فهمت اولا اضف الي الجدول الذي تدخل فيه البيانات حقل باسم مثلا user واضفه في نموذج الادخال اليك مثال علي ذالك للتوضيح المستخدم / admin الباسورد / 123 نظام مستخدمين.rar

جزاه الله خيرا وهداه الله الى يحب ويرضى

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

اخى احمد هل تقصد هكذا تقبل تحياتى 1.rar

الأخ الكريم محمد يوسف اضغط الملف المراد رفعه أولاً ثم قم برفعه أهلا بك في المنتدى وشرفت ونورت تقبل تحياتي

اخ ياسر سلام الله عليكم لقد اثريت الموقع و اغنيتة من نفيس دررك و ابداعاتك بما يستحق الثناء و التقدير وفقكم المولى الى المزيد و جعله زيادة في ميزان حسناتكم

مشكور اخي محمد !! والموضوع له اكمال ان شاء الله بشئ في ذهني يدور الان !! مشكور اخ أبا عمر على مشاركتك : وأقول هذا دليل انك خبير ما شاء الله ! الوصول لفكرة الغير والتعديل عليها هي اقوى واصعب من ولود الفكرة ! أخيرا : وينك أستاذ جعفر !! شوف رمهان مع هؤلاء الأعضاء الراقين والمتميزين !! الحين بتقول لي صرت فوق السحاب مش فوق النخل !!! تحياتي لكم جميعا

تمام أوى اشتغل الكود الأصلى ولكن البيانات طلعت بشكل يحتاج تنسيق وتعديل فى الكود تحياتى

تحية وتقدير بدايةً أسعدنى مرورك قبل مشاركتك فأما الشكر لك فأنا أعجز عن تقدير تعبك ومجهودك لمساعدتى وفققك الله لكل ما يحبه ويرضاه تقبل شكرى وتقديرى أستاذنا العزيز \ ياسر :fff: :fff: :fff:

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

الف شكر لك الان انا في مرحلة اعداد عدد 2 ملف جديد الاول تفقيط الارقام مع أمكانية تغيير اللغة حسب الرغبة الثاني خاص بشركات المقاولات عمل مستخلصات جارية أن شاء في القريب يتم انجازهم

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

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

السلام عليكم هل تقصد هكذا رسم.rar

استخدم زر المسافة Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Me.text1.SetFocus End If End Sub example.rar

الأخ الحبيب محبوب تعبت والله ..بقالي ساعتين عشان أعمل الكود الملعبك ده بس الحمد لله بفضل الله تم المطلوب .. افتح ملف "الأقساط الشهرية 2015" ستجد الكود بداخله .. في ورقة الفهرس يوجد زر امر انقر عليه لتنفيذ الكود .. Sub YasserKhalil() Dim WBK As Workbook Dim SH As Worksheet, WS As Worksheet, Cell As Range Application.ScreenUpdating = False Application.DisplayAlerts = False Set WBK = Workbooks.Open(ThisWorkbook.Path & "\حسابات العملاء 1.xlsx") For Each SH In ThisWorkbook.Sheets If SH.Name <> "الفهرس" Then SH.Range("C6:F99,H6:I99").ClearContents For Each WS In WBK.Sheets If WS.Name <> "الفهرس الرئيسى" Then With WS If IsEmpty(.Range("A6")) Then GoTo 1 For Each Cell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row) If Month(Cell.Value) = MonthNumber(SH.Name) Then SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value SH.Range("C" & SH.Cells(99, 3).End(xlUp).Row + 1) = .Range("C2").Value SH.Range("E" & SH.Cells(99, 5).End(xlUp).Row + 1) = Cell.Offset(, 2) SH.Range("F" & SH.Cells(99, 6).End(xlUp).Row + 1) = Cell.Offset(, 3) SH.Range("I" & SH.Cells(99, 9).End(xlUp).Row + 1) = .Range("M8").Value End If Next Cell 1 End With End If Next WS End If Next SH WBK.Close SaveChanges:=False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Function MonthNumber(MonthName As Variant) As Variant Select Case MonthName Case "": MonthNumber = "" Case "يناير": MonthNumber = 1 Case "فبراير": MonthNumber = 2 Case "مارس": MonthNumber = 3 Case "ابريل": MonthNumber = 4 Case "مايو": MonthNumber = 5 Case "يونيو": MonthNumber = 6 Case "يوليو": MonthNumber = 7 Case "اغسطس": MonthNumber = 8 Case "سبتمبر": MonthNumber = 9 Case "اكتوبر": MonthNumber = 10 Case "نوفمبر": MonthNumber = 11 Case "ديسمبر": MonthNumber = 12 End Select End Function تقبل تحياتي ولا تنسى أن تحدد المشاركة إذا أعجتك الإجابة كأفضل إجابة (ساعتين مني قصاد ثانيتين منك .. أظن كدا عدل والحمد لله) Three Loops In Two Excel Files By YasserKhalil.rar

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

الباركود Module-EAN13 Option Explicit Const KDigits = "0123456789" Const KTbA = "ABCDEFGHIJ", KTbB = "KLMNOPQRST", KTbC = "abcdefghij" Const KTbD = "0123456789", KtbE = "klmnopqrst" Const KCode = "AAAAAAAABABBAABBABAABBBAABAABBABBAABABBBAAABABABABABBAABBABA" Public Const KEAN13 = "EAN13.TTF" Function EAN13$(ByVal Chaine$) Dim Bcle%, Codage$, Check&, Car$ Chaine = Left$(Chaine, 12) If Len(Chaine) < 12 Then Exit Function For Bcle = 1 To 12 Car = Mid$(Chaine, Bcle, 1) If Car < "0" Or Car > "9" Then Exit Function Check = Check + Car * (2 * ((Bcle - 1) Mod 2) + 1) Next Bcle Chaine = Chaine & 10 - (Check Mod 10) Mod 10 EAN13 = Left$(Chaine, 1) & Space$(6) & "*" & Space(6) & "+" Codage = Mid$(KCode, Left$(Chaine, 1) * 6 + 1, 6) For Bcle = 2 To 7 If Mid$(Codage, Bcle - 1, 1) = "A" Then Mid$(EAN13, Bcle, 1) = Mid$(KTbA, Mid$(Chaine, Bcle, 1) + 1, 1) Else Mid$(EAN13, Bcle, 1) = Mid$(KTbB, Mid$(Chaine, Bcle, 1) + 1, 1) End If Next Bcle For Bcle = 8 To 13 Mid$(EAN13, Bcle + 1, 1) = Mid$(KTbC, Mid$(Chaine, Bcle, 1) + 1, 1) Next Bcle End Function Function EAN8$(ByVal Chaine$) Dim Bcle%, Car$, Check% Chaine = Left$(Chaine, 7) If Len(Chaine) < 7 Then Exit Function For Bcle = 1 To 7 Car = Mid$(Chaine, Bcle, 1) If Car < "0" Or Car > "9" Then Exit Function Check = Check + Car * (2 * (Bcle Mod 2) + 1) Next Bcle Chaine = Chaine & 10 - (Check Mod 10) Mod 10 EAN8 = ":" & Space$(4) & "*" & Space(4) & "+" For Bcle = 1 To 4 Mid$(EAN8, Bcle + 1, 1) = Mid$(KTbA, Mid$(Chaine, Bcle, 1) + 1, 1) Next Bcle For Bcle = 5 To 8 Mid$(EAN8, Bcle + 2, 1) = Mid$(KTbC, Mid$(Chaine, Bcle, 1) + 1, 1) Next Bcle End Function

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

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