تحويل مجموعة خلايا مرتبة ( ضمن صفوف وأعمدة ) من صفوف إلى أعمدة

[وسيم العش]

مثال.rar

[طارق محمود]

السلام عليكم

تفضل أخي الكريم

هذا الكود

Sub TRANS()

LC = [IV1].End(xlToLeft).Column

For c = 5 To LC Step 4

	r = [A1].End(xlDown).Row + 1

	Range(Cells(1, c), Cells(6, c + 3)).Cut (Cells(r, 1))

Next c

End Sub

وبالمرفق إضغط الزر الأحمر

صفوف-اعمدة_TAREQ.rar

[وسيم العش]

جزاكم الله كل الخير

[وسيم العش]

صفوف-اعمدة_TAREQ.rarأستاذي الفاضل

:تعرضت لمشكلة أرجو أن تجد لها حلاً

المشكلة مبينة بالمرفق

ولك مني فائق التقدير والاحترام

[طارق محمود]

السلام عليكم

تفضل أخي

صفوف-اعمدة_TAREQ2.rar

[وسيم العش]

سيدي الكريم

في حال أردت التغيير بعدد الأعمدة , ما هو اللازم تعديله بالكود؟

موضوع الصفوف اكتشفته . لكن موضوع الأعمدة وجدته صعباً لضعفي في مجال البرمجة .

وشكرا لتعاونكم

[طارق محمود]

السلام عليكم

أخي الكود كالتالي

Sub TRANS()

'هذا يأتي بآخر عمود بالصف1 وفي حالتنا

LC = [IV1].End(xlToLeft).Column  ' Last Column



For c = 5 To LC Step 4 'معناه أن نبدأ عملية النقل من العمود الخامس

    r = (Int((c - 4) / 4) + 1) * 6 + 1 'لنقله الي الصف r الذي يتم حسابه بمعلومية الرقم 4 وهو عدد الأعمدة

    Range(Cells(1, c), Cells(1, c).Offset(5, 3)).Cut (Cells(r, 1))

Next c

End Sub

يعني الرقم بعد Step هو عدد الأعمدة

For c = 5 To LC Step 4

وكذلك المرتين للرقم 4 في السطر

r = (Int((c - 4) / 4) + 1) * 6 + 1

[وسيم العش]

جزاكم الله كل خير أستاذ طارق

ونفعنا بعلمكم

[إبراهيم ابوليله]

الاخ طارق

بارك الله فيك

ولكن ماذا لو اردنا ارجاع الاعمده الى صفوف كما كانت

[طارق محمود]

السلام عليكم

أخي العزيز / إبراهيم

كنت أفضل انك تحاول أولا

مع الشرح السابق اعتقدت أنها ستكون سهلة

ولكن تفضل المرفق

صفوف-اعمدة_TAREQ3.rar

[إبراهيم ابوليله]

الاخ طارق

بارك الله فيك

ولكن ماذا لو اردنا ارجاع الاعمده الى صفوف كما كانت

[إبراهيم ابوليله]

الاخ طارق

ما هو المعيار الموجود بالكود الذى يتحدد بناء عليه رقم الصف

بمعنى ماذا لو ان البيانات تبدأ من الخليه b2 بدلا من a1

[رجب جاويش]

الأخ الفاضل / الباشمهندس طارق

بعد التحية

من منطق محاولة التعلم من خبرات الأساتذة الكبار مثل حضرتك قمت بعمل بعض التعديلات البسيطة على الكود

Sub TRANS()

LC = [IV1].End(xlToLeft).Column

r = 7

For c = 5 To LC Step 4

	Cells(1, c).Resize(6, 4).Cut (Cells(r, 1))

	r = r + 6

Next c

End Sub

Sub TRANS2()

LR = [A1000].End(xlUp).Row

c = 5

For r = 7 To LR Step 6

	Range("A" & r).Resize(6, 4).Cut (Cells(1, c))

	c = c + 4

Next r

End Sub

صفوف-اعمدة 1_TAREQ3.rar

[إبراهيم ابوليله]

الاخ رجب

مشكورا على المجهود الرائع

ممكن شرح الكود

بمعنى ماذا تعنى LC = [iV1].End(xlToLeft).Column

وماذا For c = 5 To LC Step 4

وماذا تعنى Cells(1, c).Resize(6, 4).Cut (Cells(r, 1))

r = r + 6

وماذا تعنى

LR = [A1000].End(xlUp).Row

وماذا تعنى

For r = 7 To LR Step 6

Range("A" & r).Resize(6, 4).Cut (Cells(1, c))

c = c + 4

[رجب جاويش]

أخى ابراهيم

السطر التالى خاص بالحصول على أخر عمود يحتوى على بيانات ( فى الصف الأول)

LC = [iV1].End(xlToLeft).Column

r = 7

الجزء التالى حلقة تكرارية تبدأ من الرقم 5 حتى أخر عمود به بيانات حصلنا عليه فى الخطوة السابقة

أما الجزء step 4 فهو يحدد مقدار الزيادة التى تتم على المتغير c

أى فى الخطوة الأولى يكون c = 5 ثم الخطوة التالية يكون 9 وهكذا

For c = 5 To LC Step 4

السطر التالى اعادة تحجيم ل 6 أعمدة و 4 صفوف ابتداءا من الخلية المذكورة فى البداية (1, c )

ثم قص الخلايا المذكورة ولصقها فى الخلية ( r , 1 )

Cells(1, c).Resize(6, 4).Cut (Cells(r, 1))

فى السطر التالى نزيد 6 على قيمة r

r = r + 6

الكود الثانى نفس فكرة الكود الأول

[إبراهيم ابوليله]

الاخ رجب

ممكن المساعدهصفوف-اعمدة 1_TAREQ3.rar

[رجب جاويش]

تفضل أخى

صفوف-اعمدة 1_TAREQ3.rar

[إبراهيم ابوليله]

الاخ رجب

مشكورا لك التوضيح

ولكن استكمالا للفهم الاكثر

ممكن شرح الخطأ

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

واذا لم يكن صحيح فارجو التعديل

صفوف-اعمدة 1_TAREQ3.rar

[رجب جاويش]

أخى ابراهيم

هناك تعديل واحد فقط وهو تغير الرقم 2 بالرقم 3 فى السطرين التاليين

	Cells(2, c).Resize(6, 4).Cut (Cells(r, 1))

Range("A" & r).Resize(6, 4).Cut (Cells(2, c))

[إبراهيم ابوليله]

الاخ رجب

بارك الله فيك

ولكن ممكن تشرح لى

Resize(6, 4)

وهل للرقم 6 عمل معين

وايضا للرقم 4 عمل معين

[إبراهيم ابوليله]

الاخ رجب بارك الله فيك

ولكن الحمد لله الان استطعت تفهم جميع محتويات الكود

وهذا يرجع الى حسن تعاونك

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

[إبراهيم ابوليله]

الاخ رجب

ماتصورك لحل هذه المشكله

صفوف-اعمدة 1_TAREQ3.rar

[طارق محمود]

السلام عليكم

أخي ابراهيم

انظر الفيديو المرفق

paste_Special.rar

[رجب جاويش]

أخى ابراهيم

تفضل حل بالاكواد

صفوف-اعمدة 1_TAREQ3.rar

[رجب جاويش]

وهذا كود آخر

يعتمد على الفكرة الموجودة فى فيديو الأخ العزيز / طارق

صفوف-اعمدة 2_TAREQ3.rar