عبد الفتاح كيرة

أخى شاهد هذا الفديو

نعم وممكن =TEXT(A2-B2;"y")

أعد تنصيب أوفيس و اختر إصلاح

عليكم السلام فى 2007 ملف استيراد و تصدير تصدير إلى ملف ثم علبة الوارد

إذن نطلب من الإدارة حذف الموضوع

أخانا الفاضل yamz شكرا لك أحب أن أخبرك أننا هنا كلنا متعلمون يفيد بعضنا بعضا قدر الاستطاعة هناك وظائف فى إكسل أنت تستخدمها فعلا مثل sum if و عند استخدامها أنت تعطى الدالة بعض المعاملات لتعطيك نتائج مثلا دالة sum تعطيها عناوين الخلايا المراد جمعها فتعطيك ناتج الجمع ويمكن عمل وظائف للمستخدم يكيفها حسب طلبه مثلا هنا عملناوظيفة تقوم ب إنشاء مجموعة من مدى معين ( أى مدى ) وضع هذه المجموعة فى كمبو بوكس ( أى كمبو بوكس) و استدعينا هذه الوظيفة بذكر اسمها المعاملات التى تحتاجها و هى المدى المحدد اسم الكمبوبوكس يمكنك الاستفادة من الإخوة هنا وهم أساتذتنا و يمكنك مشاهدة باقى الفديوهات فى قناتى بتوقيعى أرجو لك التوفيق

السلام عليكم هناك حلقات مفقودة هى اذا كانت الخلية a4 فاضية و b4 ......( أكمل ) اذا كانت الخلية b4 فاضية و a4 ......( أكمل ) إذا كانت a4 و b4 كلاهما غير فارغ حتى تضبط المعادلة و جرب هذه المعادلة مؤقتا =IF(AND(A4="";B4="");"غائب";IF(A4="";"لم يتم تسجيل الدخول";IF(B4="";"لم يتم تسجيل الخروج";"")))

أنت جررتنا لبرنامج كامل لكن هذا - بتوفيق الله ما طلبت سنحول الكود السابق إلى وظيفة يمكن استدعاؤها بأى عدد تريده من الكمبوبوكس طبعا حسب عدد الكمبوبوكس على الفورم شاهد المرفق الملف how to use collection متعدد تعبئة سلسة من الكمبو بوكس.zip

غير تنسيق الخلية إلى رقم =SUM(D9;E9)

ببساطة كرر سطر الإضافة مع تغيير رقم الكمبوبوكس Me.ComboBox2.AddItem Item و Me.ComboBox3.AddItem Item و هكذا ولو كانت أكثر من ذلك كـ 7 مثلا يمكنك عمل حلقة For Each Item In coll For i = 1 To 7 Me.Controls("ComboBox" & i).AddItem Item Next i Next Item End Sub

يجب أن يكون العمود الأيمن فيه القيم التى تبحث عنها يعنى يكون المسلسل من 1 إلى ... على اليمين حمل الملف الرباط الخاص بي

بعض برامج الفيروسات تصنف مثل هذه البرامج على أنها فيروسات

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

أشكرك Zoro888 أهلا بك

موضوع مهم

الكود فى حالة توقف تأكد من توصيل الطابعتين غير السطر الأخير ActiveSheet.selections.PrintOut لاحظ أن كل كود له زر مختلف

أفادكم الله أستاذ طارق هذا حل آخر بوظيفة أيضا Public Function setcolor(myrng As Range) Count1 = 0 For Each cl In [a1:q16] If cl.Interior.ColorIndex = myrng.Interior.ColorIndex Then Count1 = Count1 + 1 End If Next cl myrng = Count1 End Function المرفق عد الألوان فى نطاقkemas.zip

Sub PrintToAnotherPrinter() Dim STDprinter As String Application.ActivePrinter = "اسم الطابعة الأولى:" ActiveSheet.PrintOut End Sub الكود السابق يطبع مع تحديد اسم الطابعة الأولى اعمل زري أمر كودهما واحد لكن مع تغيير اسم الطابعة

إخوتى الكرام جزاكم الله خيرا أخى naderwatfa أخى onejan1977 شكرا لكما

شكرا لك أستاذنا عادل سعدت بكلماتك و مرورك جدا بارك الله فيك

السلام عليكم هذا الفديو كان بالخطة من فترة طويلة ولماأذن الله سبحانه و تعالى خرج إلى النور أرجو أن تنتفعوا به نتعلم فى هذا الفديو أشياء كثير من الأسهل للأصعب 1 - ربط كمبوبوكس بنطاق خلايا فيه عناصر مكررة 2 - الحصول على قيم غير مكررة باستخدام collection 3 - ربط الكمبوبوكس بقيم غير مكررة 4 - لأول مرة على الهواء مباشرة مراقبة المتغيرات أثناء عمل البرنامج لتحديد الخطأ الفديو طويل بلغ الحد الأقصى لطول الملف بيوتيوب 15 دقيقة تقريبا أرجو أن تتسامحوا معى فى أى أخطاء ترد فى الشرح فنحن جميعا تلامذة فى هيك باب باب vba جزاكم الله خيرا الملف المستخدم بالشرح تجده بالمرفقات الآن إلى الفديو how to use collection.zip

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

شكرا لأستاذنا طارق يمكن وضع المعادلة التالية فى d2 وسحبها لأسفل =SUMPRODUCT(($A$2:$A$26=A7)*($B$2:$B$26))

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

شكرا لك أخى على البرنامج الرائع جارى الفحص و الدراسة و الاستفادة