كيف يمكن عمل ماكرو او كود ينفذ عل جميع ملفاتي

[wooody]

السلام عليكم ورحمه الله

لدي الكثير من الملفات وكلها تقريبا متشابه..والتعديل الي اعمله عليها هو نفسه..

فكرت في عمل ماكرو .وحاولت لكني لم استطيع اكماله..

ارفق هنا ملف فيه شرح فيديو لما ارغب عمله عل الملف

شكرا لكم.

http://www.4shared.com/file/233407431/181124ce/xlsProjects.html

[طارق محمود]

السلام عليكم

هذا الماكرو تنسخه في ملفك الشخصي

وليس في الملف المراد العمل عليه

تفضل

Sub Macro1()

'

' Macro1 Macro

'

    ActiveSheet.DisplayRightToLeft = True

    a = Range("g2").Value

    b = Range("g3").Value


    With ActiveSheet.PageSetup

        .Orientation = xlLandscape

        .LeftMargin = Application.InchesToPoints(0.236220472440945)

        .RightMargin = Application.InchesToPoints(0.236220472440945)

        .TopMargin = Application.InchesToPoints(0.748031496062992)

        .BottomMargin = Application.InchesToPoints(0.748031496062992)

        .HeaderMargin = Application.InchesToPoints(0.31496062992126)

        .FooterMargin = Application.InchesToPoints(0.31496062992126)


        .CenterHeader = a & Chr(10) & b

        .LeftFooter = "&P"

    End With


    Columns("G:G").Select

    Selection.Delete Shift:=xlToLeft

    Rows("1:4").Select

    Selection.Delete Shift:=xlUp

End Sub

[wooody]

السلام عليكم

شكرا لك اخي . قمت بعمل ملف

book.xlsb

C:\Documents and Settings\Mohammad\Application Data\Microsoft\Excel\XLSTART

وفيه الماكرو.. وعند فتح الاكسل ممكن ان ينفذ عل اي ملف . هل هذه الطريقة صحيحة.؟

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

شكرا

[طارق محمود]

أخي العزيز:

إذا أردت أي ماكرو أن يظل مع برنامج الإكسل عامة وليس مع ملف ما خاصة

فلتسجله في مجلد:

C:\Program Files\Microsoft Office\Office12\XLSTART

طبعا هذا إذا كان الإكسل عندك 2007 ومركب علي الديسك C:

وعادة مايكون إسم هذا الملف PERSONAL

وهذا يجعل الإكسل يفتحه أوتوماتيك حيث أنه موجود في مجلد: C:\...\XLSTART

أرجو أن يكون الأمر واضح

وممكن أيضا أن تبرمج الإكسل يفتح ماهو موجود في مجلد: D:\\XXXX مثلا

2007

عن طريق Excel Option > Advanced > General > At startup, open all files in

تضع هنا إسم ومسار المجلد الذي تود أن يفتح مافيه عند فتح الإكسل

وبالتوفيق إن شاء الله

تم تعديل مارس 17, 2010 بواسطه TareQ M

[طارق محمود]

يفضل أن يخزن مخفيا

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

View

Window

Hide

ثم تقفل الإكسل فيعطيك رسالة بتأكيد القفل علي هذا الحال؟ فتوافق وبس

تم تعديل مارس 17, 2010 بواسطه TareQ M

[wooody]

شكرا جزيلا عزيزي.. وبارك الله فيك على مساعدك الطيبة لي

اتمنالك التوفيق

سلامي

[wooody]

السلام عليكم. عارف اني تعبتك معي . عندي هذا الماكرو الي توصلت له بالتعديلات

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

وكذلك قلب مين اليمين الى اليسار ايضا تعمل عل الصفحة الاولى فقط

كيف ممكن عملها عل الجميع..

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

تحياتي لك

id.zip

[wooody]

هل من مساعدة رجاءا...بانتظاركم

[طارق محمود]

السلام عليكم

أخي العزيز

تستبدل أول سطر في الكود وهو :

ActiveSheet.DisplayRightToLeft = True

بأن تضعه بين أمرين 1. إختيار كل الشيتات ثم 2. فصلها كالتالي

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

	Sheets("Sheet1").Activate

	ActiveSheet.DisplayRightToLeft = True

	Sheets("Sheet1").Select

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

[احمد فضيله]

السلام عليكم و رحمة الله و بركاته

اخي و استاذي / المهندس طارق

ما راي حضرتك فى استخدام ِadd-ins

هل يعطي نفس نتائج ما شرحته حضرتك سابقا ؟؟؟

و لك كل الشكر و التقدير

اخوك / احمد

[طارق محمود]

السلام عليكم و رحمة الله و بركاته

اخي و استاذي / المهندس طارق

ما راي حضرتك فى استخدام ِadd-ins

هل يعطي نفس نتائج ما شرحته حضرتك سابقا ؟؟؟

و لك كل الشكر و التقدير

اخوك / احمد

أخي وصديقي الحبيب / أحمد

بالطبع يمكن عمل ذلك من خلال ِadd-ins

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

[Abdelhady Tahoon]

الاستاذ الفاضل / طارق محمود كل عام وسيادتك بخير لو سمحت ممكن اتعلم على يد حضرتك كيف اعمل دائرة على الطالب الراسب او حرف غ باى طريقة ولو امكن فيديو شرح كيفية عمل كود الدائرة وتشغيلة من الصفر حتى النهاية علمك الله من فضله خير الناس انفعهم للناس

(وهذا ايميلى للتواصل abdelhady.tahoon72@yahoo.com )            ولسيادتك جزيل الشكر والاحترام