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

مميز في عرضة www.kutub.info_1804.rar

السلام عليكم تفضل أخى والشكر موصول لأستاذ الأجيال / عبد الله باقشير الذى تعلمنا منه هذه الإبداعات Sub ragab1() Dim i As Integer Dim x As Integer Application.ScreenUpdating = False For i = 10 To 406 Step 4 If Cells(i, "AE").Value = "منتقل" Then x = Cells(i, "AE").Row Range("A" & x & ":AE" & x + 3).EntireRow.Hidden = True End If Next Application.ScreenUpdating = True End Sub Sub Hide_Show() On Error Resume Next Dim XX As Shape Set XX = ActiveSheet.Shapes("إخفاء") With XX.TextFrame.Characters If .Text = "إخفاء منتقل" Then ragab1 .Text = "إظهار منتقل" Else ragab2 .Text = "إخفاء منتقل" End If End With End Sub Sub ragab2() Cells.Rows.Hidden = False End Sub اخفاء صف بشرط.rar

السلام عليكم تفضل أخى تم تعديل بسيط وجعل الكود يعمل عن طريق زر حتى يمكن تنفيذ طلبك جرب وأخبرنى بالنتيجة Sub ragab() Dim c As Range Set sh = Sheets("الخلاصة") LR = Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False sh.Range("A3:E1000").ClearContents For Each c In Range("G4:G" & LR) If Not IsEmpty(c) And c.Text = "تخويل صادر" Or c.Text = "شهيد" _ Or c.Text = "دورة" Or c.Text = "نقل" Or c.Text = "استخدام" Or c.Text = "حماية" Then c.Offset(0, -6).Resize(1, 4).Copy LR1 = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Range("A" & LR1).PasteSpecial xlPasteValues sh.Range("E" & LR1).Value = c End If Next Application.CutCopyMode = False Application.ScreenUpdating = True Set sh = Nothing End Sub المصنف3.rar

كيف استطيع ان اجمع قيم متغيره داخل خليه واحد في اكسل يعني مثال الخليه a1 تتحدث كل دقيقه مثلا يتغير الرقم بداخلها ............ السؤال هل يوجد داله تحسب مجموع الارقام التي تغيرت داخل الخليه هذه اذ كان الجواب نعم ..ياليت تزودونا بها اما اذا كان الجواب لا فاليكم هذه الفكره بقوووووولها بالعامي لاني على قد حالي وانتم ترجموها من خلال معادلات اكسل لتكون واقعا الخليه a1 كانت الساعة 5 سباحا = 10 وفي الساعة 5.01 = 6 و في الساعة 5.02 كانت 3 مفترض يكون المجموع بها = 10+ 6+3 = 19 لو كتبنا معادله تقول احسب قيمة a1 عند الساعة 5 ثم اضف لها قيمة a1 عند الساعة 5.01 ثم اضف لها قيمة a1 عند الساعة 5.02 هذه طريقه رقم 1 او نقول احسب قيمة الخليه a1 عند الساعة 5 ثم احسب كل القيم في اخليه a1 عندما تكون الساعة اكبر من 5 هذه الطريقه رقم 2 او في طريقه ثالثه وهي بوضع شرط انه يتم حساب قيمة الخليه في a1 اذا تغير ت القيمة عن القيمة في الخليه a1 من خلال الفرق الزمني لنفس الخليه a1 ففي الخليه الاولى يكون الوقت 5 وبعدها اكيد سوف يكون ا اكبر من 5 يالله شدو حليكم وترجموها الى داله في اكسل يا حلوووووووووين

هدا ما أريده شكرا و جزاك الله كل خير

أخى الحبيب / محمد أبو البراء جزاك الله كل خير

وعليكم السلام ورحمة الله وبركاته عدد النماذج المفتوحة : CountOpenFrms = Application.Forms.Count السؤال الثاني افتح له مشاركة جديدة

السلام عليكم مشكورين جزاكم الله يرا

شكرا جزيلا أستاذ/ محمد أبو البراء هذا من بعض ما عندكم

رائع استاذ // احمد مرجان دائما موفق بإذن الله تعالى

رائع جدا جدا وجزاكم الله خيرا كثيرا

أخي الحبيب // الاستاذ ناصر سوف اخبرك باهم اسطر في الكود G = 2 ' عمود رقم الجلوس هذا السطر تحتاج ان تضع رقم العمود الموجود فيه رقم الجلوس بمعنى انك اذا كان عمود رقم الجلوس b فان الرقم هو 2 واذا كان c فيكون 3 وهكذا R = 10 اما هذا السطر فقد بينت مراده في المشاركة رقم 11 o11:dn500 هذا السطر خاص بنطاق الذي تريد وضع الدوائر الحمراء فيه Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2 وهذا الجزء خاص بضبط حدود الدائرة الحمراء V.Line.ForeColor.SchemeColor = 10 وهذا الجزء خاص بلون الدائرة فاذا قمت بتغيير اللون الى رقم اخر سيتغير لون الدائرة الحمراء الى لون اخر V.Line.Weight = 3 وهذا الجزء خاص بسمك الدائرة فاذا قمت بتغيير الرقم تغير سمك الدائرة حسب ما تريد رقيعة او سميكة.

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // زمزم سوف اغامر!! في الرد.. واقول ان هذه العملية لا تصلح في عالم الدوال لان الاكسيل يعتبر هذا الامر مرجع دائري..

السلام عليكم جزاك الله كل الخير اخى محمد

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

اخي العزيز شاهد هذا البرنامج لعلة يفي بالغرض. مكتبةsama.rar

السلام عليكم وهذه محاولة أخرى لإثراء الموضوع كود فى حدث الصفحة بمجرد كتابة الكلمة المطلوبة يتم الترحيل Private Sub Worksheet_Change(ByVal Target As Range) Set sh = Sheets("الخلاصة") LR = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False If Not Intersect(Target, Range("G:G")) Is Nothing Then If Not IsEmpty(Target) And Target.Text = "تخويل صادر" Or Target.Text = "شهيد" Or Target.Text = "دورة" Or Target.Text = "نقل" Or Target.Text = "استخدام" Or Target.Text = "حماية" Then Target.Offset(0, -6).Resize(1, 4).Copy sh.Range("A" & LR).PasteSpecial xlPasteValues sh.Range("E" & LR).Value = Target End If End If Application.CutCopyMode = False Application.ScreenUpdating = True Set sh = Nothing End Sub المصنف2.rar

السلام عليكم تفضل أخى Sub ragab() Application.OnTime Now + TimeValue("00:00:20"), "clor" End Sub Sub clor() Randomize x = Int(Rnd(1) * 255 + 1) y = Int(Rnd(1) * 255 + 1) Z = Int(Rnd(1) * 255 + 1) Range("A1").Interior.Color = RGB(x, y, Z) Call ragab Exit Sub End Sub Sub Auto_Open() Call ragab End Sub تغيير لون خلية كل 20 ثانية.rar

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

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