عبدالله باقشير

السلام عليكم بامكانك استخدام المعادلات شاهد المرفق Desktop.rar

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

السلام عليكم لقد قمت بدمج جميع الثلاثة المواضيع في هذا الموضوع ===================================== تم التعديل على المرفق ARM_SSH3.rar

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

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

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

السلام عليكم لماذا لا تضع طلباتك هنا ؟ وستجد الكثيرين من يردون عليك (ان كان العمل محدودا وفي ظل الامكانيات المتوفرة لصاحب الرد) اما عن طريق الميل قد تجد من يرد عليك وقد لاتجد من يرد عليك فايهم احسن اما اذا كان العمل خاصا وكبيرا وتريد ان تعطي من يقوم به مردود مالي فهذ شانك ولك حرية التصرف.

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

السلام عليكم ممكن انا عملت الرسم البياني في شيت واحد من اجل تستفيد من الاعمدة اذا اردت زيادة نطاق التوقيت بزيادة الاعمدة المستخدمة هذا لوكنت تستخدم اوفيس 2003 ----------------------------- اولا يجب ملاحظة ان تنسيق خلية التوقيت يجب ان يكون نصا(في ملف الكود) ومن اجل نسخ التوقيت : اكتب التوقيت الاول في خلية ثم اكتب التوقيت في الخلية اللي بعدها بزيادة عدد الدقائق التي تريد ثم اسحب الخليتين على باقي الخلايا لاستكمال توقيت دقيقة واحدة فقط ثم كرر نفس العمل للقائق الاخرى يعني لو كتبت في خلية مثلا: 01:05 وتريد زيادة خمس دقائق اكتب في الخلية الثانية 01:10 ثم اسحب الخليتين الى التوقيت 01:55 ثم كرر العملية لباقي الدقائق ----------------------------- و دي مش عارف احلها لك ----------------------------- اذا كان بداية التوقيت لا يتساوى مع اي خلية في خلايا التوقيت في ورقة الرسم البياني لن بنقل لك البيانات ودمتم

السلام عليكم تفضل المرفق بعد التعديل R.elkheshin.rar

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

السلام عليكم تفضل المرفق ترتيب الفصول.rar

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

السلام عليكم لنسخ المعادلات لاخر صف Sub KH_copy_row1() On Error Resume Next Dim R As Long R = Cells(Rows.Count, "A").End(xlUp).Row Range(Cells(R, "A"), Cells(R, "J")).Copy Cells(R + 1, "A").PasteSpecial Paste:=xlPasteFormulas Cells(R + 1, "A").Offset(0, 1).Resize(1, 9).SpecialCells(xlConstants).ClearContents On Error GoTo 0 End Sub لنسخ المعادلات من اول صف لاي صف تختاره Sub KH_copy_row2() Dim R As Long R = ActiveCell.Row Range("A1:J1").Copy Cells(R, "A").PasteSpecial Paste:=xlPasteFormulas Application.CutCopyMode = False End Sub

السلام عليكم الرابط لا يعمل

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

السلام عليكم الشكر واصل للاخ/ عادل الاخ/ ابو سارة تم تعديل الكود حسب طلبك : Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer, C As Integer If Not Intersect(Target, Range("N8:V80")) Is Nothing Then Application.ScreenUpdating = False C = Target.Column For R = 8 To 80 If Cells(R, C) <> "" And Application.CountIf(Range(Cells(8, C), Cells(80, C)), Cells(R, C)) > 1 Then Cells(R, C).Interior.ColorIndex = 4 Else Cells(R, C).Interior.ColorIndex = xlNone End If Next Application.ScreenUpdating = True End If End Sub شاهد المرفق تلوين خلية في عمود بشرط.rar

السلام عليكم شرفت المنتدى وحمدلله على السلامة

السلام عليكم تم عمل كود يتناسب مع طلبك Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer, C As Integer If Not Intersect(Target, Range("N8:V80")) Is Nothing Then If Target.Count > 1 Then Target.Interior.ColorIndex = xlNone: Exit Sub Target.Interior.ColorIndex = xlNone If Target.Value = "" Then Exit Sub For R = 8 To 80 If R <> Target.Row And Target = Cells(R, Target.Column) Then Target.Interior.ColorIndex = 4 End If Next End If End Sub تفضل المرفق تلوين خلية في عمود بشرط.rar

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

السلام عليكم استخدمنا التنسيق الشرطي: =AND(E$2>=$B3;E$2<=$C3) إن شاء الله يكون المطلوب تفضل المرفق FINAL.rar

السلام عليكم الاخ الفاضل/ محمدي -------حفظه الله الاخ الفاضل/ سالم شباني -------حفظه الله ربنا يبارك فيكما تقبلا جزيل شكري وتقديري ================================= الاخ الفاضل/ ابو سارة -------حفظه الله استخدم الكود التالي: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = Range("C17").Address Then Cancel = True form_Cm_Search.Show 0 End If End Sub

السلام عليكم الاخ الفاضل/ بليش روغ -------حفظه الله الاخ الفاضل/ ابو سارة-------حفظه الله الاخ الفاضل/ يحي حسين -------حفظه الله ربنا يبارك فيكم تقبلوا جزيل شكري وتقديري

السلام عليكم بارك الله فيك اخي الحبيب احمد يعقوب الاخ/ aazsubbah تجد طلبك في الرابط http://www.officena.net/ib/index.php?showtopic=29970