حراثي تواتي

6 دقائق مضت, عبد العزيز البسكري said:

السّلام عليكم و رحمة الله و بركاته

أخي الفاضل و أستاذي العزيز " حراثي تواتي "

و بعد إذن الأخ الغالي الذي أتشرّف بمعرفته " الجموعي "

لاحظ أخي " حرّاثي تواتي " و انتبه لهذا المر جيّدًا و ضعها قاعدة أمام عينيك ما دمتَ تريد تعلم الفورم بحول الله .. لا تنسَ هذا الدّرس أبدًا لأنّه أساس بداية التعلّم :

لا يمكن .. أعيد مرة أخرى .. لا يمكن أبدًا .. كتابة حدث الإينيسياليز أو حدث الأكتيVات أو أي حدث آخر أكثر من مرّة على الفورم ..

باليوزرفورم هذا الذي أرسلته موجود حدث ال INITIALIZE مسبقا .. و لذلك عندما وضع الأخ الفاضل " الجموعي " الكوديْن و هما أيضًا بحدث الاينيسياليز ..

إذن ..

فقط أدخل الكودين داخل هذا ال INITIALIZE .. بدون إعادة كتابة الحدث أكثر من مرة مثلما ذكرت لك

فائق إحتراماتي

شكرا اخي عبدالعزيز على حضورك الدائم في مواضيعي و شكرا على المعلومة و الافادة و قد اخذتها بعين الاعتبار

كنت قد غيرت الحدث

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

كيف يمكنني ترحيل صورة من اليوزر فورم الى خلية معينة في صفحة الاكسيل

حبذا مثال تطبيقي

و شكرا مسبقا

7 دقائق مضت, الجموعي said:

في حدت اليوزرم فورم

Private Sub UserForm_Initialize()

End Sub

أضف هذا الكود

Me.Label5.Caption = Format(Now, "hh:mm")

Me.Label6.Caption = Format(Date, "yyyy/mm/dd")

 

شكرا اخي الكريم على الرد و الافادة

هذا الكود الذي جربته و ضبط معي

Private Sub UserForm_Activate()
Do
Me.Label59.Caption = Format(Now, "hh:mm:ss")
DoEvents
Loop
End Sub

السلام عليكم اخواني الافاضل

هل بامكانكم مساعدتي في كود على اليوزر فورم لعرض الساعة في "Label5" و عرض الوقت في "Label6"

و في انتظار ردكم عن تساؤلي تقبلوا مني فائق عبارات الاحترام و التقدير

عرض الوقت و الساعة.rar

18 ساعات مضت, عبد العزيز البسكري said:

السّلام عليكم و رحمة الله و بركاته

أخي الكريم "حراثي تواتي"

بهذا المرفق ستجد ملفين

الأول : البحث و استعراض البيانات بواسطة الكومبوبوكس

الثاني : البحث و استعراض البيانات بواسطة السْبينْ بوتون

حاولت جاهدًا إيجاد أبسط و أسهل الطرق التي تؤدي هذا الغرض

فائق إحتراماتي

حراثي تواتي.rar

أستاذي الكريم أرفع القبعة احتراما لشخصك الكريم ... شكرا هذا الذي كنت ابحث عنه

بالنسبة للملف " حراثي تواتي.xlsm " بقي  نفس المشكل ربما الخلل من نظام جهازي

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

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

بالنسبة للملف لم اغير فيه اي شيء و رغم ذلك لك يفتح

شكرا مرة اخرى

شكرا اخي عبد العزيز البسكري على الاهتمام و المتابعة يبدو من الواجهة انه ملف رائع و به كل ما ابحث عنه

لكن المشكل الفورم ما حب يفتح معي و به أخطاء او ملفات ناقصة

السلام عليكم اخواني الاكارم

مشكلتي في الفورم انني لم استطع استدعاء البيانات من الجدول حتى اقوم بالتعديل عليها

اريد استدعاء البيانات ثم التعديل عليها

الشرح مرفق مع الملف

TOUATI.rar

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

22 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم جرب الكود التالي

Sub PrintAll()
    Dim iStart As Integer, iEnd As Integer, I As Integer
    iStart = Feuil1.Range("J7").Value
    iEnd = Feuil1.Range("L7").Value
    For I = iStart To iEnd
        Feuil1.Range("I3").Value = I
        Feuil1.PrintPreview
    Next I
End Sub

 

 

شكرا اخي على الرد هل ممكن تطبيق على الملف المرفق .. لم تفلح معي

ما في إجابة ؟؟؟؟؟؟؟؟؟؟؟؟؟

5 دقائق مضت, سليم حاصبيا said:

جرب هذا الملف

 

طباعة salim.rar

شكرا على الرد

و لكن انا اريد طباعة كشف كل طالب لوحده و من دون أن اغير في قيمة الخلية I3 

مثال

هل من مجيب ,,, و بارك الله في الجميع مسبقا

السلام عليكم اخواني الافاضل

أريد طباعة كشف نقاط كل طالب الموجودة في صفحة واحدة دون أن أغير قيمة متغير الخلية المحددة

الشرح و الملف في المرفقات

طباعة.rar

8 ساعات مضت, خالد الرشيدى said:

السلام عليكم

اخى الكريم اليك المعادلة التالية كأحد الطرق .. لا يشترط ترتيب الرقم الاكبر والاصغر فى الخلايا E15:F15  ..

=AND(MAX($E$15:$F$15)-C5>=0;C5-MIN($E$15:$F$15)>=0)*1

حراثي 1.rar

أخي خالد لقد افدتني كثيرا فبارك الله فيك وزادك الله من علمه الواسع ... شكرا لك

17 دقائق مضت, rasboten said:

اخى العزيز

جرب المرفق

تحياتى

حراثي 1.rar

بارك الله فيك اخي الكريم استفدت منكم كثيرا

السلام عليكم و رحمة الله و بركاته

في حال كانت القيمة( أ )  محصورة بين القيمتين ( ب )  ، ( ج ) ,,, أعطيني 1 و الا اتركها 0

الشرح مرفق مع الملف

رجاء ارفاق الرد مع الملف المرفق

حراثي 1.rar

8 دقائق مضت, خالد الرشيدى said:

اتفضل المعادلة مطبقة بالمرفق

تواتي_2.rar

الان يشتغل تمام  بارك الله فيك و دمتم ذخرا لنا

27 دقائق مضت, خالد الرشيدى said:

السلام عليكم

اخى الكريم ضع المعادلة التالية بالخلية F8

=ROUNDDOWN((C8+D8)/3;2)

 

 

مشكور اخي الكريم على تقديم المساعدة

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

السلام عليكم و رحمة الله

أريد ان تكون النتيجة رقمين بعد الفاصلة ، مع عدم تقريبها الى الرقم الموالي

مثلا : الشرح مفصل مع الملف المرفق

تواتي.rar