Ahmed_J قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 السلام عليكم اساتذتي الكرام لدي ملف اكسل تم تصديره من اكسس هل يمكن اكمال وتعديل التسلسل بكود معين علما انني استخدم الكود التالي: Dim I As Integer I = 1 For I = 1 To 10 .Range("A" & I).Value = I Next تحياتي للجميع رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 يمكنك استعمال هذا التعديل Dim I As Integer For I = 2 To 11 Range("A" & I).Value = I-1 Next I بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب مشاركة قام بنشر سبتمبر 28, 2021 استاذي العزيز @أ / محمد صالح جزيل الشكر لك تم حل 50% من المشكلة بقيت مشكلة واحدة فقط (تحتاج الى تكملة الكود السابق) هي ان التسلسل يتجاوز عدد الصفوف في ملف الاكسل المقروض ان يتم ادراج التسلسل حسب المدى لاخر صف لان عدد السحلات يختلف بين فترة واخرى (غير ثابت) حسب طبيعة العمل نحياتي للجميع رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 Sub Test() Dim w w = Evaluate("ROW(1:" & Cells(Rows.Count, "B").End(xlUp).Row - 1 & ")") Range("A2").Resize(UBound(w, 1)).Value = w End Sub 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب مشاركة قام بنشر سبتمبر 28, 2021 السلام عليكم استاذ @lionheart الكود يظهر اخطاء كما في الصورة لانني استخدمه في وحدة نمطية تحياتي رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 Attach your file please رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب مشاركة قام بنشر سبتمبر 28, 2021 استاذي العزيز @lionheart ملف الاكسل تم تصديره من اكسس عن طريق وحدة نمطية تحياتي tb3 _ 28-09-2021.xlsx رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 Where do you put the code, in excel or access If in excel, press Alt + F11 to open VBE editor and insert Module from insert menu and paste the code First clear the contents from A2 to A and the last row before running the code I posted before رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب مشاركة قام بنشر سبتمبر 28, 2021 استاذي العزيز الكود موجود في وحدة نمطية بالاكسس تقوم بتصدير ملف اكسل بتنسق معين وضعته هنا لان الموضوع يخص الاكسل وشكرا لك وبارك الله فيك وبكل الاعضاء رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 28, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 28, 2021 أخي الكريم يفضل ذكر كل التفاصيل المتاحة لديك حتي يتم الوصول للحل المطلوب بمنتهى السهولة وعلى مرة واحدة لكن تجزئة المعطيات تؤدي إلى حلول غير مطلوبة حسب فهمي للمطلوب أنك تريد * وضع تسلسل يبدأ من الصف الثاني * إلى آخر صف مكتوب فيه في العمود b وليس إلى 10 * والكود يتم تطبيقه من الأكسس على كائن الشيت النشط يمكنك استعمال هذا الكود Dim I As Integer For I = 2 To .range("b" & .rows.count).end(3).row .Range("A" & I).Value = I-1 Next I بالتوفيق 1 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب مشاركة قام بنشر سبتمبر 28, 2021 شكرا لكم اساتذتي الاعزاء كلوا تمام استاذ @أ / محمد صالح بارك الله فيكم جميعا جعلها الله في ميزان حسناتكم تحياتي للجميع 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 آمين ولك بمثل ما دعوت وزيادة 1 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر سبتمبر 29, 2021 مشاركة قام بنشر سبتمبر 29, 2021 What about this code Sub Test() Dim w w = Evaluate("ROW(1:" & .Cells(.Rows.Count, "B").End(xlUp).Row - 1 & ")") .Range("A2").Resize(UBound(w, 1)).Value = w End Sub 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 29, 2021 الكاتب مشاركة قام بنشر سبتمبر 29, 2021 السلام عليكم استاذ @lionheart بالنسبة للكود تبع حضرتك يظهر الخطا التالي عند وضعة في وحدة نمطية كما في الصورة شكرا لاهتمامك ياغالي رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر سبتمبر 29, 2021 مشاركة قام بنشر سبتمبر 29, 2021 It seems Evaluate doesn't work in access (I am not sure) but to try add dot before Evaluate .Evaluate Another try add Application before it Application.Evaluate رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 29, 2021 الكاتب مشاركة قام بنشر سبتمبر 29, 2021 سيدي العزثز عند وضع نقطة قبل الكود لايوجد خطا فيه لكن هذا الكود لا بعمل بصورة صحيحة تحباتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان