لدي عمود به 2000 رقم واريد بدالة او كود تحويلهم لجدول بالشكل المطلوب كيف اقوم بذلك

[اوفيس 2003]

مرفق ملف لما اريد مع الشرح الله يبارك فيكم ان اردت ذلك في اي موضوع اخهر وتقسيمات لجداول اخرى

Q.rar

[عبدالله باقشير]

h

مرفق ملف لما اريد مع الشرح الله يبارك فيكم ان اردت ذلك في اي موضوع اخهر وتقسيمات لجداول اخرى

تفضل الكود التالي:

Sub kh_Start()

Dim i As Long, ii As Long

ii = 1

For i = 1 To 2000 Step 80

With Sheets("المطلوب")

.Cells(ii, "A").Resize(40, 1).Value = Sheets("المعطى").Cells(i, 1).Resize(40, 1).Value

.Cells(ii, "C").Resize(40, 1).Value = Sheets("المعطى").Cells(i + 40, 1).Resize(40, 1).Value

End With

ii = ii + 40

Next

End Sub

المرفق 2007 الشرح:

For i = 1 To 2000 Step 80

السلسلة من 1 الى 2000 بمسافة 80 في الشيت المطلوب

Sheets("المطلوب")

في هذا الشيت نحتاج بكل دورة 40 صف للعمود A

.Cells(ii, "A").Resize(40, 1).Value

ونحتاج بكل دورة 40 صف للعمود C

.Cells(ii, "C").Resize(40, 1).Value

و بعد كل دورة تضاف 40 فوق المتغير ii

?ii = ii + 40

في الشيت المعطى لكل دورة اول 40 صف تعطى للعمود A من شيت المطلوب

Sheets("المعطى").Cells(i, 1).Resize(40, 1).Value

ما بعد 40 صف تعطى للعمود C من شيت المطلوب

?Sheets("المعطى").Cells(i + 40, 1).Resize(40, 1).Value

ارجوا ان يكون شرحي مفهوم لديكم

طلبنا الوحيد الدعاء

Q.rar

[ابن بنها]

شرحك جعلني افهم الكود .... علامة الله يبارك لك

لو كل الاكواد يكون فيها مثل هذا الشرح

[اوفيس 2003]

بارك الله فيك وجعلها في ميزان حسناتك ياغالي