الجموعي

وفيك بارك الله أستاذي أبو البراء كل هذا بفضلكم جزيتم خيرا

نعم يمكنك ذلك الكود Private Sub ToggleButton1_Click() If Me.ToggleButton1.Value = True Then Frame1.Visible = False Frame2.Visible = True End If If Me.ToggleButton1.Value = False Then Frame1.Visible = True Frame2.Visible = False End If End Sub Private Sub UserForm_Activate() Frame2.Visible = False End Sub شاهد المرفق Toggle Button.rar

جزاك الله خيرا على مروك الكريم أخي ياسر خليل لم أفهم (قافشك) مع خالص إحتراماتي

السلام عليكم ورحمة الله تعالى وبركاته المطلوب 1 : تعديل على زر PAUSE حيث أنه عند الضغط يتوقف العداد وعندما اريد إعادة التشغيل يشتغل العداد من النقطة التي تم الإيقاف منها المطلوب 2 : إضافة المبلغ: مثال: 60 دقيقة ======== 100 30دقيقة ======== 50 15دقيقة ======== 25 بحيث عند الضغط على زر stop يعطيك المبلغ مباشرة وعند الضغط على زر Reset إفراغ خلية المبلغ, Chronomètre.rar

أخي الكريم معذرة..... كلامك مضبوط ..... سوء فهم ودي وتقديري

السلام عليكم ورحمة الله تعالى وبركاته الموضوع من عنوانه ماكرو نسخ محتويات شيت محددة إلى شيت أخر على شكل صورة كود الماكرو Sub copyR() Sheets(1).Select Sheets("Sheet1").Range("A1:C13").CopyPicture Appearance:=xlScreen, Format:=xlPicture Sheets(2).Select Range("A1").Select ActiveSheet.Paste End Sub نموذج مرفق Copy pic.rar

من بعد إذن الأستاذ محمد شرح بسيط مني للجزئية Private Sub ToggleButton2_Click() 'بداية الشرط عند الضغط على زر تبديل If Me.ToggleButton2.Value = True Then 'ظهورالإطار 1 = خطأ Frame1.Visible = False 'ظهورالإطار 2 = صحيح Frame2.Visible = True ' نهاية الشرط End If End Sub

بارك الله فيك أخي على هذا العمل الجميل

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

الحمد لله تم حل المشكلة

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

بارك الله فيك أستاذ/ياسر خليل على الكود الرائع تم تطبيقه وعمل بنجاح لكن وجهتني مشكلة بسيطه وهي عند تحديد عمود كامل مثلا وقمت بتسميته بنطاق YEARS وعند الخلية المراد ظهور الكمبوبوكس فيها الكمبوكس لم يعمل للعلم في قائمة التحقق من صحة البيانات قمت بإدراج هذا الكود =OFFSET(A2;0;0;SUBTOTAL(3;YEARS);1) LIST.rar

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

في حدث الشيت يتم تغيير وقت ظهور الوميض +التحكم في أعلى قيمة أو أقل لنبض الخلية Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Dim d, a 'هنا يتم إدخال الخلايا للوميض If Not Intersect(Target, Range("A1:B20")) Is Nothing Then If Target.Count > 1 Then Exit Sub 'هنا يتم إدخال أعلى قيمة للوميض الخلية If Target > 1000 And IsNumeric(Target) Then 'من هنا يتم تغيير ثواني الوميض الخلية Call Pulsate(Target, 2) 'Pulsate 2 Seconds. End If End If End Sub

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

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

أخي إبراهيم أبو ليله شكرا على هذه البرنامج الرائع جعله الله في ميزان حسناتك

هل هذا ما قصدته أخي test1011.rar

السلام عليكم ورحمة الله تعالى وبركاته أريد منكم مساعدة في فورم تفقيط بالغتين العربية والفرنسية المشكلة أريد التفقيط أن يصل إلى مائة ألف مليار(100000000000000) في اللغتين للعلم أن التفقيط في اللغة العربية يصل إلى مائة مليون(100000000) وباللغة الفرنسية يصل إلى مائة مليار (100000000000) المبلغ بالدينار الجزائري.rar

نعم مبدائيا هذا ما اقصده في انتظار اتمام الفورم

للرفع

السلام عليكم ورحمة الله تعالى وبركاته اخوتي في الله كل عام وانتم بالف خير تقبل الله طاعاتكم المطلوب: مساعدة في إنشاء فورم بنك دم المثال موضح في الموقع التالي http://b-blood.org/index.html وأنا اريد تطبيقه على فورم إكسل إن أمكن دلك وبارك الله فيكم

بارك الله فيك اخي على دعاء الرائع و كلماتك الطيبه جزاك الله كل الخير

أخي الكريم قم بفحص الملف على موقع https://www.virustotal.com/

أخي إيهاب قمت بتجربة هذه المحاولة في Module1 أدرج هذا الكود Sub ihab() If CheckBox1.Value = True Then Reg_Write3 Else Reg_Delete3 End If End Sub وفي حدث الشيت 1 أضف السطر التالي في الأسقل Call ihab لتصبح الكود على النحو التالي Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 4) = Date Cells(Target.Row, 5) = Format(Now, "hh:mm:ss") End If End If Call ihab End Sub