محمد المهندس قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 السلام عليكم ورحمة الله وبركاته لو كان عندي أسماء في عمود وأريد في صف واحد فهل يمكن ذلك باستخدام المعادلات؟ بمعنى عندما آخدهم جميعا نسخًا من مكان إلى آخر سينزلون على نفس الهئية السابقة فهل يمكنني أن أُحَوِّل اتجاههم من عمود إلى صف مرة واحدة؟ على سبيل المثال: E D C B A 1 أحمد 2 محمد 3 عصام 4 إبراهيم ------------------------------------------------------ وأريد أن أجعلهم بعد أخذهم جميعا من مكانهم هذا نسخًا ثم لصقًا إلى هنا بهذا الشكل: E D C B A 1 أحمد محمد عصام إبراهيم 2 3 4 وشكرًا لسعة صدركم لي .. وأعتذر عن عدم إنشاء ملف اكسيل على ذلك لأني أرى هذان الشكلان قد وضَّحا ما أردتُ.. رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 و عليكم السلام و رحمة الله وبركاته بعد النسخ تختار الخلية الأولى محل اللصق ثم كليك يمين من الماوس ثم تختار لصق خاص ثم تختار تبديل موضع كما في الصورة ثم موافق رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 بارك الله فيك أخي الحبيب ومعلمي الكبير أحمد يعقوب وهذا ملف للأستاذ الكبير محمد الريفي بالمعادلات إثراءً للموضوع Transpose Rows And Columns.rar 2 رابط هذا التعليق شارك More sharing options...
محمد المهندس قام بنشر أغسطس 9, 2017 الكاتب مشاركة قام بنشر أغسطس 9, 2017 شكرًا جزييييييييييييلا لكما أ. أحمد و أ. ياسر شكرًا شكرًا شكرًا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 وهذا ملف اخر بردو معادلات hor_to_vert.rar 1 رابط هذا التعليق شارك More sharing options...
محمد المهندس قام بنشر أغسطس 12, 2017 الكاتب مشاركة قام بنشر أغسطس 12, 2017 أعتذر أ. سليم .. الملف الذي أرفقتَه عندما أفتحُه تأتي رسالة تقول (هذا الملف تالف لا يمكن فتحه) رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 12, 2017 مشاركة قام بنشر أغسطس 12, 2017 لا اعلم ما السبب في ذلك مع انه يعمل عندي بصورة حيدة تم رفعه مرة ثانية hor_to_vert1.rar رابط هذا التعليق شارك More sharing options...
محمد المهندس قام بنشر أغسطس 16, 2017 الكاتب مشاركة قام بنشر أغسطس 16, 2017 تمام .. اشتغل كدة .. شكرًا جزيلا أ. سليم رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 16, 2017 مشاركة قام بنشر أغسطس 16, 2017 حل آخر بالأكواد .. وهو مرن في حالة تمدد النطاق بشكل أو بآخر حيث يتم تعديل النطاق في الكود ليناسب احتياجاتك Sub Test_TransposeArray_UDF() Dim a As Variant Dim b As Variant a = Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value b = TransposeArray(a) Range("C4").Resize(UBound(b, 1), UBound(b, 2)).Value = b End Sub Function TransposeArray(arr As Variant) As Variant Dim i As Long Dim j As Long ReDim temp(1 To UBound(arr, 2), 1 To UBound(arr, 1)) For i = 1 To UBound(temp, 1) For j = 1 To UBound(temp, 2) temp(i, j) = arr(j, i) Next j Next i TransposeArray = temp End Function رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.