التعديل على مجموعه ملفات إكسل مغلقة دون فتحها دفعة واحدة

[الطـاهر]

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

 

لدى اكثر من 1500 ملف اكسل جميعهم نفس التنسيق والمعادلات مع اختلاف المحتويات لكل ملف على حده

 

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

 

هل يمكن ان يتم ذلك مره واحده ام لابد من فتح ملف ملف وعمل المعادلات فيه ؟؟

 

علما بأن النطاق واحد فى كل الملفات

[أبوبسمله]

اخى الفاضل سامح

نورت المنتدى فمرحبا بك اولا حاجه يرجى تغير اسم الظهور الى اللغه العربيه

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

بالتوفيق اخى

[Guest محمد ابو صهيب]

بسم الله الرّحمان الرحيم ....يمكن ذلك ...بخاصية  GROUPE DE TRAVAIL

اليك الرابط ...غذا لم تفهم سأفهمك الطريقة

 

تم تعديل فبراير 19, 2016 بواسطه محمد ابو صهيب

[ياسر خليل أبو البراء]

أخي الكريم سامح طاهر

هلا غيرت اسم الظهور للغة العربية ليعبر عن شخصكم الكريم

 

جرب الكود التالي عله يفي بالغرض ..

سيتم وضع معادلات في الخلية E1 والخلية F1 في الملفات المغلقة كما سيتم إخفاء العمودين C و D ..

يمكنك التعديل بما يتناسب مع ملفك (ولا تطلب التعديل طالما أنك لم ترفق ملف من البداية .. طبعاً بهزر معاك .. ) ولكن للأسف الموضوعات التي لا يتم إرفاق ملف فيها غالباً ما يتم فيه تقديم مشاركات كثيرة حتى نصل للمطلوب وستلاحظ ذلك بنفسك ..بخلاف الموضوعات التي يكون فيها ملف مرفق

Sub LoopThroughClosedWBs()
    Dim WBK         As Workbook
    Dim FolderPath  As String
    Dim FileName    As String
    Dim Counter     As Double
    
    FolderPath = ThisWorkbook.Path & "\"
    FileName = Dir(FolderPath & "*.xl*")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    
        Do While FileName <> ""
            If FileName <> ThisWorkbook.Name Then
                Set WBK = Workbooks.Open(FolderPath & FileName)
                
                With WBK.Sheets("Sheet1")
                    .Range("E1").Formula = "=SUM(A1:B1)"
                    .Range("F1").Formula = "=A1*B1"
                    .Columns("C:D").Hidden = True
                End With
                
                WBK.Close SaveChanges:=True
            End If
            FileName = Dir()
        Loop
        
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    
    MsgBox "Finished ...", 64
End Sub

وإليك الملف المرفق من عندي

تقبل تحياتي

Loop Through Closed Workbooks & Type Formulas And Hide Columns YasserKhalil.rar

[أبوبسمله]

تسلم ايدك يا ابو البراء

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

وكيفية اضافة الداله

[Guest محمد ابو صهيب]

السلام عليكم...أنا أتلقى كل المعدلات بالفرنسية ...لأني بدأ توجه في الأكسل بالفرنسية ...نحن نختلف عنكم ...من حيث اللغة ...الجزائريون يوجيدون اللغة الفرنسية ...لكن إخواننا المصريون يوجدون اللغة الإنجليزية...وهذا راجع للإحتلال المعمر في كل بلاد من بلدان العربية ..كما أحيطكم علما ..أنا فرنسا غزت الجزائر في 1832 ...الحادثة المعروفة ...حادئة المروحة ...لأن أنذاك كانت فرنسا وإنجلترا من البلدان المحتلة لبلاد العربية الضعيفة...لهذا كل شعب غزه مستدمر ..تأثر بالغته

 

  13 دقائق مضت, أحمد الفلاحجى said:

انا اعلم خاصية لصق الارتباط الشبيهه لذلك

ولكن اقصد هذه المعادله التى بالفيديو

RECHERCHE V()= VLOOKUP()
LE MOT RECHERCHE = search 
v= vertical

LA RECHERCHE VERTICALE ( french)  
VLOOKUP(): VERTICAL LOOK UP  ( Anglais)      لاحظ تكونت هذه الدالة من بحث عمودي من فوق

 

تم تعديل فبراير 19, 2016 بواسطه محمد ابو صهيب
زيادة

[ياسر خليل أبو البراء]

أخي الحبيب أحمد

إليك هدية مني ملف مرفق يمكنك ترجمة أسماء الدوال من الإنجليزية للفرنسية أو العكس ويوجد لغات أخرى ..

تقبل تحياتي

Translation Of Functions Officena YasserKhalil.rar

[أبوبسمله]

3 دقائق مضت, ياسر خليل أبو البراء said:

أخي الحبيب أحمد

إليك هدية مني ملف مرفق يمكنك ترجمة أسماء الدوال من الإنجليزية للفرنسية أو العكس ويوجد لغات أخرى ..

تقبل تحياتي

Translation Of Functions Officena YasserKhalil.rar

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

تسلملى ياغالى على الهديه

طيب حاولت اكتب المعادله لم يظهر لى اى شىء عنها كما المعادلات الاخرى لماذا ؟

[Guest محمد ابو صهيب]

أخي أحمد الفلاحجي ...إذا أردت أن نتخدث ...فعليك اذهاب إلى سكايب لأشرح لك المعادلة الفيديو ...شرحا مفصلا ...لأن الرسائل نفذت مني في المنتدى ولا يسمح لي إلا 5 رسائل ..

هذا عنواني في السكايب

samstar.cherokee.........أدخل إلى السكايب  لنتحدث....أنتظرك

[أبوبسمله]

اخى محمد

اذا كان عندك ايميل على الجيميل ممكن نتكلم عليه ahmedelfalahgy@gmail.com

لان ليس لدى سكايب وجزاك الله كل خير

[الطـاهر]

في ١٩‏/٢‏/٢٠١٦ at 08:58, ياسر خليل أبو البراء said:

أخي الكريم سامح طاهر

هلا غيرت اسم الظهور للغة العربية ليعبر عن شخصكم الكريم

 

جرب الكود التالي عله يفي بالغرض ..

سيتم وضع معادلات في الخلية E1 والخلية F1 في الملفات المغلقة كما سيتم إخفاء العمودين C و D ..

يمكنك التعديل بما يتناسب مع ملفك (ولا تطلب التعديل طالما أنك لم ترفق ملف من البداية .. طبعاً بهزر معاك .. ) ولكن للأسف الموضوعات التي لا يتم إرفاق ملف فيها غالباً ما يتم فيه تقديم مشاركات كثيرة حتى نصل للمطلوب وستلاحظ ذلك بنفسك ..بخلاف الموضوعات التي يكون فيها ملف مرفق

Sub LoopThroughClosedWBs()
    Dim WBK         As Workbook
    Dim FolderPath  As String
    Dim FileName    As String
    Dim Counter     As Double
    
    FolderPath = ThisWorkbook.Path & "\"
    FileName = Dir(FolderPath & "*.xl*")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    
        Do While FileName <> ""
            If FileName <> ThisWorkbook.Name Then
                Set WBK = Workbooks.Open(FolderPath & FileName)
                
                With WBK.Sheets("Sheet1")
                    .Range("E1").Formula = "=SUM(A1:B1)"
                    .Range("F1").Formula = "=A1*B1"
                    .Columns("C:D").Hidden = True
                End With
                
                WBK.Close SaveChanges:=True
            End If
            FileName = Dir()
        Loop
        
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    
    MsgBox "Finished ...", 64
End Sub

وإليك الملف المرفق من عندي

تقبل تحياتي

Loop Through Closed Workbooks & Type Formulas And Hide Columns YasserKhalil.rar

اهلا استاذى ياسر

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

 

لقد قمت بالتعديل على الكود ليتناسب مع التعديلات التى اريدها ، لكن ظهر خطأ عند تشغيل الماكرو

 

Option Explicit

Sub LoopThroughClosedWBs()
    Dim WBK         As Workbook
    Dim FolderPath  As String
    Dim FileName    As String
    Dim Counter     As Double
    
    FolderPath = ThisWorkbook.Path & "\"
    FileName = Dir(FolderPath & "*.xl*")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    
        Do While FileName <> ""
            If FileName <> ThisWorkbook.Name Then
                Set WBK = Workbooks.Open(FolderPath & FileName)
                
                With WBK.Sheets("1")
                .Range("g2").Formula = "=MAX(H:H)"
                    .Range("g6").Formula = "=SUMIF(E6;>=0)"
                    .Range("h6").Formula = "=IF(E6=G6;F6;"")"
                    .Columns("g:h").Hidden = True
                End With
                
                WBK.Close SaveChanges:=True
            End If
            FileName = Dir()
        Loop
        
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    
    MsgBox "Finished ...", 64
End Sub

 

[ياسر خليل أبو البراء]

أخي العزيز سامح

لم تحدد في أي سطر ظهر الخطأ . عند حدوث خطأ تظهر رسالة فيها كلمة Debug انقر عليها ليتم تحديد السطر الذي به الخطأ باللون الأصفر

عموماً أعتقد أن المشكلة في الكود هي استخدامك للفاصلة المنقوطة في المعادلة ..جرب تغيرها إلى فاصلة عادية وشوف هتظبط معاك أو لا ..

أمر آخر علامات التنصيص في المعادلة توضع بين علامتي تنصيص أخرى لتصبح بهذا الشكل

""""

تقبل تحياتي

[الطـاهر]

استاذى الفاضل ياسر

 

الخطأ فى السطر

 

 

.Range("g6").Formula = "=SUMIF(E6;">= 0")"

 

[ياسر خليل أبو البراء]

قم باستبدال الفاصلة العادية بفاصلة منقوطة

والشرط ضعه بين أقواس تنصيص أخرى غير الموجودة

.Range("g6").Formula = "=SUMIF(E6,"">= 0"")"

 

[الطـاهر]

4 ساعات مضت, ياسر خليل أبو البراء said:

قم باستبدال الفاصلة العادية بفاصلة منقوطة

والشرط ضعه بين أقواس تنصيص أخرى غير الموجودة

.Range("g6").Formula = "=SUMIF(E6,"">= 0"")"

 

تسلم استاذى الفاضل

 

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

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات

بوركت أخي العزيز سامح طاهر ..

تقبل تحياتي