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

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

اعرض الملف بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته موعدنا اليوم مع معلومة مفيدة جدا وخفيفة جدا ومهمة جدا في نفس الوقت وهي تصميم بدائل دالة TEXTJOIN الموجودة في اكسل 2016 وما بعده لجميع إصدارات إكسل لأنها دالة معرفة UDF . لمن يريد استخدام مزايا إكسل 2016 في جميع إصدارات إكسل بداية من 2003 و 2007 و 2010 و 2016 و 2019 دالة احترافية لدمج النصوص مع وضع فاصل بين قيم الخلايا وتجاهل الخلايا الفارغة mastextjoin بدائل textjoin الموجودة في إكسل 2016 وما بعده اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا #a1mas #ostazmas #textjoin لماذا نستعمل دالة textjoin ؟ نبدأ أولا بمعرفة أن هذه الدالة توجد في أوفيس 2016 وما بعده ( أوفيس 365) وهي دالة لدمج النصوص مع تجاهل الخلايا الفارغة وعدم تكرار الفاصل في حالة إذا كانت الخلية فارغة. ولها 4 وسيطات: والصورة العامة لها هي: TEXTJOIN(delimiter, ignore_empty, text1, [text2], …) delemiter محدِد (مطلوبة) عبارة عن سلسلة نصية، إما أن تكون فارغة أو تكون حرفاً واحداً أو أكثر محاطاً بعلامات الاقتباس المزدوجة أو مرجعاً إلى سلسلة نصية صالحة. إذا تم إدخال رقم، فسيُعامل كنص. ignore_empty (مطلوبة) إذا كانت TRUE، فسيتم تجاهل الخلايا الفارغة. text1 (مطلوبة) هي العنصر النصي المطلوب دمجه. عبارة عن سلسلة نصية أو صفيف من السلاسل مثل نطاق من الخلايا. [text2, ...] (اختيارية) هي العناصر النصية الإضافية المطلوب دمجها. قد يكون هناك حد أقصى يبلغ 252 من الوسيطات النصية للعناصر النصية بما في ذلك text1. يمكن أن يكون كل عنصر منها عبارة عن سلسلة أو صفيف من السلاسل مثل نطاق من الخلايا. وإليكم هذا الفيديو لشرح الدالة وتوضيح كيفية استخدامها في إكسل 2016 وما البدائل لدالة textjoin في إكسل 2013 و 2010 و 2007 و 2003 وهي دالة mastextjoin ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك صاحب الملف أ / محمد صالح تمت الاضافه 26 ينا, 2018 الاقسام قسم الإكسيل  

سلمت يمينك استاذ رمهان جزاك الله خيرا

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

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

جرب هذا هو من اعمال أسناذنا الكبير محمد الدسوقى له منا كل الحب والإحترام فورم بحث.xlsm

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

اتفضل أخى الكريم المرفق به المطلوب فورم بحث.xlsm

:: إرفق المثال لو سمحت ؟

تفضل أخى فورم بحث.xlsm

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

تفضل أخى محمود تحويل من التاريخ الهجرى الى الميلادى.xlsx

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

جرب هذا Subtotal.xlsm

تفضل أخي تصغير أكسس بجوار الساعة لأستاذنا الكبير ناصر المصاروة جزاه الله عنا كل خير Nasystry3-up.rar

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

تفضل وجزيت خيرا لتنبيه بتعقيب الاخ صاحب السؤال حيث لم ارى استفساره من قبل Me.rasael_custmer.SetFocus For i = 1 To 50 If IsNull(Screen.ActiveControl) Then x = MsgBox(Screen.ActiveControl.Controls(0).Caption, , Me.rasael_custmer!IDr): Exit For: Me.ÃãÑ196.SetFocus SendKeys "{tab}" DoEvents Next والعدد هو عدد خلايا النموذج الفرعي وعبارة عن عدد الحقول مضروب بعدد السجلات ولكن اختصرت العدد تحياتي

السلام عليكم ورحمة الله استبدل المعادلة المرفقة مع الملف بهذه المعادلة لا تنسى الضغط على Ctrl + Shift + Enter =IFERROR(LARGE(IF($D$4:$D$64=$F$4;$E$4:$E$64;"");ROW()-3);"")

السلام عليكم ورحمة الله استخدم هذا الكود Sub Date_To_Test() Dim wbDate As Workbook, wbTest As Workbook Dim Pat As String Dim LR As Long, LS As Long Application.ScreenUpdating = False Set wbTest = ThisWorkbook Pat = wbTest.Path & "\" Set wbDate = Workbooks.Open(Pat & "Data" & ".xlsb") Dim ws As Worksheet, Sh As Worksheet Set ws = wbDate.Sheets("add") Set Sh = wbTest.Sheets("add") LR = Sh.Range("B" & Rows.Count).End(xlUp).Row LS = ws.Range("B" & Rows.Count).End(xlUp).Row Sh.Range("B" & LR + 1).Resize(LS - 5, 115).Value = _ ws.Range("B6:DL" & LS).Value wbDate.Close False Application.ScreenUpdating = True End Sub

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

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

هل ينفع معك هذا الملف ؟ علامات.xlsm

على بركة الله نبدأ أول درس و ننتظر ملاحظاتكم حول أي شيء نسيته و هو متعلق بهذا الدرس أو أي معلومة أخطأت بها: الــدرس الأول : المتغيرات تعتبر المتغيرات النواة الأساسية أو حجر الأساس بالنسبة لكل برنامج في أي لغة برمجة كانت. يعني قبل البدأ يجب أن تقوم بتعريف المتغيرات التي تحتاجها و تحدد نوعها قبل كل شيء. 11- أنواع المتغيرت: هناك العديد من أنواع المتغيرات و كل نوع يخصص له حجم معين في الذاكرة. سوف نقوم بإضافة شرح جميع أنواع المتغيرات و الحجم الذي يأخذه كل نوع من الذاكرة: String: نص يتسع المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت Boolean: ياخذ نوعين من القيم True و False (طوله 2 بيت ) Byte: بايت يكون رقم بين 0 من 255 (طوله 1 بايت) Integer : عدد صحيح (طوله 2 بيت ) قيمته من 32768- إلى 32767 Long : عدد صحيح طويل (طوله 4 بيت) قيمته من 2,147,483,648- إلى 2.147.483.647 Signal: عدد عشري (طوله 4 بيت) قيمته من 3.402823x1038- إلى 1.401298x10-45- للقيم السالبة و من 1.401298x10-45 إلى 3.402823x1038 للقيم الموجبة Currency: عملة (طوله 8 بيت) قيمته من 922،337،203،685،477.5808- إلى 922،337،203،685،477.5807 Double : مزدوج عدد عشري (طوله 8 بيت) قيمته من 1.79769313486231x10308- إلى 4.94065645841247x10-324- للقيم السالبة. و من 4.94065645841247x10-324 إلى 1.79769313486232x10308 للقيم الموجبة Date: نوع البيانات تكون على شكل تاريخ (طوله 8 بيت) يبدأ تاريخ vba من 1/1/100 حتى 31/12/9999 Object : لتخزين الكائنات التي تحتوي على خصائص و وظائف و يتم تعيينه بجملة set ويشغل في الذاكرة 4 بايت أو حسب خصائص و وظائف الكائن المحدد. و سوف نخصص درس لعرض أنواع الكائنات. Variant : لتخزين كل الأنواع السابقة ويمكن تخزين المصفوفات بداخله أيضاً 2- طريقة الإعلان عن المتغيرات: الإعلان عن متغير يعني حجز مكان في ذاكرة الكمبيوتر باسم هذا المتغير و يحدد حجمه حسب نوع المتغير. و يتم تعريف المتغير أو الإعلان عنه بواسطة العبارة DIM . مثال: Dim A as Integer للإعلان عن أكثر من متغير: Dim a,b as integer للإعلان عن أكثرمن متغير لأنواع مختلفة في نفس السطر: Dim A As Double, B As Integer 3- ملاحظات: - - يفضل الإعلان عن نوع المتغير لزيادة سرعة التعامل معه . - - المتغيرات التي لم تحدد نوعها يعمل فيجول بيسك علي الإعلان عنها تلقائيا من النوع Variant وهو أبطأ أنواع المتغيرات . - - بالنسبة للإعلان عن أكثر من متغير من نفس النوع بالطريقة التالي: Dim a,b as integer هنا b فقط من النوع integer أما a فهو في هذه الحالة يعتبر من النوع Variant يجب أن يتم التعريف بهذا الشكل: Dim a integer,b as integer أو Dim a as Integer Dim b as Integer 4- شروط تسمية المتغيرات: - - اسم المتغير يجب أن يبتدأ بحرف . - - يمكن استعمال الحروف التي تلي الحرف الأول رقم أو حرف أو الإثنين معا. - - لا يجب أن تكون هناك فراغات بين أسماء المتغير و يمكن استعمال الشكل التالي: id_user - - يجب عدم استعمال نقطة أو رمز خاص مثل ( ؟ ، * ، ) ، ( ، /......... إلخ ) ولكن يمكن استخدام الشرطة السفلية ( _ ) - - أن لا يكون اسم المتغير من الكلمات المحجوزة في الأكسس.

بسم الله الرحمن الرحيم الاخوة والاخوات فى هذا الصرح العظيم أقدم لكم اليوم الاصدار الثالث من برنامج EMA يشمل جميع الامور المحاسبيه هذه النسخه نسخه تجريبيه يرجى من الاخوة المحاسبين والمهتمين بالامور المحاسبية التجربه والتقييم للوصول الى الافضل ان شاء الله بنزل الشرح عن كيفية الاستخدام والتعامل مع البرنامج اى سؤال أو استفسار لا تترد وأنا تحت امركم كلمة المرور - الدعم الفني الباسورد - 123 تفضل نسختك EMA.zip

حساب المرتب الإجمالى اذا علم المرتب الصافى والعكس http://www.aliateck.com/downloads/salary_calc/index.php حساب ضريبة المرتبات والتأمينات الاجتماعية 2015-2014 http://www.facebook.com/aliateck Free Salary Calculator Egypt 2014-2015