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

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

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

مليون مبارك بالتوفيق للجميع وفقكم الله وسدد خطاكم

السلام عليكم و رحمة الله ..اجعل الكود هكذا Private Sub CommandButton2_Click() Dim ws As Worksheet, b As Boolean, s As String, x As Integer For Each ws In Worksheets For x = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(x) = True Then s = ListBox1.List(x) If s = ws.Name Then y = y & Chr(10) & ListBox1.List(x) End If End If Next x Next ws MsgBox y End Sub

الف مبروك أستاذ

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

المهندس قاسم اعطاك الحل وللوصول لما اشرتم اليه ممكن تعديل بسيط بدلا من تحديد اللون نتحكم في الشفافية والفكرة تتعلق بخاصية BackStyle وهي خاصية تتيح امكانية جعل عنصر التحكم شفاف او عادي ولها قيمتان 0 شفاف 1 عادي وطالما لدينا قيمتان رقيمة فيمكن توظيفهم للوصول للمطلوب الخطوة الاولى نحجز متغير ونجعل المتغير يساوي x = Me.ActiveControl.BackStyle ثم نضع امر يقوم بالمرور على الازرار و تعديل خاصيتها الى شفاف ctl.BackStyle = 0 الخطوة الثانية نضع الشرط If x = 0 Then اي اذا كانت خاصية جميع الازار شفاف نفذ الاتي Me.ActiveControl.BackStyle = 1 Me.f1.Visible = True اجعل خاصية الزر الحالي غير شفاف واظهر النموذج الفرعي وان لم يتحقق الشرط اعكس الامر ربما لا يكون الحل الافضل ولكن اعتقد يؤدي للمطلوب بنفس فكرة العزيز قاسم او على الاقل يحفز الاخرين لتقديم افكار افضل وهذا هدف اي موقع تعليمي تحياتي

الف ألف مبروك

وعليكم السلام ورحمة الله وبركاته أخي العنزي 🙂 تفضل هذه هي الطريقة : والنتيجة : Prog1.rar

وعليكم السلام ..تفضل أخي الكريم Book1.xlsx

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

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

فعلا جيل الطيبين استاذ خالد @مبرمج متقاعد

تفضل اخي Sub Hany() Dim a As Long If Range("a1") = "" Then MsgBox "المرجوا ادخال البيانات" Else Application.ScreenUpdating = False a = ThisWorkbook.Sheets("Data").Range("a1000000").End(xlUp).Row a = a + 1 Feuil2.Select Feuil3.Cells(a, 1) = Range("b1") Feuil3.Cells(a, 2) = Range("a1") Feuil3.Cells(a, 3) = Range("b3") Feuil3.Cells(a, 4) = Range("b4") Feuil3.Cells(a, 6) = Range("b5") Feuil3.Cells(a, 7) = Range("b6") Feuil3.Cells(a, 8) = Range("b7") Feuil3.Cells(a, 10) = Range("b8") Feuil3.Cells(a, 11) = Range("b9") Feuil3.Cells(a, 12) = Range("b10") Range("b1") = "" Range("a1") = "" Application.ScreenUpdating = True End If End Sub تكلفة المخبوزات للحصول على الربح.xlsb

مبارك عليكم الترقية والف مبروك

وعليكم السلام ورحمة الله وبركاته أخي علي 🙂 استخدم دالة weekDay(Date)

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

وعليكم السلام أخي الكريم أعتذر إليك لأنني في الغالب أعتمد على تحديث يدوي للبيانات بدل من التلقائي فلو ضغطت على F9 لتحدثت البيانات لديك إليك هذا الملف مع التحديث التلقائي: test (1).xlsm

استاذي الفاضل Moosak جزاك الله خيرا جعل الله جل وعلا اعمالك في ميزان حسناتك نعم هذا هو المطلوب الله يبارك فيك

جزاك الله خيرا اخى الحبيب ..هو ده المطلوب بالفعل ..زادك الله من فضله وعلمه

تدري ليش أرد عليك ، لأن قلبي دائما يغلب عقلي ولكن في الخير إن شاء الله ، هل حلت مشكلتك؟

يمكنك اخي فعل دالك بتعديل بسيط في هدا السطر c.Offset(0, -19).Value = Format(x, "0") قم باضافة رقم 1 بدل الصفر c.Offset(1, -19).Value = Format(x, "0")

وعليكم السلام ورحمة الله وبركاته 🙂 استخدم داله Dlast.. Nz(Dlast("[fieldName]";"[TableName]"))+1

أخي الكريم ..عدل المعادلة كما يلي: =RANK(B6;$B$6:$B$28;0) المصنف1 (1).xlsb

ربنا يوفقك ويسددك

اهلا وسهلا بحضرتك .شرفتنا

وعليكم السلام ورحمه الله وبركاته بارك الله فيك اخى AbuuAhmed بارك الله فيك اخى ابويوسف محمد حسن المحمد بارك الله فيك اخى المشرفي بارك الله فيك اخى ابراهيم الحداد بارك الله فيكم اخوانى واساتذتى جميعا واسأل الله تعالى أن يجعلنا جميعا في خدمة العلم النافع ، وأن يجعله بميزان حسناتنا جميعاً يوم القيامة آمين يارب العالمين

السلام عليكم ..أخي الكريم هذه محاولة أرجو أن تكون مفيدة test.xlsm

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

الف مبروك و مرحبا بك أخي حسونة 💐