Ahmed_J قام بنشر نوفمبر 22, 2021 مشاركة قام بنشر نوفمبر 22, 2021 (معدل) السلام غليكم اساتذتي الاعزاء لدي قاغدة بيانات اكسس يتم التصدير من خلالها ملف اكسيل (موضوع سابق) 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 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر نوفمبر 22, 2021 الكاتب مشاركة قام بنشر نوفمبر 22, 2021 up رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.