بسم الله الرحمن الرحيم
المحاضرة الراابعة من كورس البرمجة على الاكسل VBA | تطبيق عملي لترجمة شيت
هنتعلم انهاردة ان شاء الله ازاى نقدر نترجم شيت على الاكسل ويكون موجود العربي والانجليزي واضافة زر للعربي وزر للانجليزي وكذلك كيف اخفاء زر الترجمة عند صفحة العربية وزر الانجليزي عند صفحة الانجليزي
تابعونااااااا
#الترجمة_في_الاكسل
#برمجة_الاكسل
#كود_الاكسل
#اكواد_الاكسل
#كود_اخفاء_زر_في_الاكسل
------------------------------------
الاكواد المستخدمة في الفيديو
----------------------------------

Range("B4").Value = "الاسم"
Range("B5").Value = "محمود"
Range("B6").Value = "أسماء"
Range("B7").Value = "مريم"
Range("B8").Value = "ملك"
Range("B9").Value = "أحمد"
Range("B10").Value = "الاجمالي"

Range("C4").Value = "يناير"
Range("D4").Value = "فبراير"
Range("E4").Value = "مارس"
Range("F4").Value = "أبريل"
Range("G4").Value = "مايو"

ActiveSheet.ChartObjects("Chart 1").Chart.ChartTitle.Text = "مخطط بياني للمبيعات"

ActiveSheet.Buttons("Button 1").Visible = False
ActiveSheet.Buttons("Button 2").Visible = True


الكود الثاني الانجليزي
--------------------------------

Sub translate_en()
Range("B4").Value = "Name"
Range("B5").Value = "Mahmoud"
Range("B6").Value = "Asmaa"
Range("B7").Value = "Maryam"
Range("B8").Value = "Malk"
Range("B9").Value = "Ahmed"
Range("B10").Value = "Total"

Range("C4").Value = "Jan"
Range("D4").Value = "FEB"
Range("E4").Value = "March"
Range("F4").Value = "APR"
Range("G4").Value = "May"


ActiveSheet.ChartObjects("Chart 1").Chart.ChartTitle.Text = "Sales Month"

ActiveSheet.Buttons("Button 1").Visible = True
ActiveSheet.Buttons("Button 2").Visible = False



يشرفني اشتراككم في القناة - اذا شايف محتوى القناة بيفيد وتستفيد منه ادعمنا بعمل اشتراك في القناة

( شاهد واتعلم | محمود جعفر )
=======================
تابعونا على الفيس بوك