منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود الvb6 لعمل تعديلات فى ملف اكسيل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كيف يمكن بكود الvb6 عمل تعديلات فى بعض خلايا ملف اكسيل2010
ثم حفظ هذه التعديلات فيه
بحيث اذا فتحت هذا الملف بعد ذلك يفتح مباشرة وأجد هذه العديلات قد تمت فيه

لدى مثلآ ملف اكسيل اسمه book1.xlsx
أريد كود الزرCOMMAND1 لتعديل قيمة الخلية C2 الى 346 ، وتعديل قيمة الخلية E5 الى 1286
،  وكود الزرCOMMAND2 لتعديل قيمة الخلية F1  الى 598
بحيث اذا أغلقت بعدها برنامج الVB وفتحت ملف الاكسيل يفتح دون أى رسالة عن ال WRITE-RAD  أو أى رسالة أخرى ، وبه هذه التعديلات


ولكم ألف شكر
حاولت كثيرآ   ولكن دائمآ تظهر لى أثناء تشغيل برنامج الvb6 احدى هتين الرسالتين
[attachment=27800]

أو تظهر لى بعد غلق برنامج الvb6 وفتح ملف الاكسيل هذه الرسالة
[attachment=27801]

ولكم ألف شكر
هل السؤال غير مفهوم ؟

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

ولكم ألف شكر
(15-05-22, 07:48 PM)اسلام الكبابى كتب : [ -> ]كيف يمكن بكود الvb6 عمل تعديلات فى بعض خلايا ملف اكسيل2010
ثم حفظ هذه التعديلات فيه
بحيث اذا فتحت هذا الملف بعد ذلك يفتح مباشرة وأجد هذه العديلات قد تمت فيه

لدى مثلآ ملف اكسيل اسمه book1.xlsx
أريد كود الزرCOMMAND1 لتعديل قيمة الخلية C2 الى 346 ، وتعديل قيمة الخلية E5 الى 1286
،  وكود الزرCOMMAND2 لتعديل قيمة الخلية F1  الى 598
بحيث اذا أغلقت بعدها برنامج الVB وفتحت ملف الاكسيل يفتح دون أى رسالة عن ال WRITE-RAD  أو أى رسالة أخرى ، وبه هذه التعديلات


ولكم ألف شكر

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

[attachment=27812]
إقتباس :هذا مثال صغير يمكنك التعديل عليه حسب المطلوب

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

إقتباس :أريد كود الزرCOMMAND1 لتعديل قيمة الخلية C2 الى 346 ، وتعديل قيمة الخلية E5 الى 1286
،  وكود الزرCOMMAND2 لتعديل قيمة الخلية F1  الى 598


ولكم ألف شكر
(27-05-22, 02:11 PM)Amir_Alzubidy كتب : [ -> ]
(27-05-22, 12:56 PM)اسلام الكبابى كتب : [ -> ]ولم التعديل ؟
المطلوب هو نفس ما ذكرته بالضبط
؟؟ 

PHP كود :
Dim objExcel As Excel.Application

Set objExcel 
= New Excel.Application
    objExcel
.Workbooks.Open App.Path "/Book1.xls" 'Opens Excel Object
    objExcel.Worksheets("TBL1").Activate '
Activate the proper Workbook
    objExcel
.Range("A2").Value "1"
 
   objExcel.Range("B2").Value "2"
 
   Set objExcl Nothing 


دائما سباق لكل خير
وأين كود الزر COMMAND1 الذى يقوم بتعديل خليتين ؟  
وأين كود الزر COMMAND2 [b]الذى يقوم بتعديل خلية واحدة ؟ 
[/b]
[b]ولكم ألف شكر[/b]
كده تمام