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

الطريقه الخامسه :- تعبئه الكمبوبوكس ببيانات محدده فمن خلال هذه الطريقه يمكن تعبئة الكمبوبوكس ببيانات محدد يتم كتابتها بالكود يعنى لا يوجد مرجع لها بالاكسيل فى اى شيت مثال لو انت حضرتك حابب تعمل خيارين فقط للمستخدم مثلا يختار أما سند قبض أو سند صرف هنعمل الكلام ده من خلال مصفوفه شاهد الكود اولا ثم نكمل التوضيح Dim a As Variant a = Array("سند قبض", "سند صرف") ComboBox1.List = a السطر الاول بالكود هو تعريف متغير وسمناه a ( وممكن تسميه اى حرف اخر او حروف اخرى ) وقلنا ان المتغيير ده من النوع Variant Dim a As Variant طيب a اللى هى من النوع Variant عباره عن ايه لازم بقى اديها قيمه وعرفها علشان كدا كتبنا السطر التانى a = Array("سند قبض", "سند صرف") Array دى عباره عن داله من دوال VbA وهى المصفوفه ( عباره كدا عن حصاله بنجمع بها المعلومات اللى عايزينها علشان نستخدمها بعد كدا ) طيب بعد ما عرفنا a وقلنا ان a عباره عن مصفوفه وبعدين قمنا بتخزين القيم اللى عايزينها داخل المصفوفه بعد كدا عملنا فى السطر التالى قلنا ان الكمبوبوكس القائمه بتاعته تساوى العناصر اللى داخل المصفوفه ComboBox1.List = a طيب الكود ده يوضع فى اى حدث ؟ دى بقى حضرتك اللى تجاوب عليها حسب احتياج برنامجك ولكن ممكن نفترض انه يكون فى حدث فتح الفورم مثلا كالتالى Private Sub UserForm_Initialize() Dim a As Variant a = Array("سند قبض", "سند صرف") ComboBox1.List = a End Sub شاهد الصوره التاليه عند فتح الفورم يعنى باختصار كل اللى يهمه بالكود ده هو السطر التالى تقدر من خلاله تحديد البيانات المطلوب عرضها a = Array("سند قبض", "سند صرف") ممكن يكون كدا مثلا a = Array("فاتورة مبيعات", "فاتورة مشتريات", "فاتورة مردود مبيعات", "فاتورة مردود مشتريات") شاهد الصوره عند تغيير العناصر داخل المصفوفه **************************************************************************** وهذه طريقه اخرى لكتابة الكود Private Sub UserForm_Initialize() Dim a As Variant a = Array("سند قبض", "سند صرف") For i = LBound(a) To UBound(a) ComboBox1.AddItem a(i) Next End Sub بدل استعمال الخاصيه List فى تعبئه الكمبوبوكس بالعناصر اللى داخل المصفوفه قمنا باستخدام الحلقه التكراريه For للمرور على كل عناصر المصفوفه وادخالها فى الكمبوبوكس ************************************************************************************** والى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد وطريقه اخرى من طرق تعبئة الكمبوبوكس تقبلوا تحياتى

السلام عليكم أخي الحبيب حسام أبكيتني يا بنيّ...وهاهي دموعي الآن تسرح من عيوني ذكرتني أنني كنت حياً ذات يوم ..كنت إنساناً..كنت ذا قيمة ولكن اليوم كل شيء ذهب أدراج الرياح... لا حول ولا قوة إلا بالله العلي العظيم.. اللهم يا قوي يا متين يا ذا العرش المجيد عليك بمن ظلمنا وشردنا ...آمين والسلام عليكم.

السلام وعليكم استاذى الحبيب / محمد الريفى عمل رائع كالعادة .. وفقكم الله لما فيه الخير دائما واذا سمحت لى .. سأعرض اسلوب اخر لشرح فكرة الفيديو علها تمثل اضافة ولاننا استخدمنا الدالة Match .. نتذكرها معاً

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

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

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

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

السلام عليكم ورحمة الله وبركاته. فيديو جديد من احد دورات تدريب المحاسبين على برنامج الاكسيل . وهو حالة عملية متقدمه باستخدام الدالة VLOOKUP , MATCH , IFERROR ... اتمنى ان تكون مفيده جدا لكم جميعا تقبلو خالص تحياتى واحترامى https://www.youtube.com/watch?v=G5QV4V3OOt0

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

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

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

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

السلام عليك ورحمة الله وبركاته اخى الصقر اخى محمد حسن اخى ياسر العربى اخى ياسر خليل كلها محاولات جميله والاجمل التنوع مشكورين جميعا .............................. واسمحو لى بالمشاركه معكم على الرابط الاتى http://www.officena.net/ib/topic/50183-اهداء-الى-المنتدى-بعيدا-عن-الاكواد-تفقيط-المبالغ-باستخدام-المعادلات/ تقبلوا تحياتى

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

أخي الكريم ياسر العربي إذا كان ملفك بيسبب صداع .. طيب الملف المرفق في المشاركة دي شوف هيسبب لك ايه؟ دا ملف بالمعادلات من غير أكواد وفيه أوراق عمل مخفية وإعدادات للعملة اللي إنت ترغب فيها وعربي وإنجليزي (وعشان متقولوش حارمكم من حاجة) Convert Numbers Into Words No Codes.rar

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

لأصحاب المتاجر.. كود لحساب فئات المبلغ المتبقي المفروض تسليمها للعميل.. أترككم مع املف coins.rar coins.rar

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

السلام عليكم ورحمة الله وبركاته الدرس الحادي عشر 11-Worksheet&Workbook Events احداث الورك بوك والورك شيت وسوف نتناول فى هذه الدرس الاتى Worksheet_SelectionChange Worksheet_Activate Worksheet_Deactivate Worksheet_Change Worksheet_BeforeDoubleClick Worksheet_BeforeRightClick Workbook_Open Workbook_BeforeClose Workbook_BeforeSave Workbook_AfterSave Workbook_SheetActivate Workbook_SheetBeforeDoubleClick Workbook_SheetBeforeRightClick Workbook_NewSheet Workbook_SheetChange Workbook_SheetSelectionChange ............................................................................................. سوف نتناول هنا بعض الاكواد التى توضع فى حدث الورقه مع محاولة توضيح كيفية استخدامها كيفية اضافة الاكواد الخاصه بالحدث Worksheet يتم ذلك عن طريق الدخول الى محرر الاكواد ثم اختيار الشيت الذى نريد تطبيق الكود فيه والضغط مرتين على اسم الشيت فى محرر الاكواد لفتح نافذه الاكواد ثم كتابة الكود داخل النافذه ده طبعا على سبيل المثال بالنسبه لاسم الشيت ولكن اختيار الشيت هيكون على اساس اسماء الشيتات الى عندك انت طبعا Worksheet_SelectionChange هنا يتم تنفيذ الامر كلما يحدث تغير داخل النطاق المحدد شكل الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub Worksheet_Activate هنا يتم تنفيذ الامر كلما يتم الدخول الى الورقه شكل الكود Private Sub Worksheet_Change(ByVal Target As Range) End Sub Worksheet_Deactivate هنا يتم تنفيذ الامر كلما يتم الدخول الى اى ورقه داخل الشيت اى الخروج من الورقه التى بها الكود شكل الكود Private Sub Worksheet_Deactivate() End Sub Worksheet_Change هنا يتم تنفيذ الامر كلما يتم حدوث تغير فى الورقة شكل الكود Private Sub Worksheet_Change(ByVal Target As Range) End Sub Worksheet_BeforeDoubleClick هنا يتم تنفيذ الامر كلما يتم الضغط على زر الماوس الايسر مرتين شكل الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) End Sub Worksheet_BeforeRightClick هنا يتم تنفيذ الامر كلما يتم الضغط على زر الماوس الايمن شكل الكود Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) End Sub انتهينا من معظم احداث الورك شيت ................................................................................................................................................................................................................................................................................... نتناول الان معظم احداث الورك بوك الفرق هنا ان هذا الكود يوضه فى حدث الورك بوك وطالما وضع فى حدث الورك بوك فيكون قابل للتنفيذ على جميع الشيتات الموجوده فى الورك بوك وليس على شيت بعينه لكتابة الكود داخل حدث الورك بوك ندخل الى محرر الاكواد ثم نضغط على ThisWorkbook مرتين ثم ندخل الى نافذة محرر الاكواد ونكتب فيها الكود Workbook_Open هنا يتم تنفيذ الامر عند فتح الملف شكل الكود Private Sub Workbook_Open() End Sub Workbook_BeforeClose هنا يتم تنفيذ الامر قبل غلق الملف شكل الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub Workbook_BeforeSave هنا يتم تنفيذ الامر قبل حفظ الملف شكل الكود Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub Workbook_SheetActivate هنا يتم تنفيذ الامر عند التنقل بين اوراق الملف شكل الكود Private Sub Workbook_SheetActivate(ByVal Sh As Object) End Sub Workbook_AfterSave هنا يتم تنفيذ الامر بعد حفظ الملف شكل الكود Private Sub Workbook_AfterSave(ByVal Success As Boolean) End Sub Workbook_SheetBeforeDoubleClick هنا يتم تنفيذ الامر كلما يتم الضغط على زر الماوس الايسر مرتين فى كل اوراق الملف شكل الكود Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) End Sub Workbook_SheetBeforeRightClick هنا يتم تنفيذ الامر كلما يتم الضغط على زر الماوس الايمن فى كل اوراق الملف شكل الكود Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) End Sub Workbook_NewSheet هنا يتم تنفيذ الامر كلما يتم اضافة ورقه جديده شكل الكود Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub Workbook_SheetChange هنا يتم تنفيذ الامر عند حدوث تغير فى اى ورقه من اوراق العمل شكل الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) End Sub Workbook_SheetSelectionChange هنا يتم تنفيذ الامر عند حدوث تغير فى نطاق المحدد فى اى ورقه من اوراق العل شكل الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) End Sub انتهينا من معظم احداث الورك شيت ............................................... طبعا فى كتير بيسأل دلوقتى احنا استفدنا ايه من الاكواد دى ولو عايزين نستخدمها هنستخدما ازاى امثـلـــــــــــــــــــــــه عـمـلـيـــــــــــــــــــــه Worksheet_SelectionChange نفترض اننا عايزين حينما يتم التنقل فى الخلايا من a3:a10 يتم ادخال رقم الصف فى الخليه المقابله فى العمود2 يعنى لما ننتقل الى الخليه a3 يتم كتابة رقم الصف فى الخليه b3 ولما ننتقل فى a4 يتم ادخال رقم الصف فى b4 وهكذا كيف نستطيع ان نقوم بعمل ذلك جرب استخدام الكود الاتى Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 10 Then Exit Sub ' فى حالة ان السطر اكبر من 10يتم الخروج من الكود وعدم تنفيذ شئ If Target.Column = 1 Then 'فى حالة العمود الاول If Target.Row >= 3 Then 'فى حالة ان السطر اكبر من او يساوى السطر3 Target.Offset(0, 1).Value = Target.Offset(0, 0).Row ' يتم اعطاء الخليه التى تلى خلية ادخال البيانات بعمود رقم السطر الحالى End If End If End Sub Worksheet_Change نفترض اننا عايزين حينما يتم الكتابه فى الخلايا من a3:a10 يتم ادخال رقم الصف فى الخليه المقابله فى العمود2 يعنى لما نكتب فى الخليه a3 يتم كتابة رقم الصف فى الخليه b3 ولما نكتب فى a4 يتم ادخال رقم الصف فى b4 وهكذا كيف نستطيع ان نقوم بعمل ذلك جرب استخدام الكود الاتى Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Row > 10 Then Exit Sub ' فى حالة ان السطر اكبر من 10يتم الخروج من الكود وعدم تنفيذ شئ If Target.Column = 1 Then 'فى حالة العمود الاول If Target.Row >= 3 Then 'فى حالة ان السطر اكبر من او يساوى السطر3 Target.Offset(0, 1).Value = Target.Offset(0, 0).Row ' يتم اعطاء الخليه التى تلى خلية ادخال البيانات بعمود رقم السطر الحالى End If End If End Sub Worksheet_Activate نفترض اننا عايزين اول ما ندخل على الشيت رقم 3 يتم ظهور رسالة ترحيب كيف يتم عمل ذلك جرب وضع الكود الاتى فى حدث الشيت رقم 3 Private Sub Worksheet_Activate() MsgBox "ابراهيم محمد" End Sub Worksheet_Deactivate نفترض اننا عايزين او ما نخرج من الشيت رقم3 ونروح لاى شيت اخر يتم ظهور رسالة ترحيب كيف يتم عمل ذلك جرب وضع الكود الاتى فى حدث الشيت رقم 3 Private Sub Worksheet_Deactivate() MsgBox "ابراهيم محمد" End Sub Worksheet_BeforeDoubleClick نفترض اننا عايزين لما نضغط فى دبل كليك فى العمود الاول فقط تظهر لنا رسالة ترحيب كيف يتم عمل ذلك جرب وضع الكود الاتى فى حدث الشيت رقم 3 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 1 Then Exit Sub If Target.Column = 1 Then MsgBox "ابراهيم محمد" End If End Sub هذا على سبيل المثال يمكنك اضافة الاكود التى تريدونها على حسب احتياجكم اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

السلام عليكم ورحمة الله وبركاته التنسيقات الرقمية المخصصة تنسيق الارقام السالبة باللون الاحمر ووضعها بين قوسين تقبلوا منى تحياتى وتقديرى تنسيق رقمى سالب(1).rar

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

برنامج محاسبي بسيط جدا لا يوجد كلمة مرور على البرمجة Alkamel.zip

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

السلام عليكم استاذ محمود هذا كود انا استخدمة في عملي من اكواد الاستاذ " سليم حاصبيا " ادخال رقم. . استاذ ياسر كود جميل اضفته لمكتبتي Option Explicit Sub ConvertAll() Dim I As Long For I = 7 To Cells(Rows.Count, "F").End(xlUp).Row If Cells(I, "F") = 1 Then Cells(I, "F") = "الأولى" ElseIf Cells(I, "F") = 2 Then Cells(I, "F") = "الثانية" ElseIf Cells(I, "F") = 3 Then Cells(I, "F") = "الثالثة" ElseIf Cells(I, "F") = 4 Then Cells(I, "F") = "الرابعة" ElseIf Cells(I, "F") = 5 Then Cells(I, "F") = "الخامسة" ElseIf Cells(I, "F") = 6 Then Cells(I, "F") = "السادسة" ElseIf Cells(I, "F") = 7 Then Cells(I, "F") = "السابعة" ElseIf Cells(I, "F") = 8 Then Cells(I, "F") = "الثامنة" ElseIf Cells(I, "F") = 9 Then Cells(I, "F") = "التاسعة" ElseIf Cells(I, "F") = 10 Then Cells(I, "F") = "العاشرة" Else Cells(I, "F") = Cells(I, "F") End If Next I End Sub

أخي الكريم مصطفى كان من الممكن بعد أن تضع المعادلة أن تنسخ النتائج ثم تقوم بلصق خاص في العمود F ثم لصق القيم عموماً تفضل الكود التالي عله يفي بالغرض Option Explicit Sub ConvertAll() Dim I As Long For I = 7 To Cells(Rows.Count, "F").End(xlUp).Row If Cells(I, "F") = 1 Then Cells(I, "F") = "الأولى" ElseIf Cells(I, "F") = 2 Then Cells(I, "F") = "الثانية" ElseIf Cells(I, "F") = 3 Then Cells(I, "F") = "الثالثة" ElseIf Cells(I, "F") = 4 Then Cells(I, "F") = "الرابعة" ElseIf Cells(I, "F") = 5 Then Cells(I, "F") = "الخامسة" ElseIf Cells(I, "F") = 6 Then Cells(I, "F") = "السادسة" ElseIf Cells(I, "F") = 7 Then Cells(I, "F") = "السابعة" ElseIf Cells(I, "F") = 8 Then Cells(I, "F") = "الثامنة" ElseIf Cells(I, "F") = 9 Then Cells(I, "F") = "التاسعة" ElseIf Cells(I, "F") = 10 Then Cells(I, "F") = "العاشرة" Else Cells(I, "F") = Cells(I, "F") End If Next I End Sub Convert Numbers YasserKhalil.rar

السلام عليكم أخى العزيز الصقر .. بالنسبة لطرق ملء الكمبوبوكس عن طريق المصفوفات ، انت كنت كتبت الكود ده Private Sub UserForm_Initialize() Dim a As Variant a = Array("سند قبض", "سند صرف") For i = LBound(a) To UBound(a) ComboBox1.AddItem a(i) Next End Sub وملاحظتى اننا من الممكن ان نستغنى عن الدوائر التكرارية ونعملها فى خطوة واحدة وفى الحالة دى هنوفر وقت كتير لو كانت المصفوفة كبيرة Private Sub UserForm_Initialize() Dim a As Variant a = Array("سند قبض", "سند صرف") ComboBox1.List = a End Sub

اللهم امين بارك الله فيك اخى الاستاذ حليم عمار

السلام عليكم اخوانى اعضاء المنتدى واساتذة الأكسل الأجلاء لفت انتباهى اثناء مشاركتى فى الردود أو قراءة البرمجيات او الشروح الجميلة لبعض الأساتذة الاجلاء عدم الاهتمام بالتسميات المناسبة ولى رأيي فى هذا الموضوع وهو ما قرأته فى العديد من كتب ومراجع البرمجة واتمنى إذا أعجبكم ان تطبقوه وتحدثوا شروحاتكم المتعلقة به مثلا لكل كود برمجى يفضل ان يكون اسم الكود معبرا عن وظيفته مثل "Move_Data" "Get_Data" ...... بما يسهل على من يتابع الاكواد أو يتعلم منها معرفة الوظيفة مبدئيا لكل كود وايضا عند استعمال الفورم من الافضل ان تغير من مسميات عناصر الفورم وفى هذة الحالة يجب ان يتكون الأسم من جزئين الجزء الأول بادئة مختصرة تعبر عن نوع الكنترول مثل txt للتعبير عن textbox او cmd للتعبير عن commandbutton اما الجزء الثانى فيعبر عن محتوى او وظيفة هذا العنصر مثل ان يكون هناك txtFirstName ، للتعبير عن انها تحتوى الاسم الاول مثلا ، وكمثال اخر cmdUpdateData للتعبير عن زرار cmd وظيفته تحديث البيانات أو cmdClearText هو زرار لتنظيف الحقول النصية وهكذا (تخيل انك لديك العديد من عناصر التحكم TextBox1 , TextBox2 ,TextBox3 , ,jv وتريد ان تعرف ايهما يمثل الاسم الاول و أيهما الاسم الاخير .... اثناء كتابة الكود وبدون ان تنظر الى الفورم ...... وحتى إذا أضفت شكل مربع او دائرى فى شيت الاكسل يجب تطبيق نفس القواعد للدلالة على وظيفته والرابط المدرج به قائمة بالبادئات المفضلة لعناصر التحكم https://msdn.microsoft.com/en-us/library/aa263493(v=vs.60).aspx ما الفائدة : الفائدة فى التقيد بهذة البادئات هو انك عندما تستعملها إضافة الى الوظيفة تسهل على كل من يقرأ البرمجية ان يفهمها بسرعه ويتابع التعديل فيها كطاقم عمل وذلك حالنا هنا فى المنتدى فريق واحد فيجب ان نتكلم لغة واحدة يسهل للجميع فهمها من اول لحظة.

جزاك الله خيرا وجعلها في مبزان حسناتكم ان شاء الله

شكرا اخ ياسر نعم هذا هو المطلوب تقبل تحياتي

جرب تستبدل الفراغ الموجود في آخر المعادلة بهذا الجزء عله يكون المطلوب ATTENDANCE!H9

جزاك الله خيرا يا ابو محمد

أخي الكريم وليد ممكن تستخدم الدالة IFERROR التي تتعامل مع الأخطاء بهذا الشكل =IFERROR(Formula,"") كلمة Formula شيلها وضع مكانها معادلتك التي ينتج عنها خطأ .. مثال عملي من ملفك في الخلية I6 =IFERROR(IF((ATTENDANCE!J9-ATTENDANCE!H9)+(ATTENDANCE!I9-ATTENDANCE!K9)>=8,8,(ATTENDANCE!J9-ATTENDANCE!H9)+(ATTENDANCE!I9-ATTENDANCE!K9)),"") إذا لم تعمل المعادلة قم باستبدال الفاصلة بفاصلة منقوطة تقبل تحياتي

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

الاخوة الافاضل فى هذا الصرح العظيم يا شباب ده الملف بعد التطوير تم تغيير الفكره كليا وجزئيا وقمت باستخدم Match مع index لتقلل حجم المعادله مرفق ملف يمكنك كتابة اى رقم من 1 الى 10000 وشاهد التفقيط بالعربى يعنى اربع ارقام فقط وجارى تطوير المعادله لتشمل خمس ارقام يمكن نقل قاعدة البيانات اللى بتعتمد عليها المعادله الى اى ملف خاص بك ويمكن استخدام المعادله فى اى خليه مع تعديل فقط فى المعادله الخلية اللى بها الرقم تقبلوا تحياتى تـفقيط معادلات.zip

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

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

ياخال انا شغال في اي حاجه دايس في اي حاجه اعمل موضوع عن اسعار الخضار هتلاقيني راشق في المكان

معلش حبيبي كنت بغش بسرعه واتلغبط تفضل =OFFSET(sheet1!$D$2;0;0;COUNTA(sheet1!$D$2:$D$10000);2) aseel.rar

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

الاخوة الزملاء بناء على طلب الاخ ياسر خليل بعمل فيديو يشرح فيه البرنامجين اليك الشرح اضغط على الرابط https://www.youtube.com/watch?v=F0szUmnIEkc&feature=youtu.be ملحوظة تم اضافة مجموعة صور اخرى وملف اكسل للايات القرانية المنفذة على الاكسل فى الصفحة الثانية صورتى بعد الانتهاء من الشرح

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

أخي الكريم حسام السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً

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

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

بارك الله فيك و جزاك الله عنا كل الجزاء

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

الطريقه الثالثه :- استخدام النطاقات المعرفه بدالة Offset فى عمل نطاق ديناميكى متغير اليكم الرابط التالى للقدير واستاذى الفاضل / محمد نصرى يشرح فيه الداله offset بطريقه رائعه http://www.officena.net/ib/topic/56588-سلسلة-تعلم-اكسل-معي-بالصوت-والصورة/?do=findComment&comment=358921 تحديدا الفيديو الثانى هو اللى مرتبط بموضوعنا وبعد ما تشاهد الفيديو ارجع لشرحى المتواضع وهتعرف ليه قلتلك افهم الداله Offset وهذا شرحى المتواضع عن الداله offset الداله Offset هى من اهم الدوال فى الاكسيل انا شخصيا لما بتعامل معها بحس انى مهندس مساحه دلوقتى هنعرف ما هى داله offset وازاى نستفيد بيها فى عمل نطاق ديناميكى معرف يتم استخدامه فى تعبئة الكمبوبوكس بالبيانات هقولك ما هى الداله offset بلغة المصطبه واحنا قاعدين كدا نشرب كوباية شاى فى الخمسينه ازاى بقى نطبق الكلام ده فى الاكسيل شوف الصوره دى الاول وبعدين نكمل زى ما شايفين بالصوره وقفت بالخلية G8 وعملت الداله offset فهى مكونه من خمس اقسام 1- reference : - وهو مرجع العمل يعنى تحديد مركز انطلاق العمل وهو كما بالصوره A2 لانها اول خلية بالجدول المظلل باللون الاخضر فأنا حدد A2 لتكون مركز انطلاق العمل 2- rows : - وهى تعنى الصفوف ومن خلالها يتم تحديد صف بداية العمل يعنى اتحرك كم صف من نقطة المركز اللى هى A2 ( هنا بالمعادله كتبت 0 يعنى لا تتحرك اى صف من الخلية A2 3- Cols: - وهى اختصار كلمة Colmuns تعنى العمود ومن خلالها يتم تحديد عمود بدابة العمل يعنى اتحرك كم عمود من نقطة المركز اللى هى A2 ( هنا بالمعادله كتبت 0 يعنى لا تتحرك اى عمود من الخلية A2 ) 2 و 3 يتم من خلالهم تحديد نقطة بداية العمل 4- height: - وهى تعنى ارتفاع ومن خلالها يتم تحديد كم صف نريده للاستخدام ( هنا بالمعادله كتبت 6 يعنى اجلب لى 6 صفوف بدأ من الخلية A2 ) 5- width: - وهى تعنى عرض ومن خلالها يتم تحديد كم عمود نريده للاستخدام ( هنا بالمعادله كتبت 1يعنى اجلب لى عمود واحد بدأ من الخلية A2 ) 4 و 5 يتم من خلالهم تحديد كم صف وكم عمود نريده للاستخدام الكلام ده هيتضح لك اكتر لانه اذا عرف السبب بطل العجب انسخ المعادله اللى كتبناه بالخلية G8 واتبع التعليمات اللى بالصوره وبكدا عرفنا نطاق شوف الخطوه اللى بعد كدا شاهد الصوره وبكدا عند عرض الفورم شاهد النتيجة واحد هيقولى وليه يا عم اللفه الطويله دى انا مش شايف فرق بينها وبين الطريقه التانية اللى شرحتها قبل كدا هى نفس الفكره فى تعريف النطاق ومن ثم كتابته فى Rowsource يعنى دلوقتى لو حبينا نضيف اسم جديد فى الخلية A8 مش هيظهر فى الكمبوبوكس وانت قلتلى انه نطاق ديناميكى يكبر ويصغر حسب الادخالات فى العمود A هقوله برافو عليك انك صاحى معايا تعالى بقى اقولك ايه الفرق بينها وبين الطريقه التانية هو انى بدل ما انا محدد عدد 6 صفوف فى المعادله offset هستعين بداله Count A وهى تعمل على عد الخلايا اللى بها كتابه فى نطاق معين =COUNTA(A2:A10000) لو عملنا المعادله دى فى اى خليه هيقوم بعد الخلايا اللى بها بيانات فى النطاق من A2 الى الخلية A10000 مثلا طبعا النتيجة طبقا للصوره السابقه هتكون 6 ولكن لو قمت باضافه اسم جديد هتكون النتيجة 7 أذن اروح للداله Offset واتحكم فى عدد الصفوف من خلال Count A هتكون المعادله كدا =OFFSET($A$2;0;0;COUNTA($A$2:$A$10000);1) لاحظ الفرق بينها وبين المعادله السابقه استبدلنا رقم 6 بالمعادله هننسخ المعادله دى ونروح نعدل النطاق اللى عرفناه قبل كدا وبكدا ضيف اى اسماء عملاء جديده او احذف اى اسماء موجوده وشاهد الكمبوبوكس سوف يتم عرض الاسماء الموجوده فقط دون زياده او نقصان شاهد الصوره واحد هيقولى انت كدا علمتنى ازاى اتحكم فى عدد الصفوف لتكون تلقائيه حسب عددها بالشيت طيب ازاى اتحكم فى عدد الاعمده انا شايف الكمبوبوكس بيظهر عمود 1 انا عايزه يظهر عمودين ازاى التحكم فى المعادله دى المعادله اللى موجوده دلوقتى =OFFSET($A$2;0;0;COUNTA($A$2:$A$10000);1) وعلشان تتحكم فى عدد الاعمده غيرها الى =OFFSET($A$2;0;0;COUNTA($A$2:$A$10000);2) اللى مركز معايا هيلاحظ الفرق بين المعادلتين فى اخر جزء من المعادله وهو عدد الاعمده غيرت بدل من عرض عمود 1 الى عمودين 2 طبعا علشان تغيرها لازم تروح الى قائمة Name Manager وتعمل تحرير للنطاق وتغير المعادله بدل من عمود واحد الى عمودين وطالما عايز تعرض عمودين متنساش زى ما قلنا قبل كدا تكتب 2 فى الخاصيه Column Count شاهد الصوره عند تغيير المعادله علشان تثبت المعلومه فى راسك لازم تجرب الكلام ده عملى بنفسك اتمنى يارب اكون وفقت بالشرح واتمنى لكم التوفيق والى لقاء اخر فى طريقه جديده من طرق تعبئة الكمبوبوكس بالبيانات

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

تفضل أخى الكريم Translation of names.rar