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

جرب هذا الملف تصفيةبشرطين salim.xlsm

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

السلام عليكم ورحمة الله وبركاته أقدم لكم أحبائي وإخوتي الكرام كتاب أكثر من رائع فهذا الكتاب جامع لكل المعلومات التي تحتاجها في تعليم إكسل 2007 وهو بالمناسبة مترجم الى اللغة العربية وأخذ جوائز عديدة في مجال التعلم على إكسل : معلومات حول الكتاب اسم الكتاب : تعليم الصيغ والمعادلات في إكسل 2007 المؤلفين : الكتاب كما ذكرت مترجم مواصفات الكتاب : مبتدىء-متوسط – متقدم. حجم الكتاب :39 ميجا مع تطبيقاته على إكسل نوع الكتاب :ملف PDF محتويات الكتاب بالعناوين: 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح المهميـــــن جدا في اكسل 6.في النهاية الغير متوقعة شرح لغة VBA علي الاكسل وطريقة كتابة الصيغ فيها أن هذا الكتاب جامع كل المعلومات الضرورية لكل الاشخاص الذين يريدون وضع قاعدة أساسية في تعلم إكسل 2007 من البداية و من ثم الإحتراف رابط التحميل https://up.top4top.net/o-f57ab191531-rar.html

السلام عليكم اخوي نبيل الاجازات المتراكمة اسم على مسمى فبدلا من ان ننظر اليها حسب كل سنة الاولى ان ننظر اليها جملة ‘ بمعنى اننا يجب ان نستبعد السنين فتكون اجازات علي المتراكمة والمستحقة = 50 يوما

جرب هذه الملف Auto_numbering.xlsx

جرب هذه الملف Three_cdes_in One.xlsm

احسنتم وفقكم الله الان يعمل بشكل رائع وممتاز الملف به اكثر من 50000 حساب لذلك حجمه كبير جدا خالص تحياتي واحترامي لشخصكم الكريم

تم معالحة الامر ( لم افهم لماذا هذا الملف كبير جداً 34 ميغا) استبدل في الكود هذا السطر S_sh.Range("q2").Formula = "=AND($A4=$A$1&"",$B4=$B$1&"")" بهذا S_sh.Range("q2").Formula = "=AND($A4=$A$1&"""",$B4=$B$1&"""")" لان الخلايا في العامود A و B هي بتنسيق نص بينما الخلايا A1 و B1 يتنسيق ارقام التصفية salim.rar

ارفع جزر بسيط من الملف (20 صف على الاكثر)للمعالجة ومعرفة الخطأ

ألف شكر أستاذ بكار ؛ جارى التحميل

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

الاستاذ الفاضل سليم حاصبيا جزاكم الله خيرا عمل ا كثر من رائع وفقكم الله وحفظكم

جرب هذا الملف (الصفحة Main) الماكرو Option Base 1 '======================================= Private Sub CCMD_1_Click() sum_all_L2_in_B3 End Sub '=========================================== Sub sum_all_L2_in_B3() Dim first_sheet$: first_sheet = Sheets(1).Name Dim last_sheet$: last_sheet = Sheets(Sheets.Count - 2).Name Dim t$, last_row% last_row = Sheets("Main").Cells(Rows.Count, 2).End(3).Row If last_row < 2 Then last_row = 2 Sheets("Main").Range("b2:b" & last_row).ClearContents Dim First_row%: First_row = 2 t = "=SUM('" & first_sheet & ":" & last_sheet & "'!L" & First_row & ")" With Sheets("Main").Cells(3, "b") .Offset(-1, 0) = "the sum of L2" & Chr(10) & " from sheets " & first_sheet & " to sheet " & last_sheet .Formula = t .Value = .Value End With ' End Sub '======================================== Sub sum_all_L2_with_msgbox() Dim first_sheet$: first_sheet = Sheets(1).Name Dim last_sheet$: last_sheet = Sheets(Sheets.Count - 2).Name Dim t$, x$ t = "=SUM('" & first_sheet & ":" & last_sheet & "'!L" & 2 & ")" x = "the sum of L2" & Chr(10) & " from sheets " & first_sheet & " to sheet " & last_sheet MsgBox x & Chr(10) & Evaluate(t), vbMsgBoxRight End Sub الملف Salim's_Sum.xlsm

وعليكم السلام تفضل أخى هذا كود أحد الإخوة الكرام طھطµط­ظٹط­ ظƒظˆط¯ ط§ظ„طھط±ط­ظٹظ„ ط¨ط§ظ„ظپظ„طھط±ط© ط§ظ„ظ…طھظ‚ط¯ظ…ط©.xlsm

أهلا وسهلا بك فى المنتدى نورتنا اليك كودين مختلفين ممكن تختار اللى انت عايزه منهما-بارك الله فيك كود ثابت للوقت والتاريخ.xlsm

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

السلام عليكم ورحمة الله استخدم هذا الكود Sub AddSheets() Dim List As Range, C As Range Dim Sh As Worksheet Set List = Sheet1.Range("B4:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row) On Error Resume Next For Each C In List If Len(Trim(C.Value)) > 0 Then If Len(Worksheets(C.Value).Name) = 0 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = C.Value End If End If Next End Sub

ولإثراء الموضوع بعد إذن الأستاذ يحيى حسين هذه ملفات ترقيم تلقائي بمجرد الكتابة في الخلية B يتم الترقيم التلقائي وكذلك هناك ملف بالمعادلات ترقيم تلقائي 4.rar كود ترقيم تلقائي 3.rar ترقيم تلقائي بالمعادلة.rar