hsa100

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

الزملاء الاعزاء كيف يمكن رفع ملف الى Ftp Server وليكن 192.168.1.100 باستخدام VBA وبدون استخدام Batch file خارجى شكرا لاهتمامكم

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

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

السلام عليكم اثناء حفظ ملف اكسيل من خلال vb6 من خلال الامر التالى XLApp.ActiveWorkbook.Save تظهر الرسالة التالية A file Named Resume.XLW already exists in this location. Do you want to Replace It كيف يمكن التغلب عبى هذه المشكلة شكرا لكم

السلام عليكم مطلوب كود يقوم بتعديل الاعدادات الاقليمية Regional Settings بـ Vba أو API من اللغة English-canada الى Arabic-egypt والعكس بدون Re-start للويندوز شكرا

عندى ملفين بال drive z A.xls,B.xls المطلوب عمل كود بالملف A يقوم بجلب قيمة الخلية c6 من الملف B مع وضع القيمة فى متغير

للرفع

اريد تحويل محتويات خلية من الارقام الى صوت مسموع باللغة العربية

للرفع

اشكركم على الاستجابة لكن ليس هذا هو المطلوب المطلوب هو جلب قيمة الخلية c6 من الملف (1) الموجود فى drive z ووضعها فى متغير بواسطة الكود فقط وبدون معادلات

نفس النتيجة اللى انا ذكرتها فى سؤالى انما انا مش عايزها كمعادلة عايز انفذها من خلال الكود فقط .. وبدون معادلات

للرفع

السلام عليكم ورحمة الله وبركاته رمضان كريم هل يمكن تحويل المعادلة التالية الى كود vba بدلا من وضع تلك المعادلة فى الخلية B9 المعادلة تقوم بجلب قيمة الخلية C6 من ملف موجود بالدرايف Z سواء أكان هذا الملف مفتوحا ام مغلقا Range("B9").Formula = "='Z:\[1.xls]sheet1'!C6" وشكرا لتعاونكم

المفروض ان الرسالة لا تظهر لو ان الملف لا يحتوى على اى ماكرو فلماذا تظهر الان