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

[العربي_الحر]

السلام عليكم

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

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

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

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

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

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

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

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

تم تعديل أبريل 21, 2005 بواسطه العربي_الحر

[محمد حجازي]

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

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

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

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

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

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

بالتوفيق

[العربي_الحر]

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

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

نعم اخي محمد والجدول اسفل زر 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

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

[محمد حجازي]

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

جرب المرفق التالي:

16834.zip

[العربي_الحر]

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

تم تعديل أبريل 23, 2005 بواسطه العربي_الحر

[العربي_الحر]

اخي محمد

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

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

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

[محمد حجازي]

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

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

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

16834_New.zip

[العربي_الحر]

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

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

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

العربي_الحر

تم تعديل أبريل 25, 2005 بواسطه العربي_الحر

[محمد حجازي]

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

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

16834_New1.zip

[العربي_الحر]

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

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

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

تم تعديل مايو 23, 2005 بواسطه العربي_الحر

[محمد حجازي]

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

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

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

ANT_001T.rar

[العربي_الحر]

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

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

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

وشكرا لك

تم تعديل مايو 26, 2005 بواسطه العربي_الحر

[محمد حجازي]

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

دليل الـ 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

[العربي_الحر]

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

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

تم تعديل مايو 28, 2005 بواسطه العربي_الحر

[العربي_الحر]

اخي الكريم

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

يعني PRINT CURRENT PAGE

وشكرا مقدما

تم تعديل يونيو 5, 2005 بواسطه العربي_الحر

[محمد حجازي]

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

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

Sub MyPrint()
  ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

إلى :

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

[العربي_الحر]

بارك الله فيك اخي محمد وكثر من امثالك