اذهب الي المحتوي
أوفيسنا

hsa100

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    122

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه hsa100

    انشاء قوائم منسدلة بياناتها مرتبطة ببعضها عن طريق VBA

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    ادين بالفضل لهذا المنتدى العظيم .. تعلمت منه الكثير
    واحب ان اشارك فى هذا الشهر الكريم بهذا العمل المتواضع
    لكيفية انشاء  قوائم منسدلة بياناتها مرتبطة ببعضها البعض Sub Lists عن طريق VBA 
    ..
    وكل عام وانتم بخير

    sub lists with vba.rar

    • Thanks 1

    A file Named Resume.XLW already exists in this location. Do you want to Replace It

    في منتدى الاكسيل Excel

    قام بنشر

    Set XLApp = CreateObject("Excel.Application")
        Set xlWB = XLApp.Workbooks.Add     
        
        Set xlWB = XLApp.Workbooks.Open(App.Path & "\data.xls")    'Open an existing workbook
        Set XLSh = xlWB.Sheets("sheet1")
        XLApp.AlertBeforeOverwriting = False
        XLApp.DisplayAlerts = False
        XLApp.ActiveWorkbook.Save      

    المشكلة تحدث اذا انتقلت الى اى sheet آخر ثم العودة مرة اخرى الى sheet1

    A file Named Resume.XLW already exists in this location. Do you want to Replace It

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

    اثناء حفظ ملف اكسيل من خلال vb6 من خلال الامر التالى

    XLApp.ActiveWorkbook.Save

    تظهر الرسالة التالية

    A file Named Resume.XLW already exists in this location. Do you want to Replace It

    كيف يمكن التغلب عبى هذه المشكلة

    شكرا لكم

     

    طلب تحويل معادلة الى كود VBA

    في منتدى الاكسيل Excel

    قام بنشر

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

    رمضان كريم

     

    هل يمكن تحويل المعادلة التالية الى كود vba

     

    بدلا من وضع تلك المعادلة فى الخلية B9

     

    المعادلة تقوم بجلب قيمة الخلية C6 من ملف موجود بالدرايف Z  سواء أكان هذا الملف مفتوحا ام مغلقا

     

    Range("B9").Formula = "='Z:\[1.xls]sheet1'!C6"

     

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

×
×
  • اضف...

Important Information

  I accept