تعديل كود اكسيل

[Ahmed_J]

السلام عليكم اساتذتي الكرام

لدي ملف اكسل تم تصديره من اكسس 

هل يمكن  اكمال وتعديل التسلسل  بكود معين علما انني استخدم   الكود التالي:

      Dim I As Integer
      I = 1
      For I = 1 To 10
      .Range("A" & I).Value = I
      Next

تحياتي للجميع

 

[أ / محمد صالح]

يمكنك استعمال هذا التعديل

Dim I As Integer
For I = 2 To 11
Range("A" & I).Value = I-1
Next I

بالتوفيق 

[Ahmed_J]

استاذي العزيز @أ / محمد صالح

جزيل الشكر لك  تم حل 50% من المشكلة

بقيت مشكلة واحدة فقط  (تحتاج الى تكملة الكود السابق)

هي ان التسلسل يتجاوز عدد الصفوف في ملف الاكسل

المقروض ان يتم ادراج التسلسل حسب المدى لاخر صف لان عدد السحلات يختلف

بين فترة واخرى (غير ثابت) حسب طبيعة العمل

نحياتي للجميع

[lionheart]

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

 

[Ahmed_J]

السلام عليكم  استاذ @lionheart

الكود يظهر اخطاء  كما في الصورة

لانني استخدمه في وحدة نمطية

تحياتي

[lionheart]

Attach your file please

[Ahmed_J]

استاذي العزيز @lionheart

ملف  الاكسل  تم تصديره من اكسس عن طريق وحدة نمطية

تحياتي

tb3 _ 28-09-2021.xlsx

[lionheart]

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

[Ahmed_J]

استاذي العزيز

الكود موجود في وحدة نمطية بالاكسس  تقوم  بتصدير ملف اكسل بتنسق معين

وضعته هنا لان  الموضوع يخص الاكسل 

وشكرا لك 

وبارك الله فيك وبكل الاعضاء

[أ / محمد صالح]

أخي الكريم 

يفضل ذكر كل التفاصيل المتاحة لديك حتي يتم الوصول للحل المطلوب بمنتهى السهولة وعلى مرة واحدة

لكن تجزئة المعطيات تؤدي إلى حلول غير مطلوبة

حسب فهمي للمطلوب أنك تريد

* وضع تسلسل يبدأ من الصف الثاني

* إلى آخر صف مكتوب فيه في العمود 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

بالتوفيق 

[Ahmed_J]

شكرا لكم اساتذتي الاعزاء

كلوا تمام استاذ @أ / محمد صالح 

بارك الله فيكم جميعا

جعلها الله في ميزان حسناتكم

تحياتي للجميع

[أ / محمد صالح]

آمين ولك بمثل ما دعوت وزيادة 

[lionheart]

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

 

[Ahmed_J]

السلام عليكم استاذ @lionheart

بالنسبة للكود تبع حضرتك يظهر الخطا التالي عند وضعة في وحدة نمطية كما في الصورة

شكرا لاهتمامك ياغالي

 

[lionheart]

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

 

[Ahmed_J]

سيدي العزثز

عند وضع نقطة قبل الكود  لايوجد خطا فيه 

لكن هذا الكود لا بعمل بصورة صحيحة 

تحباتي