مبتدىء جدا

الله يوفقك اخي ابو عقيل في زواجك المبارك ان شاء الله :)

فيصل الحربي aboaqeel2001

فيصل الحربي ابو هادي ولكل اخواني التحية

اخواني واحبتي في الله :) بالنسبه لاقتراح اخي الكريم بو يوسف الراشد للتصويت اعتقد انه من الأفضل ان لا يكون من خلال الرسائل الخاصة .. لأنه بالتأكيد لن يكون هناك زعل لأننا جميعاً احبه في الله (f) التمس العذر في استبعاد إسمي من قائمة النشيطين

تفضل : blinkcell.zip

:rolleyes: :rolleyes: اقتباس من ادارة الفريق العربي للبرمجه (محمد بدوي) http://www.arabteam2000.com/vb/announcemen...hp?s=&forumid=6

للعلم اخي falantokh : حسب وصفك للمشكلة فاءن افضل شىء يقوم بذلك هي الداله الذي قام بعملها أبو هادي حيث فعلاً بعد تجربتها اثبتت روعتها فأعتقد هي طلبك المنشود بالضبط ,,,,, ولك التحية

نعم تجدها في هذا الرابط .... http://www.arabteam2000.com/vb/showthread....%CA%D5%CF%ED%D1

جزاك الله خير اخ morsy

اختر عرض ثم ------- أشرطة ادوات ثم---------مربع أدوات التحكم ------ ثم اختر من مربع الأدوات اداة تشيك بوكس,,, نعم يتم حفظ ملف الوورد بامتداد doc

http://www.arabteam2000.com/vb/showthread....&threadid=18979

المثال الذي قمت بوضعة به مشكلة لأنه عندما يتم الضغط على اي زر امر يبحث عن ملف ال Personel.Xls ,,, على العموم قمت بعمل نسخ للبيانات الموجوده به وتم وضع زر طباعه بدون اصفار وعمل بالشكل المطلوب في المثال بالمرفقات print.zip

تفضل اخي العزيز المثال بعد تعديل التقرير والنموذج ... nz2.zip

تفضل اخي العزيز المثال بعد تعديل التقرير والنموذج ...

قم باضافة هذا السطر في قبل End Sub لحدث زر امر (طباعة بدون اصفار) Me.AutoFilterMode = False

قم بتجربة هذا المثال: test.zip

اولا اخي حسام لا تأسف على اي شيء .... واتمنى ان يكون هناك استفاضه ولا تضع اي تكلفة فنحن اخوة في الله :) لو لاحظت الكود العلوي تجد خاصية تسمى field هذه الخاصية يكتب بجانبها رقم وهذا الرقم هو رقم الحقل الرقمي ورقم الحقل الرقمي في مثالك هو الرقم 2 فما عليك الاّ ت…

نعم استاذي الكريم ابو هادي يوجد دالة جاهزة تقوم بعمل ذلك وهي الدالة : CInt([هنا تضع اسم الحقل الذي به قيمة نصية])

سبب الخطأ انك عندما قمت بادراج زر امر قمت بادراجة من Assign Macro اي من الTool Bar المسمى Forms وليس من ال الTool Bar المسمى Visual Basic ------ ذلك فقط ها هو مثالك بعد التعديل print_f.zip

حاول لصق هذا الكود مع تغيير رقم ورقة العمل التي تعمل عليها بالطبع في الكود: Private Sub CommandButton1_Click() Worksheets("Sheet1").Range("A1").AutoFilter _ field:=1, Criteria1:="> 0", _ VisibleDropDown:=False Worksheets("Sheet1").Activate ActiveSheet.PrintOut…