band

تسطيع اضافة فلتر للجدول  والفلترة بواسطة البحث 

واذا اردت شي محترف عن طريق ادفانس فلتر

اخي العزيز .. بشوف البرنامج وارد عليك

تستخدم في الكود الخاص بفتح كتاب الاكسيل

Private Sub Workbook_Open()

End Sub

وإن شاء الله في حال أصلح المنتدى تحميل الملفات سأضع مثال على ذلك إذا لم تتوصلوا للحل.

لم اتمكن من استخدامه

اعمل لنا مثال على الاكسل وارفعه لنا ولو في موقع اخر

وشكرا لك

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

Option Explicit

Private Sub Form_Load()
    retvalue = GetSetting("A", "0", "Runcount")
    GD$ = Val(retvalue) + 1
    SaveSetting "A", "0", "RunCount", GD$
    If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
        MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
        Unload Me
    End If
End Sub

اين تستخدم .. نرجو الشرح للأهمية

برنامج متابعة الدوري السعودي بعد التعديلات

الان ممكن استخدامه لأي دوري الى حد 12 فريق ولأي سنة فقط تحتاج تغير الفرق ...

حتى لو دوري حواري بتحصل على احصاءات حلوه جدا

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

لتنزيل البرنامج من الرابط

..

قمت بتعديل الملف . ... وعليك المباريات

وارفعه لنا اذا خلصت الله لا يهينك

واي خدمة انا حاضر

اخي العزيز .. شكرا لك نعم حظي اليوم حلو

ولكن البرنامج اذا صفّرت النتائج الجدول يبين ان الفرق لعبت 4 مباريات .. وثاني حاجه في ورقه جدول اسبوعي فيه فريق الشعله والخليج لا استطيع تبديلهم حتى لو غيرت اسماء الفرق في الجدول . والله دوخني وعملت اللي قلته واكثر ولكن دون جدوى .. تراك كريم وانا استاهل ابيك تضبط الجدول ودواله على جدول هذا العام وارفقه وانا اكفيك في تورخه المباريات ....

بارك الله فيك ... وعلى راحتك اخوي.

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

والتعديل يحتاج وقت مني ..

احاول ان اجد لك الملف المعدل وانلم اجده لك ان تعذرني فتعديل الملف يحتاج وقت طويل مني لا املكه حاليا

غيراسماء الفرق في صفحة النتائج فقط

مع ادخال نفس الاسماء في صفحة الدور الأول والثاني سوف تحول تلقائيا

تحتاج الى ادخال مباريات الدور الاول كاملة فقط

عندك قوسين احذفهم فقط

المعادله

=IF(AND(H7>=0,H7<=2),"-",IF(AND(H7>2,H7<=4),"+ -",IF((H7>4),"+")))

ما شاء الله عليك كتبت الموضوع يوم رجوعي للمنتدى ببرنامج اخر ...

فأنا لي مدة طويلة عن الموقع واليوم رجعت لتجربة برنامج

حظك حلو ان شاء الله اقدر اساعدك

بس اصبر علي شوي فأنا مشغول الان

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

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

احببت ان تشاركوني الرأي والتجربة واستفيد من ملاحظاتكم

ولأن هذا المنتدى خاص بالاكسل خصيتكم تجربة البرنامج قبل ان انشره للجميع

فكرة البرنامج هي

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

سيتم استخراج الارقام من الفاتورة وعليك اضافة الأسماء لتستفيد من مخرجات البرنامج

هذه النسخة ناقصة عمليات طباعة للتقارير وخواص اخرى ولكنها جاهزة للتجربة

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

للتنزيل من هنا ....

http://upload.9q9q.net/file/KkFLIhOoL/test...Accounting.html

testcopy.rar

it is an easy Q

how can i make a macro run every time i open the file ?