أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تحويل الصفوف إلى عمود واحد

السلام عليكم أريد تحويل الصفوف الى عمود واحد و على شكل حلزوني يبدأ من tcst1 و ينتهي عند tcst5 ثم tcl4 حتى tcst6 وهكذا ..



26-06-2020 05:34 مساء
chardoneret
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 59
 offline 

السلام عليكم
أريد  تحويل الصفوف الى عمود واحد و على شكل حلزوني
يبدأ من  tcst1 و ينتهي عند tcst5  ثم tcl4 حتى tcst6 وهكذا
عن طريق vba   من فضلكم
 
TCST1 TCST2 TCST3 TCST4 TCST5
TCST6 TCL1 TCL2 TCL3 TCL4
2MT 2M 2SE1 2SE2 2SE3
2SE4 2GE1 2GE2 2LPH1 2LPH2
2LE1 2LE2 3MT 3M 3SE1
3SE2 3SE3 3SE4 3GE1 3GE2
3LP1 3LP2 3LE1 3LE2  

26-06-2020 05:39 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تحويل الصفوف إلى عمود واحد
وعليكم السلام أخي الكريم
يرجى إرفاق ملف مع وضع بعض النتائج المتوقعة ..

26-06-2020 05:49 مساء
مشاهدة مشاركة منفردة [2]
chardoneret
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 59
 offline 
look/images/icons/i1.gif تحويل الصفوف إلى عمود واحد
الملف المرفق كمثال
 
 
  FLIP ROW TO COLUMN.rar   تحميل rar مرات التحميل :(2)
الحجم :(7.132) KB


26-06-2020 06:15 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تحويل الصفوف إلى عمود واحد
مع أنك لم ترفع ملف 
لكن يمكن التوقع ماذا تريد من خلال هذا الملف
 
 
 
  Chardoneret.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(24.125) KB


26-06-2020 06:41 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تحويل الصفوف إلى عمود واحد
جرب الكود بهذا الشكل
Sub Test()
    Dim a, i As Long, j As Long, n As Long
    a = Cells(1).CurrentRegion.Value
    ReDim b(1 To UBound(a, 1) * UBound(a, 2))
    For i = LBound(a) To UBound(a)
        For j = IIf(i Mod 2 = 1, LBound(a, 2), UBound(a, 2)) To IIf(i Mod 2 = 1, UBound(a, 2), LBound(a, 2)) Step IIf(i Mod 2 = 1, 1, -1)
            n = n + 1
            If a(i, j) <> Empty Then b(n) = a(i, j)
        Next j
    Next i
    Range("M1").Resize(n).Value = Application.Transpose(b)
End Sub

26-06-2020 06:58 مساء
مشاهدة مشاركة منفردة [5]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تحويل الصفوف إلى عمود واحد
شكر وتقدير احترام استاذ سليم استاذ ياسر

26-06-2020 07:29 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تحويل الصفوف إلى عمود واحد
بارك الله فيك أخي الكريم أبا الحسن ومشكور على المتابعة.




الكلمات الدلالية
تحويل ، الصفوف ، عمود ، واحد ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:41 مساء