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

الطريقه الحاديه عشر :- تعبئه الكمبوبوكس بأستخدام المصفوفه ويتم ترتيبها ابجديا اولا ثم تعبئة الكمبوبوكس هذه الطريقه للاستاذ القدير / ياسر خليل تفضل بها علينا وارسلها لى على الخاص الكود مشروح جاهز Private Sub UserForm_Initialize() 'يوضع الكود في حدث الفورم ويقوم بعمل قائمة كومبوبوكس مميزة في عناصرها ومرتبة أبجدياً 'تعريف المتغيرات Dim A, E 'مسح محتويات الكومبوبوكس ComboBox2.Clear '[Sheet1] بدء التعامل مع ورقة العمل المسماة برمجياً With Sheet1 'ليحمل قيم النطاق في العمود الثاني أي أنها تعتبر مصفوفة بكل القيم في هذا النطاق [A] تعيين قيمة للمتغير A = .Range("B2", .Range("B" & Rows.Count).End(xlUp)).value End With 'بدء التعامل مع المصفوفات With CreateObject("System.Collections.ArrayList") '[Aِ] من عناصر المصفوفة [E] عمل حلقة تكرارية لكل عنصر For Each E In A 'إذا كان العنصر لا يساوي فراغ ولا يوجد عنصر مماثل في المصفوفة أي يتم التعامل مع القيم الفريدة If (E <> "") * (Not .Contains(CStr(E))) Then 'يتم إضافة العنصر إلى المصفوفة الجديدة التي تحتوي على قيم فريدة غير مكررة .Add CStr(E) End If Next 'ترتيب عناصر المصفوفة الجديدة تصاعديا .Sort 'إضافة عناصر المصفوفة الجديدة للكومبوبوكس ComboBox2.List = .ToArray End With End Sub لو حضرتك عايز الترتيب يكون من ( تنازليا ) فقط غير هذا السطر .Sort الى .Sort: .Reverse تقبلوا تحياتى

اخى الكريم الكود يعمل تمام شاهد الملف المرفق مسافه بادئه للتكست.zip

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

اعزائي واخواني اعضاء المنتدى الرائد اقدم اعتذاري للانقطاع المؤقت والذي لن يدوم طويلا وذلك لانشغالي قليلا متمنيا للجميع التوفيق والسداد ! تحياتي للجميع

أخي الكريم أيمن هل اشتغل معك الكود بشكل جيد ؟؟؟ أشك في النتائج ... راجع الملف مرة أخرى ... أخي الغالي ياسر العربي .. ركز معايا في اللي جاااااي إنت بتقول المشرفين بيقفشوا على Activate أو Select .. اتفضل القفش في الكود القفشة الأولى زي ما أبطلت تحديث الشاشة كان عليك ترجع الإعدادات مرة تانية وتشغل الخاصية في النهاية Application.ScreenUpdating = True القفشة التانية عند نسخ الكود .. هناك خطأ في هذا السطر لديك aseel = WorksheetFunction.CountA(Sheets("تحويل داخلي).Range("a5:a9999")) + 4 حضرتك نسيت أقواس التنصيص عشان تقفل اسم ورقة العمل القفشة التالتة في نفس السطر الل فوق ..دا كدا بيجيب آخر صف به بيانات ..يعني لما تيجي تلصق البيانات فيه آخر سطر سيتم اللصق عليه (قفشة في الجون) وليه اللفة الطويلة دي واستخدام دالة Counta وتزود عليها 4 كان ممكن يكون السطر بهذا الشكل أفضل aseel = Sheets("تحويل داخلي").Cells(Rows.Count, "B").End(xlUp).Row + 1 القفشة الرابعة بدلاً من أن تكتب وتشير إلى ورقة العمل Sheets("تحويل داخلي") الأفضل الإعلان عن متغير باسم ورقة العمل مرة في أول الكود لسهولة استخدام المتغير بمعنى أن تضع في أول الكود هذين السطرين Dim SH As Worksheet Set SH = Sheets("تحويل داخلي") وبعد ذلك يمكنك استخدام المتغير SH القفشة الخامسة حضرتك بتتسخدم أسماء أشخاص في المتغيرات ودا شيء مش مستحب لأن اسم المتغير بيعبر عن وظيفته في الغالب (دا أفضل) ..صحيح مش قفشة صحيحة بنسبة 100% ، ولكن أنا بكلم واحد محترف ، يعني لازم تستخدم اسماء في المتغيرات تعبر عن المتغير وعن نوعه كمان يعني مثلاً المتغير mohamed المفروض إنه بيجيب رقم آخر صف في ورقة العمل اللي فيها الكود ... كان ممكن نسميه lRow (حرف الـ l اختصار للنوع Long .. أو لو حبيت تستخدم Integer يبقا iRow) .. والمتغير المسمى aseel المفروض بيعبر عن آخر صف في ورقة العمل "تحويل الداخلي" أو على الأدق أول صف فارغ بعد آخر صف به بيانات ... ممكن تسميه iRowTar أي آخر صف في الورقة الهدف (الورقة الهدف : الورقة المراد الترحيل إليها) القفشة السادسة يفضل أيضاً الإشارة إلى ورقة العمل الحالية .. عشان تقدر تنفذ الكود من أي مكان تاني (لأن الكود بهذا الشكل مينفعش يتنفذ غير وإنت واقف في ورقة العمل Sheet1 فالأفضل تعيين متغير تاني لورقة العمل الأولى عشان تقدر تنفذ الكود من أي مكان زي ما قلت فيكون بهذا الشكل أيضاً .. Dim WS As Worksheet Set WS = Sheets("Sheet1") والأفضل كمان إنك تستخدم الاسم البرمجي بدلاً من اسم ورقة العمل ، نظراً لأن المستخدم قد يرغب في كثير من الأحيان إلى تغيير اسم ورقة العمل ، بالتالي راعي هذه النقطة أيضاً القفشة السابعة السطر التالي ايه لازمته ...عايز أعرف ايه الفايدة منه بعد انتهاء أسطر الكود aseel = aseel + 1 ملوش لازمة إلا لو كنت داخل حلقة تكرارية مثلاً وتريد زياد رقم الصف بمقدار واحد شفت إزاي ممكن كود صغير نقفش منه سبع قفشات ... قول ورايا : خشب السقف سبع خشبات واتمسكت بسبع قفشات (قولها 10 مرات) تقبل تحياتي أخوك وحبيبك أبو البراء الكود بالشكل النهائي يمكن أن يكون بهذا الشكل ... Sub Rectangle1_Click() Dim WS As Worksheet, SH As Worksheet Dim lRow As Long, lRowTar As Long Set WS = Sheet1: Set SH = Sheet5 lRow = WS.Cells(Rows.Count, "A").End(xlUp).Row lRowTar = SH.Cells(Rows.Count, "A").End(xlUp).Row + 1 Application.ScreenUpdating = False WS.Range("A2:H" & lRow).Copy SH.Range("A" & lRowTar).PasteSpecial Paste:=xlPasteValues Range("A1").CurrentRegion.Offset(1).ClearContents Application.ScreenUpdating = True End Sub

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

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

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

استاذى الحبيب مرحبا بك فى جامعه اوفيسنا بعد ان اطلعت على صفحتك الشخصية بالمنتدى فلقيت ان حضرتك مدير مالى فما رائيك تجربة هذا البرنامج http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/ شوف هيعجبك او لا فيه كل اللى انت عايزه تقريبا لو عجبك البرنامج قولى وانا ابعتلك احدث نسخه له ولو مش عجبك مفيش مشكله انا او غير من الاعضاء بالمنتدى لو عندنا متسع من الوقت لن نبخل عليك ولكن نصيحه من اخ لك اطلب طلب طلب حتى يسهل لمن يريد المساعده تقديم يد العون لك ملحوظه على الهامش تاريخ اشتراك بالمنتدى من شهر 4 والان بشهر 10 يعنى ست شهور بالمنتدى ودى اول مشاركه لك بالمنتدى وكما تفضلت وقلت انك استفد كتير من المنتدى لم يخطر ببالك ولو مره تكتب اى تعليق على اى مشاركه انت استفد منها ومريت عليها عملتلك اول طلب كدا على السريع فى شيت المبيعات طلبك بخصوص الكمية المتاحه فى الخلية D4 قم بنسخ المعادله التالية واسحبها نزول للاسفل وشاهد النتيجة ستجد ان الكمية تتناقص عند بيع كمية =LOOKUP(C4;'قائمة الاصناف'!$B$4:$B$1000;'قائمة الاصناف'!$E$4:$E$1000)-SUMIFS($F$3:F3;$C$3:C3;C4) تقبل تحياتى

أخي الحبيب عمرو مشكور على مرورك العطر وكلماتك الطيبة أخي الحبيب أبو يوسف ماذا لو زادت الأرقام عن ثلاثة أرقام ؟ .. أمر آخر لما الضغط على Ctrl +Shift + Enter (هذه ليست معادلة صفيف) أرجو أن تتقبل النقد بصدر رحب .. وكلنا نتعلم من بعضنا البعض أبي الغالي عموماً هذه دالة معرفة بسيطة تؤدي الغرض إن شاء الله Function GetNumber(myStr As String) myStr = Replace(myStr, "المبلغ النهائي", "") GetNumber = Val(Split(Application.Trim(myStr))(1) & "." & Split(Application.Trim(myStr))(0)) End Function Tee V2.rar

السلام عليكم أخي الكريم معادلة الأستاذ ياسر عدلت عليها رقمين فقط بعد إذنه.. =VALUE(RIGHT(TRIM(SUBSTITUTE(A145;"المبلغ النهائي";""));3)&"."&LEFT(TRIM(SUBSTITUTE(A145;"المبلغ النهائي";""));3)) يرجى أن تكون مناسبة

أخي الكريم أبو جيداء ضع معادلة الصفيف التالية في الخلية H5 ثم اسحبها عبر الصفوف والأعمدة لا تنسى بعد إدراج المعادلة الضغط على Ctrl + Shift + Enter =SUM(IF(FREQUENCY(IF($B$2:$B$12=$G5,IF($C$2:$C$12=H$4,MATCH($A$2:$A$12,$A$2:$A$12,0))),ROW($A$2:$A$12)-ROW($A$2)+1),1)) تقبل تحياتي

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحببت أن أضع هذا الموضوع بين أيديكم ليكون مرجعاً لمن أراد معرفة بداية الطريق في التعامل مع محرر الأكواد والبرمجة الموضوع لن يطول فيه الكلام ، سأدع الصور تتحدث وتوصل المعلومة ، حتى تكون المعلومة أثبت للمتعلم حل مشكلة ظهور . رسالة تحذير الخصوصية عند حفظ المصنف كان معكم طائر البطريق من منتدى أوفيسنا العريق دمتم على طاعة الله Download VBE Basics

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

الاخوة الكرام فى هذا الصرح العظيم بناء على طلب للاخ " المارد العراقى " على هذا الرابط http://www.officena.net/ib/topic/64162-موضوع-خاص-بالردود-والاستفسارات-واسئله-اختبارات-على-شروحات-الفورم-سلسلة-علمنى-كيف-اصطاد/?do=findComment&comment=418485 قمت بعمل طلبه وحبيت يكون فى موضوع مستقل حتى تعم الفائده ويكون سهل فى الوصول اليه من خلال البحث فيما بعد الطلب كان السلام عليكم أستاذ عندي 3 (textbox) الاول يحتوي على تاريخ اليوم والثاني يحتوي تاريخ الشهر والثالث تاريخ السنه بالميلادي و عندي تكست رابع اريد ان اجعل التاريخ في التكست الرابع يمثل تاريخ التكست الثلاثه السابقه ولكن بالهجري بأستخدام اليوزر فورم دون الرجوع او استخدام الخلايا في الاكسل على سبيل المثال التكست الاول يساوي 22 الي هو اليوم ولثاني يساوي 2 الي هو الشهر والثالث يساوي 2000 كيف اجعل التكست الرابع يساوي ( 18 / 11 /1420) الي هوه التاريخ الهجري لتلك السنه بواسطة vba فقط دون استخدام خلايا الاكسل ؟؟ مرفق ملف به ما تريد الملف الاول تحويل التاريخ من يوم وشهر وسنة تحويل التاريخ من ميلادى الى هجرى على الفورم.zip الملف الثانى تحويل التاريخ بنفس التكست تحويل التاريخ من ميلادى الى هجرى على الفورم - Copy.zip تقبلوا تحياتى

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

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

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

الامر بسيط جدا خطأ الكود هو حرف i ir = [A100000].End(xlUp).Row المفروض احنا عرفناه علي اساس انه l وليس i الصح نخليه كدا lr = [A100000].End(xlUp).Row تفضل يوميه مخازن.rar

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

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

أخي الكريم إيهاب الغريب طبعاً الملفات بهذا الشكل لا تعجبني (دا مجرد رأيي الشخصي ) ..اسألني ليه ؟ بقولك اسألني ليه؟ مش سامعك كويس بص يا أخ إيهاب لما تيجي تنسق ورقة عمل تنسق الجزء اللي فيه بيانات بس مش تنسق ورقة العمل بالكامل لأن دا هيخلي الملف تقيل جداً من غير داعي لاحظت إنك مثلاً مسطر لحد آخر عمود في الشيت ..طيب ليه ؟ هل التنسيق غير مقصود أم مقصود؟ طبعاً دا ممكن يكون سبب في عدم استجابة الأعضاء للموضوع سيبك من الرغي اللي ملوش لازمة (بكلم نفسي) بص يا سيدي ..طبعاً تم تحويل المصنف المسمى 2 إلى امتداد xlsm ليقبل الأكواد (دي اول نقطة) في الكود عملت إبطال لتحديث الروابط عشان كل شوية تيجي رسالة عايز تحدث البيانات ولا لا ... !! في الخلية A9 في المصنف المسمى 2 حضرتك طلبت وضع رقم الإدارة ... ضع رقم الإدارة وانقر على زر الأمر Import Data (دا كان الجزء الأول من طلبك) أما الجزء الثاني من طلبك فلم أفهمه بشكل جيد ..يرجى ضرب مثال بشكل النتيجة المتوقعة لتتضح الصورة (اعمل زوووووم على الطلب ZOOM IN مش ZOOM OUT) إليك الكود وأرجو أن يفي بالغرض Sub ImportData() Dim WB As Workbook, AB As Workbook Dim Rng As Range, RngFiltered As Range, R As Range, Area As Range Dim vArray, I As Long Application.DisplayAlerts = False Application.AskToUpdateLinks = False Application.ScreenUpdating = False Set AB = ActiveWorkbook Set WB = Workbooks.Open(ThisWorkbook.Path & "\1.xlsx", UpdateLinks:=False) With AB.Sheets("اطباءوتمريض") .Range("C10:C1000").ClearContents Set Rng = WB.Sheets("بيانات").Range("A1:D" & Sheets("بيانات").Cells(Rows.Count, "D").End(xlUp).Row) Rng.AutoFilter Field:=2, Criteria1:=.Range("A9") On Error Resume Next Set RngFiltered = Rng.Offset(1).Resize(Rng.Rows.Count - 1).SpecialCells(xlCellTypeVisible) On Error GoTo 0 If Not RngFiltered Is Nothing Then ReDim vArray(2 To Rng.Rows.Count, 1 To 1) I = 1 For Each Area In RngFiltered.Areas For Each R In Area.Rows I = I + 1 vArray(I, 1) = R.Cells(4).Value Next R Next Area .Range("C10").Resize(I, 1).Value = vArray End If WB.Close False End With Application.ScreenUpdating = True Application.AskToUpdateLinks = True Application.DisplayAlerts = True End Sub طبعاً الكود خد مني حوالي ساعة عشان أقدر ألبي الجزء الأول من طلبك فمتنسناش بدعوة بظهر الغيب (لا تبخل علينا) Import Data YK.rar

تم معالجة الامر Book2 salim.zip

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

جرب هذا الملف ايضا للقدير استاذى سليم حاصبيا تغيير اللغة اوتوكاتيكياً.rar

وعليكم السلام ورحمه الله وبركاته ولا يهمك اخي الفاضل المهم انك بخير والحمد لله .. تحياتي لك

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

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

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

البيانات على sql عليها كلمة مرور

يعني لما تدخل على sql بعطي خطا او قصدك لما يحاول البرنامج يرحل بعطي خطا؟

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

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

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

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

المطلوب بالملف المرفق انا طبقته وشغال مية بالمية CODE.zip

مبارك عليكما الترقية وأتمنى أن تكون هذه الترقية حافزا لكما لتقديم المزيد مزيدا من التقدم مريدا من العطاء مزيدا من الهمة حتى تصلا إلى القمة التي لن يصلها إلا صاحب الهمة تحياتي

جرب الكود بهذا الشكل حاول أن تبتعد عن تنشيط أوراق العمل أثناء كتابة الكود ..من الأفضل استخدام اسم ورقة العمل في أسطر الكود قم بالإطلاع على الكود وعدل الكود الثاني بنفس الطريقة ..أو يمكن استخدام زر واحد وكود واحد (فقط تغير الخلية F1) Sub قائمة_مستوى_1() Dim R As Integer, RA As Integer, RB As Integer, RC As Integer, FS As Integer Application.ScreenUpdating = False Sheets("قائمة الفصل").Range("C9:J58").ClearContents Sheets("قائمة الفصل").Range("D3") = "المستوى الأول" RA = 9: RB = 9: RC = 9 FS = Sheets("قائمة الفصل").Range("F1") With Sheets("سجل القيد") For R = 9 To 408 If .Cells(R, 6) = "1" And FS = "1" Then .Range("E" & R).Copy Sheets("قائمة الفصل").Range("C" & RA).PasteSpecial xlPasteValues .Range("H" & R).Resize(1, 7).Copy Sheets("قائمة الفصل").Range("D" & RA).PasteSpecial xlPasteValues RA = RA + 1 ElseIf .Cells(R, 6) = "2" And FS = "2" Then .Range("E" & R).Copy Sheets("قائمة الفصل").Range("C" & RA).PasteSpecial xlPasteValues .Range("H" & R).Resize(1, 7).Copy Sheets("قائمة الفصل").Range("D" & RA).PasteSpecial xlPasteValues RA = RA + 1 End If Next R End With Application.ScreenUpdating = True End Sub

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

اخى الكريم قم بتوضيح المطلوب جيداً .. هل تقصد بالتعديل ؟ تعديل البيانات التى ادخلت بالفعل ام تعديل البيانات اثناء كتابه الفاتورة وقبل ترحيلها

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

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

جــــــزاك الله كل خير واتمنى لك دوام الصحة والعافيـــــة

اخى الكريم جرب المرفق هل هو طلبك تقبل تحياتى abduo.zip

تفضل أخى هذا الكود فى حدث الورقة كما تريد Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then On Error Resume Next If Target = "" Then Target.Offset(0, 7) = "" Else Target.Offset(0, 7) = ActiveSheet.Name End If End If End Sub نسخ اسم الورقة1.rar

أستاذ هشام ومنكم نستفيد لقد قمن بتغيير بسيط في الكود السابق ز حيث بدلت السطر Worksheets.Add الى Sheets("Database").Select Sheets("Database").Copy Before:=Sheets(1) وتم المطلوب حيث اصبح لدي حرية التغيير في ورقة Database وعند اضافة عضو جديد سوف يقوم الفورم بأضافة ورقة Database جديده تحتوي على اسم العضو الجديد تجدون مثال في المرفق ولكم خالص الشكر اخوك ابوفيصل تكرار وتسمية شييت محدد.rar

السلام عليكم . كنت عاملة تقرير وفي نهاية التقرير عملت مربع نص وسميته AVRGE أشان يجمع علامات كل طالبه على حدة : =Sum([AVRGE]) الآن عايزه أعمل مربع نص ثاني وليكن TOTAL ومهمته يجمع المجموع الكلي الي موجود في نهاية التقرير AVREG مع الشكر والتقدير للجميع