كود يتم تطبيقه من الأكسس على كائن الشيت النشط

[Ahmed_J]

السلام غليكم اساتذتي الاعزاء

لدي قاغدة بيانات اكسس يتم التصدير من خلالها ملف اكسيل (موضوع سابق)

 

 

Dim I As Integer
For I = 2 To .range("b" & .rows.count).end(3).row
.Range("A" & I).Value = I-1
Next I

المطلوب : انه بعض الحقول توجد فيها فيم ثابتة  لاتتغير

                اريد ملئها بالكود مباشرة من الاكسس الى الاكسل كما في الصورة

               اي تكون القيمة في الحقول المعبئة= "لاتوجد"  يعني تعبئة تلقائية

               علما باتي استخدم الاكواد التالية:  والكود الاخير  فقط فيه الخطا (H)

.Range("A1").Value = "ID"
.Range("C1").Value = "Name"
.Range("D1").Value = "Salary"
.Range("H").Value = "لاتوجد"

وشكرا لكم

تم تعديل نوفمبر 22, 2021 بواسطه Ahmed_J

[Ahmed_J]

up