اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

من يساعدني في وضع ماكرو Micro لهذه الازرار


الردود الموصى بها

السلام عليكم

اخواني اهل الخبره يوجد ملف مرفق الملف

اريد منكم جزاكم الله خيرا

وضع الماكرو الخاص بالازار الخاصه ب

GO للذهاب الى SHEET المطلوب

HOME للعوده الى الصفحه الرئيسيه

PRINT لطباعه الصفحه

SAVE (وان يكون المستخدم هو من يحدد اسم الملف المراد حفظه اي ملف اخر غير الرئيسي المستخدم )

جزاكم الله خير وجعل ذلك في ميزان حسناتكم

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

السلام عليكم ...

بالنسبة للخيار Go :

فقط وضح أخي الكريم ماذا تقصد في المرفق.

هل سيتم الانتقال بالاعتماد على بيانات الجدول؟ أم ماذا؟

بالنسبة لباقي الخيارات :

بسيطة إن شاء الله ، فقط وضح ما تريد ونحن جاهزون لإعطاءك الأكواد المطلوبة.

بالتوفيق :fff:

رابط هذا التعليق
شارك

كنت اتمنى ان تكون انت اخي محمد اول من يرد علي

والخير طبعا في بقية الاعضاء

نعم اخي محمد والجدول اسفل زر GO يوضح الى اي SHEET سيتم الانتقال حسب الخيارات المختاره في الاعلى

RED WHITE

TOYOTA 1ST 3RD

NISSAN 2ND 4TH

1ST 2ND 3RD 4TH اسماء SHEET هي

IF TOYOTA RED GO TO SHEET "1ST

IF TOYOTA WHITE GO TO SHEET "3RD

وهكذا

فقط عند الضغط على GO

والشكر مقدما لك ولكل اعضاء ومشرفي المنتدى الرائع

رابط هذا التعليق
شارك

اخي محمد

اذا كان في امكانيه لحفظ اخر SHEET يعمل عليه المستخدم فقط

تكون الامور ممتازه جدا لانني اعمل برنامج مكون من 10 SHEET و حفظها كلها WORKBOOK صعب شوي

واكرر شكري العميق لك

رابط هذا التعليق
شارك

السلام عليكم ...

جرب التعديل التالي:

عملت على جعل البرنامج يحفظ الورقة بنفس اسمها و في نفس مسار الملف الأصلي ، و إذا كنت تريد تحديد اسم الورقة أو مسارها بنفسك فأخبرني لأعدل لك الكود.

16834_New.zip

رابط هذا التعليق
شارك

جزاك الله خير واشكر على مجهودك الرائع ومتابعتك لي

نعم اريد تحديد الاسم والمسار اذا تكرمت

مع الشكر والعرفان

العربي_الحر

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

  • 4 weeks later...

اخي الكريم محمد

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

وهذا هو الملـــــــــــــــــــف الرجاء المساعده جزاك الله كل خير

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

السلام عليكم ...

بالنسبة للمايكرو الموجود في المرفق السابق ، لم يعمل لسبب بسيط و هو أنك لم تقم بتغيير دليل Workbooks إلى اسم الملف الجديد.

مرفق المثال المعدل :

ANT_001T.rar

رابط هذا التعليق
شارك

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

ولكن انا مبتدا في مجال الكود ممكن تشرحلي كيف (لم تقم بتغيير دليل Workbooks إلى اسم الملف الجديد.)

علمني الصيد افضل من ان تعطيني سمكه :(

وشكرا لك

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

السلام عليكم ...

دليل الـ Workbooks هو عبارة عن الاسم أو الرقم الذي يميز ورقة العمل ، مثال :

Sheets("Sheet2").Range("A5").Value = 5
Sheets(2).Range("A5").Value = 5

لاحظ أن كل من Sheet2 و 2 هو عبارة عن دليل لورقة العمل ، ولكن الفرق بينهما يكمن في أننا استعنا باسم ورقة العمل Sheet2 في الكود الأول و بترتيبه ضمن أوراق العمل 2 في الكود الثاني ، وذلك طبعاً من أجل الإشارة إلى الورقة المطلوبة.

و بالنسبة لباقي الكود ، ستجد شرحاً عن كود مشابه له في الرابط التالي :

http://www.officena.net/ib/index.php?showtopic=6292

:fff:

رابط هذا التعليق
شارك

بارك الله بك وجعلك ذخرا للمنتدى اخي حجازي

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

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

  • 2 weeks later...

اخي الكريم

هل من الممكن ان يفتصر امر الطباعه على الورقه الاولى من الشيت فقط سواء اكان هناك بيانات في الورقه الثانيه ام لا.

يعني PRINT CURRENT PAGE

وشكرا مقدما

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

السلام عليكم ...

بدل الإجراء التالي :

Sub MyPrint()
  ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub
إلى :
Sub MyPrint()
  Sheets("HOME").PrintOut Copies:=1, Collate:=True
End Sub

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information