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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





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

لدي عمودان اريد أن يصبح سطر واحد حيث كل خانة من العمود الاول تليها الخانة التي تقابلها في العمود الثاني و هكذا دواليك بر ..



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

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

برمجيا طبعا
مشكورون مسبقا
 
 
  TRANSPOSE2COLUMN.rar   تحميل rar مرات التحميل :(4)
الحجم :(8.256) KB


03-07-2020 08:55 مساء
مشاهدة مشاركة منفردة [1]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif دمج عمودان في سطر واحد بالتناوب
لعله يفيدك اخى
 
 
  TRANSPOSE2COLUMN.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(17.34) KB


04-07-2020 01:12 صباحا
مشاهدة مشاركة منفردة [2]
chardoneret
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 59
 offline 
look/images/icons/i1.gif دمج عمودان في سطر واحد بالتناوب
شكرا أحي على المساعدة لكني أبحث عن دالة.
ماذا لو زاد عدد الاسطر أو نقص

04-07-2020 01:21 صباحا
مشاهدة مشاركة منفردة [3]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 232
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2179
عدد الإجابات: 28
 offline 
look/images/icons/i1.gif دمج عمودان في سطر واحد بالتناوب
السلام عليكم ورحمة الله
استخدم هذا الكود هو اسرع و لا يثقل الملف
Sub From_V_To_H()
Dim Ws As Worksheet
Dim i As Integer, LR As Integer, p As Integer
Set Ws = Sheets("Sheet1")
p = 5
LR = Ws.Range("A" & Rows.Count).End(xlUp).Row
i = 2
Do While i <= LR
If Not IsEmpty(Ws.Cells(i, 1)) Then
p = p + 2
Ws.Cells(2, p) = Ws.Cells(i, 1)
Ws.Cells(2, p + 1) = Ws.Cells(i, 2)
End If
i = i + 1
Loop
End Sub

04-07-2020 03:54 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif دمج عمودان في سطر واحد بالتناوب
بارك الله فيك أخي العزيز إبراهيم وجزاك الله خيراً
إثراءً للموضوع هذا كود آخر باستخدام المصفوفات
Sub Test()
    Dim a, i As Long, j As Long, n As Long
    a = Range("A2").CurrentRegion.Value
    ReDim b(1 To UBound(a, 1) * UBound(a, 2))
    For i = LBound(a, 1) To UBound(a, 1)
        For j = LBound(a, 2) To UBound(a, 2)
            n = n + 1
            b(n) = a(i, j)
        Next j
    Next i
    Range("G5").Resize(, n).Value = b
End Sub

04-07-2020 07:19 صباحا
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif دمج عمودان في سطر واحد بالتناوب
ما بالك تطلب شيئاً وتريد شيئا اخر
في المشاركة الاولى قلت "برمجياً طبعا"
تم تطلب المعادلات
1-برمجيا قام الشباب بوضع كودين مناسبين(و انا اضيف الثالث)
2- بالنسبة للمعادلات 
حرب هذا الملف
المعادلة تعمل حتى 200 عامود (100 صف من البيانات)
(معادلة واخدة تسحب يميناً قدر ما تريد من الأعمدة حتى 200 عامود ويمكن الزيادة)
و لاثراء الموضوع هذا الكود (غير موجود في الملف لكن يمكن نسخه وتنفيذه)

Sub Get_data()
Dim i, k
i = 2: k = 5
Do Until Range("a" & i) = vbNullString
  Cells(5, k).Resize(, 2).Value = _
  Range("a" & i).Resize(, 2).Value
  k = k + 2
  i = i + 1
Loop
End Sub

 
 
 
  TRANS_COLUMN.xlsx   تحميل xlsx مرات التحميل :(5)
الحجم :(17.467) KB


05-07-2020 02:49 مساء
مشاهدة مشاركة منفردة [6]
chardoneret
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 59
 offline 
look/images/icons/i1.gif دمج عمودان في سطر واحد بالتناوب
شكرا للجميع على سعة الخاطر و بارك الله فيكم و شكر سعيكم




الكلمات الدلالية
عمودان ، واحد ، بالتناوب ،


 










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

الساعة الآن 06:07 صباحا