[اسلام الكبابى]

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

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

ولكم ألف شكر

[اسلام الكبابى]

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

  رسالتا خطأ.rar (الحجم : 16.91 ك ب / التحميلات : 11)

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

  رسالة خطأ 3.rar (الحجم : 18.22 ك ب / التحميلات : 7)

ولكم ألف شكر

[اسلام الكبابى]

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

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

ولكم ألف شكر

[مصمم هاوي]

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

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

ولكم ألف شكر

أخي إسلام
هل تقصد تعديل الخلية ذاتها أم قيمة الخلية؟

[اسلام الكبابى]

أقصد قيمة الخلية

[مصمم هاوي]

هذا مثال صغير يمكنك التعديل عليه حسب المطلوب


  VB & Excel.rar (الحجم : 7.74 ك ب / التحميلات : 51)

[اسلام الكبابى]

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

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

إقتباس :أريد كود الزر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]

[اسلام الكبابى]

كده تمام