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

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

بسم الله كل عام وأنتم بخير ،،، عيدكم سعيد إن شاء الله يعتبر Power Query أحد الإضافات الحديثة في برنامج الاكسل، والذي يحصل على تحديثات دورية من مايكوروسفت لتحسين أدائه سواء بتحسين مميزات وخصائص الأدوات الحالية أو بإضافة أدوات جديدة لمن لا يعرف ما هو Power Query، فهو أداة تعمل على إتمام 3 وظائف رئيسية هي: إستيراد البيانات من العديد من مصادر البيانات كقواعد البيانات (اكسس / SQL / ...) أو من الويب أو من ملفات الاكسل والعديد من المصادر الأخرى. معالجة البيانات التي تم إستيرادها من المصادر المختلفة، وهذه من وجهة نظري تشغل أكثر من 50% من قوة الاداة. تخزين البيانات بعد المعالجة سواء في جدول اكسل / عملية ربط فقط / اضافة لل Data Model. يرجى الأخذ في الإعتبار أن إستخدام Power Query داخل الاكسل مكافئ لحدٍ ما لإستخدام Power Query في Power BI Desktop. في هذا الموضوع أضع بين أيديكم الفيديوهات التي قمت بإعدادها لشرح هذه الأداة بداية من التعرف على طريقة إضافة وتثبيت Power Query مروراً بعمليات الإستيراد والمعالجة للبيانات. أرجو أن تكون هذه الفيديوهات ذات عون لكم في التعرف على استخدام الاداة. 01 - كيفية إضافة Power Query في الإكسل 2010 و 2013 02 - مقدمة تعريفية بالوظائف الرئيسية لل Power Query وعناصر شاشة محرر الإستعلامات https://youtu.be/Kd6g1vTfQuI 03.1 - الربط والإستخلاص من ملفات الإكسل في Power Query الأمر From Excel https://youtu.be/pSOLLngRbAA 04 - إستخدام الأمر Unpivot Columns في Power Query https://youtu.be/SNqC5Wsd7IM 05 - الدمج الرأسي للإستعلامات بالأمر Append Query إستعلام الإلحاق | Power Query https://youtu.be/1t9qWAmGJPM 06. الدمج الأفقي للإستعلامات في Power Query - الأمر Merge Query https://youtu.be/Py5D-JBEmpE 07. دمج ملفات CSV أو TXT في Power Query - الأمر Combine Binaries https://youtu.be/48OeFmvajPc 101. طريقة الوصول لقائمة دوال Power Query https://youtu.be/0MtZ_XUm9k8

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طلب مساعدة فى برنامج لشئون العاملين تم ارفاق كود الحل من الفاضل / حمادة عمر و لا تنسونا من صالح الدعاء شاشة استعلام3+ (1).rar

السلام عليكم و رحمة الله أخي أبو عبد الرحمان أولا : قم بتحديد كامل العمود E و اضبط محاذات الخلية كما تريد ثانيا : بداخل الكود هناك سطران بقوم الاول بتفريغ محتوى الورقة الاولى و الثاني يفرغ الورقة الثانية إلا إذا أردت زر آخر وظيفته مسح البيانات فقط ثالثا : بقيت ساعات على حلول عيد الفطر المبارك ، لذلك اقول لكم تقبل الله منا ومنكم صالح الأعمال ، و أعاده علينا و عليكم و على كل الأمة الاسلامية بالخير و اليمن و البركاة

جرب Private Sub CommandButton1_Click() Dim lr As Integer Dim i As Integer lr = Cells(Rows.Count, "C").End(xlUp).Row For i = 4 To lr If Cells(i, 3) = Me.ComboBox2 Then Cells(i, 2) = Me.TextBox2 Cells(i, 3) = Me.ComboBox1 Cells(i, 4) = Me.TextBox1 End If Next End Sub

وعليكم السلام ورحمة الله وبركاته: عمل جدولين واحد للمعلومات الخاصة بالشخص والثاني لمسار الصورة عمل نموذج رئيسي ونموذج فرعي بتنسيق نماذج مستمرة عملت لك مثالاً بسيطا جربه ووافني بالنتيجة :: تحياتي waz-ImageDisplayer.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة عمل قائمة بأسماء شيتات الملف تم ارفاق كود الحل من الفاضل رحمه الله/ الحسامي و لا تنسونا من صالح الدعاء sheeet (1).rar

السلام عليكم و رحمة الله و بركاته تفضلي الملف بعد التعديل كشف للسيارات.rar

السلام عليكم 1> تعتمد هذه الفكرة على كلمة المرور المتغيرة عند فتح الملف سيظهر لك مربع حوار في أعلاه عدد مكون من خمسة أرقام (وهذا العدد متغير وليس ثابت) مثلا 10547 قم بضرب أول رقمين في آخر رقمين والناتج هي كلمة المرور الصحيحة في مثالنا ستكون كلمة المرور هي 10×47=470 كلمة المرور هي 470 انتيه ! لم نستعمل الرقم 5 في الحساب ولكن وضع للتمويه على المستخدم فقط 2> قمت بإخفاء كل الشيتات التي فيها الحسابات حتى لو تم تعطيل الماكرو ستكون شيتات الحساب كلها مخفية ويظهر شيت آخر فارغ 3> عند تغيير اسم الملف أو تغيير مكانه في الكمبيوتر فلن يعمل البرنامج وسيطلب كلمة المرور من المستخدم 4> لنفترض أنني عملت على هذا البرنامج وأغلفته ثم قام صديق لي في العمل بنسخ هذا البرنامج في فلاشه فلن يستطيع تشغيله على جهازه إلا إذا أعطيته أنا كلمة المرور يجب على صديقي أن يفتح البرنامج من على جهازه وفي نفس اللحظة يتصل بي لأعطيه كلمة المرور لأنه لو أقفل مربع الحوار (الذي سيظهر لإدخال كلمة المرور) بدون إدخال الكلمة أو أدخلها بالخطأ فستتغير كلمة المرور في المرة القادمة عندما يفتح البرنامج مع كل ما تقدم من الشرح إلا أن العمل قد لا يخلو من الخطأ أو الخلل فأرجو المعذرة جرب الملف تفضل أبوعيد.rar

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

طريقة عمل أو استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل ولكن يجب علي هنا اولا ان اقدم الشكر والعرفان لاستاذي ومعلمي الاول في عالم الاكسيل والاكواد خاصة الاستاذ القدير الرائع / يحيي حسين حيث تعلمت منه اكثر من طريقة لعمل كشف حساب واشياء اخري كثيرة ولكني كالعادة دائما احب ان اختار اسهلها علي الاطلاق لسهوله فهمهما وتنفيذها والاعتماد عليها ويمكن لكل ملف وكشف حساب ان يتم استخراجه بأكثر من طريقة ( بالطبع ) ولكني دائما احب الاسهل والاوضح وبالطبع يمكنك تطويع الكود بعد فهمه جيدا لاستخدامه كما تريد وسأقدم الشرح بطريقة الفيديو المباشر في درسين في المشاركتين التاليتين ويمكنكم تحميلهما منهم وكذلك روابط خارجية لتحميل الفيديوهات ارجو أن يوفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا

مرحبا تم وضع زر مسح المحتويات في كل ورقة ابو حنين + 66666.rar

فقط سجل اعجاب

جرب الملف التالي القائمة المنسدلة في الخلية E2 مطاطة (تستجيب لاي تغيير في البيانات في لغاية 500 صف و لا تذكر المكرر الا مرة واحدة) المصنف2 SALIM.rar

ا / سليم طيب اقولك ايه مش عارف بجد shapeau

تم التعديل حسب الطلب working with all sheets Corriger.rar

احسنت اخي صالح لا حاجة للحقل (proffesseur) في استعلام sqstu وفقك الله واي استفسار انا في الخدمة :: تحياتي

جرب هذا الملف working with all sheets.rar

السلام عليكم أستاذي العزيز جزيت خير الجزاء. لكن هذا لا يحل المشكلة لأن صفحات الصفوف الأخرى تبقى في الملف الإخراج و حتى و لو أنها فارغة. و ذلك لأننا قمنا بالفرز بعد الأستعلام المصدر [استعلام التنقيط]. لكن الحمد لله بعد عدة محاولات توصلت إلى حل يفي بالغرض و هو كالتالي: 1- أضفت إلى سطر select الحقل [professeur] Set Rs = CurrentDb.OpenRecordset("SELECT [matiere],[classe],[professeur] FROM [استعلام التنقيط]ORDER BY [matiere],[classe],[professeur];") 2- أضفت وحدة نمطية جديدة Public Function GetPublicSedol2() As String GetPublicSedol2 = Forms![التنقيط]![prof] End Function في استعلام التنقيط في المعيار professeur و ضعت الكود GetPublicSedol2() لا أدري إن كانت الطريقة صحيحة أم لا لكنها تحقق المطلوب و أنت ما رأيك يا أستاذ. Waz-استيراد و تصدير.rar

قم بما يلي 1-حدد اي نطاق (خليتين او اكثر من مكان حيث لا يوجد هذه السطور ) 2-اضغط على اشارة الفرشاة من التبويب Home 3-امسح النطاق المراد تغييره

جرب هذا النموذج sum by day.rar

بارك الله فيك وجزاك الله خيراً تقبل تحياتي

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

ا / ياسر تم تنفيذ المطلوب اصوات.rar

ا جلال و لا اروع

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

وعليكم السلام ورحمة الله وبركاته في استعلام sqstu في معيار حقل proffesseur ضع الكود: [Forms]![التنقيط]![prof] كما تم التعديل على اسم الملف الناتج كي يكون باسم مربي الصف: curPath = DTPath & "\" & Forms![التنقيط]!prof.Column(0) & "-" & Format(Date, "mm-dd-yyyy") & ".xls" :: اي استفسار انا حاضر تحياتي Waz-استيراد و تصدير.rar

الزباري اخى الفاضل ما شاء الله عليك

حبيبى أبو حنين السلام عليكم ورحمته والله وبركاته ياأخى لما الدماغ بيركب بيبقى حاجة صعب من الامس وهية راكبة معايا على FormatNumber بينما الصواب هو NumberFormat هناك ملاحظة تخص العمود E بالورقة " ملف الدفع الإلكترونى " ستلاحظ أن الخلية E 8 دائما تأتى يمنيا تارة وتارة أخرى يسارا أما باقى خلايا العمود فتأتى يسارا " وربنا يجعلنا من أهل اليمين " الاضافة الأخيرة بعد إذنك أخى الحبيب كود من شأنه مسح محتوى كلا الورقتين ABOHANIN و " ملف الدفع الإلكترونى " فى أن واحد تمهيدا لاستقبال بيانات جديدة تقبل الله منا ومنكم صالح الاعمال **** وجزاكم الله خيرا

السلام عليكم اتفضل أخي شوف المرفق بعد ظهور نتائج البحث في الليست بوكس عند الضغط مرتين على أي سطر يتم إدراج العمود الأول ( اللي به الكود على حسب ما فهمت ترتيب جدول نتائج البحث) إلى التكست بوكس الموجود في اليوزفورم 2 ومن ثم إظهار اليوزرفورم 2 بحث بفورم ممتاز2.rar

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

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

السلام عليكم ما هذا الإبداع بارك الله بك وبجهودك وجزاك الله كل خير دمتم ذخراً

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

ضع نفس الكود في حدث بعد التحديث لاي حقل تريد وسوف يقوم باظهار رسالة اذا ادخلت قيم مكررة أو: هل جربت في خصائص الحقل في الجدول؟ افتح الجدول في وضع التصميم ثم اختر الحقل الذي تريد منع التكرار فيه ثم اختر من الاسفل بجانب (مفهرس) نعم (التكرار غير مقبول) او ارفق مثالاً بسيطا بما تريد للتسهيل على من يريد المساعدة :: تحياتي duplicate-waz.rar

العفو اخي الكريم :: تحياتي

بارك الله في حضرتك وجعل الله جميع أعمالك في موازين حسناتك ...

حياك الله اخي صالح وصدقني انت تستاهل كل خير فانت من الاعضاء الذي بفيد قبل ان يستفيد ! تحياتي

عند فتح الماكرو >> انظر اعلى في الشريط واختر "اظهار كل الاحداث" لكي تظهر جميع اوامر الماكرو هذا ن احسنت الترجمة !

حتى لا ننسى هذه المشاركات شاشة دخول_صلاحيات_PASS WORD و لا تنسونا من صالح الدعاء

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة وهذا البرنامج مبني على فكرة وملف سبق أن قدمهم أخي الحبيب خبور قبل أكثر من سنة لفاتورة صرف مواد مع الترحيل وقد قمت ببناء العمل على نفس الملف مع بعض الإضافات منها طريقة البحث عن الأصناف في أذون الصرف والإضافة والتي استخدمت بها فورم للبحث إضافة إلى طريقة تعريف الأصناف والمجموعات وباقي التعريفات .. الخ ، ولن أطيل عليكم وسأترككم تكتشفوا الموضوع بأنفسكم ولكن على الأقل يجب أن أعطيكم إسم المستخدم وكلمة المرور وهي واحدة 123 لإسم المستخدم وكلمة المرور . تقبلوا تحياتي مع تمنياتي لكم جميعاً بالتوفيق . أبو عبدالله تم ارفاق كود الحل من الفاضل/ أبوعبد الله و لا تنسونا من صالح الدعاء WAREHOUSE-1 - UN AND PW 123.rar

السلام عليكم ورحمة الله بعد اذن اساتذتى الكرام اعتقد ان هناك اخطاء فى هذه الدوال واهمهم هو ازالة الصفر من اليسار لان لو اردنا ان نستخدم هذه الدوال فى اى رقم وليكن رقم تليفون ستكون النتيجه خطاء واعتقد ان افضلهم هى هذة الدالة =SUBSTITUTE(A2;" ";"") لانها تعمل فقط على المسافات تحياتى للجميع

السلام عليكم كل عام وانتم بخير الشكر واصل لجميع المشاركين.....حفظكم الله معادلة الاخ الفاضل محمد عبد الغني اوحت لي هذه المعادلة البسيطة =VALUE(TRIM(SUBSTITUTE(B2;CHAR(160);""))) ارجوا ان فيها الفائدة تحياتي

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

السلام عليكم ========== اخى العزيز halwim انا وكل ما املك ملك لك تفضل الرابط " وعلى فكرة البرنامج مجانى وليس له معلومات تسجيل" رابط البرنامج المطلوب

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