طلب تحويل عمود واحد الي عدة صفوف

[حسام الدين الحسيني]

السلام عليكم ورحمة الله وبركاته

طلب من الاخوة
عندي مشكلة اني لديه ملف اكسيل يحتوي علي عمود واحد
واريد ان اضع كل 15 خلية في صف واحد

حتي انتهي من العمود باكمله
علما بان بداية العمود الخلية a1
ونهاية العمود الخلية a4000

[سليم حاصبيا]

يمكنك العمل على هذا الملف كبداية

الصفحة الاولى توزيع افقي (حاول تغديل الرقم في الخلية J1 أو K1 )

الثانية توزيع عامودي

 

 

Distribute Hor_or_Ver.rar

تم تعديل يونيو 26, 2016 بواسطه سليم حاصبيا

[حسام الدين الحسيني]

جزاك الله خيرا اخي  سليم حاصبيا

وبارك الله فيك

 

[ابو عبدالبارى]

الأخ الكريم حسام الدين الحسيني

جرب هذا الملف باستخدام الأكواد لعلة يفى بالغرض

abo_abary_توزيع الأعمدة على الصفوف.rar

[سليم حاصبيا]

     مع كل التقدير والاحترام الى الاخ  ابو عبد الباري

تطوير بسيط على الكود في المرفق

 

Salim_توزيع الأعمدة على الصفوف.rar

[أحمد حجاج]

جزاكم الله خيرا جميعا على الفائدة العظيمة دي ودي نقطة من بحر علمكم ومساعداتكم لنا

وإن كان المطلوب توزيع عدة خلايا في صف إلى عمود واحد ما العمل ؟

 

[سليم حاصبيا]

في اي صفحة جديدة املأ الصف من A1 الى اي حلية تريد (Z1  مثلاً ) بأي بيانات

و قم بتنفيذ هذا الكود

اذا كنت تريدها معادلات سأعمل على ذلك

 

Sub list_to_one_col()
laste_col = Cells(1, Columns.Count).End(xlToLeft).Column
 Do
  Cells(m + 3, 1) = Cells(1, k + 1)
 m = m + 1: k = k + 1
 Loop Until k = laste_col
 
End Sub

 

[أحمد حجاج]

7 ساعات مضت, سليم حاصبيا said:

في اي صفحة جديدة املأ الصف من A1 الى اي حلية تريد (Z1  مثلاً ) بأي بيانات

و قم بتنفيذ هذا الكود

اذا كنت تريدها معادلات سأعمل على ذلك

 

Sub list_to_one_col()
laste_col = Cells(1, Columns.Count).End(xlToLeft).Column
 Do
  Cells(m + 3, 1) = Cells(1, k + 1)
 m = m + 1: k = k + 1
 Loop Until k = laste_col
 
End Sub

 

الهدف حضرتك من سؤالي هو تحويل الأصناف الموجودة في المرفق إلى أعمدة لسهولة عمل فرز عليها واستخلاص عدد المبيعات والمرتجعات لكل صنف ، ارجوا أن لا تمل من سؤالي

محاسب.rar

[سليم حاصبيا]

16 دقائق مضت, yqttqt said:

الهدف حضرتك من سؤالي هو تحويل الأصناف الموجودة في المرفق إلى أعمدة لسهولة عمل فرز عليها واستخلاص عدد المبيعات والمرتجعات لكل صنف ، ارجوا أن لا تمل من سؤالي

محاسب.rar

في اي صفحة جديدة املأ الصف من A1 الى اي حلية تريد (Z1  مثلاً ) بأي بيانات

و قم بتنفيذ هذا الكود

اذا كنت تريدها معادلات سأعمل على ذلك

تم عمل المطلوب

امظر الى الصفحة 3

استبدل اسم الصفحة الى test لسهولة التعامل مع اللغة الاجنبية في الكزد

 

Sub list_to_one_col()
laste_col = Cells(1, Columns.Count).End(xlToLeft).Column
 Do
  Cells(m + 3, 1) = Cells(1, k + 1)
 m = m + 1: k = k + 1
 Loop Until k = laste_col
 
End Sub

 

Salim_توزيع الأعمدة على الصفوف.rar

[أحمد حجاج]

15 ساعات مضت, سليم حاصبيا said:

في اي صفحة جديدة املأ الصف من A1 الى اي حلية تريد (Z1  مثلاً ) بأي بيانات

و قم بتنفيذ هذا الكود

اذا كنت تريدها معادلات سأعمل على ذلك

تم عمل المطلوب

امظر الى الصفحة 3

استبدل اسم الصفحة الى test لسهولة التعامل مع اللغة الاجنبية في الكزد

 

Sub list_to_one_col()
laste_col = Cells(1, Columns.Count).End(xlToLeft).Column
 Do
  Cells(m + 3, 1) = Cells(1, k + 1)
 m = m + 1: k = k + 1
 Loop Until k = laste_col
 
End Sub

 

Salim_توزيع الأعمدة على الصفوف.rar

اشكرك على اهتمامك إجابة حضرتك الحقيقة انا مش فاهمها اصلا ، في اي مكان اضع الكود واين اسم الصفحة المراد استبداله والصفحة رقم 3 فارغة  ، عموما مشكور انا طلبت طلبي في موضوع خاص

 

[سليم حاصبيا]

منذ ساعه, yqttqt said:

اشكرك على اهتمامك إجابة حضرتك الحقيقة انا مش فاهمها اصلا ، في اي مكان اضع الكود واين اسم الصفحة المراد استبداله والصفحة رقم 3 فارغة  ، عموما مشكور انا طلبت طلبي في موضوع خاص

 

اعتذر تم تحميل الملف الخطأ

اليك الملف الصحيح (صفحة My_sheet)

 

محاسب salim1.rar

[أحمد حجاج]

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

[ياسر خليل أبو البراء]

إخواني الكرام

لم أتابع الموضوع بشكل جيد من البداية ، وبدأت من حيث انتهى الآخرون .. بدأت من مشاركة أخونا الحبيب سليم والتي أرفق فيها ملف فوجدت الحل بالكود وقد استخدم الحلقات التكرارية في حين أن الموضوع يمكن أن يكون أبسط إذا تم استخدام خاصية الـ TRANSPOSE .. ويمكن برمجتها أيضاً

قم بتحديد النطاق في الصف المراد تحويله لعمود .. على سبيل المثال A7:BC7

كليك يمين ثم كوبي Copy أي نسخ

اذهب للخلية المراد لصق البيانات بها ثم كليك يمين ثم اختر لصق خاص Paste Special وعلم علامة صح على الخيار TRANSPOSE ثم أوك

وكل عام وأنتم بخير

 

[سليم حاصبيا]

2 ساعات مضت, ياسر خليل أبو البراء said:

إخواني الكرام

لم أتابع الموضوع بشكل جيد من البداية ، وبدأت من حيث انتهى الآخرون .. بدأت من مشاركة أخونا الحبيب سليم والتي أرفق فيها ملف فوجدت الحل بالكود وقد استخدم الحلقات التكرارية في حين أن الموضوع يمكن أن يكون أبسط إذا تم استخدام خاصية الـ TRANSPOSE .. ويمكن برمجتها أيضاً

قم بتحديد النطاق في الصف المراد تحويله لعمود .. على سبيل المثال A7:BC7

كليك يمين ثم كوبي Copy أي نسخ

اذهب للخلية المراد لصق البيانات بها ثم كليك يمين ثم اختر لصق خاص Paste Special وعلم علامة صح على الخيار TRANSPOSE ثم أوك

وكل عام وأنتم بخير

 

اخي ياسر 

ليس الموضوع هكذا 

المطلوب تحويل  كل الصفوف الى عامود واحد بينما دالة Transpose تعكس الأعمدة والصفوف

يمكن ان يكون هذا الملف يفي بالغرض

All_On_One_Column.rar