السلام عليكم ورحمة الله وبركاته .
لدي ورقة عمل بالأكسيل تحتوي على عمودين . العمود الأول به مبالغ ويقابله في العمود الثاني البيانات .
أحياناً تصبح القيمه ( صفر ) بخليه وأحياناً تصبح ( 100 ) .. ورقة العمل با حوالي 100 صف واريد عمل زر أمر لطباعة الخلايا التي يكون المبلغ بها أكبر من الصفر فقط لكي لا أضطر لطباعة كامل الصفحات
مرفق ملف توضيحي .
وأشكر تعاونكم وخاصة الأستاذ ( مبتديء جدا ) حيث له بصمات واضحه في التعاون مع الجميع
يمكنك عمل ذلك اذا قمت بوضع هذا الكود عند حدث زر الأمر على ورقة العمل:
Private Sub CommandButton1_Click()
Me.Cells.AutoFilter field:=1, Criteria1:="> 0", _
VisibleDropDown:=False
Worksheets("Sheet1").Activate
ActiveSheet.PrintOut
Me.AutoFilterMode = False
End Subوتجد المثال به التطبيق مع المرفقات
ولك كل التحية
بصراحه أنت فنان ولقد شاهدت المثال المرفق وطبعت للتجربه والنتيجه ممتازه .
ولكن عندما نسخت الكود ولصقته مع زر الأمر في الملف لدي يعود بي الي محررالفيجول بيسك ويقف عند كلمة Me ولا أعلم هل يجب تغييرها الي وضع آخر لأختلاف الملف أم ماذا ؟
أشكرك جزيل الشكر
أرفقت لك الملف الخاص بي لترى المشكله على الطبيعه عند الضغط على زر الطباعه بدون أصفار ولكي تتمكن من تعديل الأمر على الزر
وألف شكر على صبرك
حاول لصق هذا الكود مع تغيير رقم ورقة العمل التي تعمل عليها بالطبع في الكود:
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, Criteria1:="> 0", _
VisibleDropDown:=False
Worksheets("Sheet1").Activate
ActiveSheet.PrintOut
End Sub- قمت بعمل ذلك ولكن فتح الفيجول بيسك مره أخرى وتوقف عند كلمة Me
أرفقت لك المثال مره أخرى لمشاهدته
وشكراً
سبب الخطأ انك عندما قمت بادراج زر امر قمت بادراجة من Assign Macro اي من الTool Bar المسمى Forms وليس من ال الTool Bar المسمى Visual Basic ------ ذلك فقط
ها هو مثالك بعد التعديل
قمت بتجربة الطباعه ولكن لم يطبع الأسماء أو المبالغ .. طبع فقط كلمة ( الأسم والمبلغ ) الموجودين بالأعلى .
المثال الأول الموضح من قبلك ممتاز ولكن مشكلتي هي أني لا أستطيع عمل أزرار الأوامر إلا عن طريق الـ Tool Bar وفي المرات السابقه كنت أنسخ الأكواد وتعمل بشكل طبيعي ولا أعلم ما المشكله هذه المره
آسف تعبتك معي
اولا اخي حسام لا تأسف على اي شيء .... واتمنى ان يكون هناك استفاضه ولا تضع اي تكلفة فنحن اخوة في الله :)
لو لاحظت الكود العلوي تجد خاصية تسمى field هذه الخاصية يكتب بجانبها رقم وهذا الرقم هو رقم الحقل الرقمي ورقم الحقل الرقمي في مثالك هو الرقم 2 فما عليك الاّ تغيير الرقم من 1 الى 2 ;)
وها هو مثالك لترى التغيير بنفسك
قم باضافة هذا السطر في قبل End Sub لحدث زر امر (طباعة بدون اصفار)
Me.AutoFilterMode = False
بعد أضافة السطر يعود الأكسيل لمحرر الفيجول بيسك ويقف عند كلمة Me
سترى ذلك بالمثال
سلمت يداك عزيزي الغالي .. والطلب الآخير هو كيف أحرك زر أمر الطباعه من مكانه حيث أنه بين السطور .؟
خالص شكري وعميق أمتناني لشخصكم الكريم .
آسف على الأزعاج ... توصلت للطريقه وأستطعت تحريك الزر بنجاح .
الحقيقه قد يعجز لساني عن شكرك ولكن يكفي أن أدعو الله لك بالتوفيق وأن يجزيك كل الخير عن ما تقوم به .
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…