مكتبة الموقع - كود لتحويل مصفوفة إلى عمود واحد رأسي

[محمد طاهر عرفه]

اعرض الملف

كود لتحويل مصفوفة إلى عمود واحد رأسي

---

اجتجت الي تجويل البيانات فى مصفوفات الى عمود واجد رأسي ، فقمت باعداد هذا الملف

و هذا هو الكود

و يجب تظليل (اختيار) المصفوفة المطلوب تحويلها لعمود قبل تشغيل الكور

اختار المصفوفة ثم اضغط على الزر

ملاحظة : بفضل تجميل الاصدار الاخير الذي يظهر اسفل الصفحة لانه به ميزة اضافية 

Sub MakeOneColumn()
 Dim Myrows As Integer, Mycols As Integer
Myrows = Selection.Rows.Count
Mycols = Selection.Columns.Count

With ActiveCell

For i = 0 To Mycols '6
 For j = 0 To Myrows '3
   .Offset(Myrows * (i) + j) = .Offset(j, i)
   
 Next j
Next i

 End With
End Sub

 

الكود المعدل فى الاصدار التاني ، 

للتشغيل اختار البيانات دون رؤس الأعمدةو الصفوف

Sub MakeOneColumn()
 Dim Myrows As Integer, Mycols As Integer
Myrows = Selection.Rows.Count
Mycols = Selection.Columns.Count

With ActiveCell
    For i = 0 To Mycols - 1
     For j = 0 To Myrows - 1
       ' record matrix value
       .Offset(Myrows * (i) + Myrows + 1 + j, 1) = .Offset(j, i)
       ' record Row
        .Offset(Myrows * (i) + Myrows + 1 + j, -1) = .Offset(j, -1)
     ' record Col
        .Offset(Myrows * (i) + Myrows + 1 + j, 0) = .Offset(-1, i)
        
      Next j
    Next i
 End With

End Sub

 

---

• صاحب الملف
  محمد طاهر
• تمت الاضافه
  10 يول, 2019
• الاقسام
  قسم الإكسيل

 

[محمد طاهر عرفه]

هذا مثال على اضافة ملف لمكتبة الموثع  (مركز الملفات )

و هذه خاصية لم تستخدم كثيرا فى الفترة الماضية

ويتم اضافة الملف الى مكتبة الموقع لاضافة ملف مفيد عام و ليس رد  او حل موضوع

و بناء علىه يتم اليا فتح موضوع فى القسم المناظر مثلا هذا الموضوع هنا

و يتم ربط موضوع الحوار بالملف  ، كما يمكن اضافة اصدارات مختلفة للملف  

ملاحظة : خاصية الاضافة للمكتبة ليست متاحة للاعضاء الجدد

[محمد طاهر عرفه]

تم اضافة الاصدار الثاني الي نفس الموضوع فى مركز تجميل الملفات

و يتضمن هذا الاصدار تسجيل اسماء الحقول لكل من العمود و الصف المناظر للخلية

ايضا نقوم بتظليل المجال المطلوب تحويله فى المصفوفة (دون عناوين الصفوف و الاعمدة) كما فى الصورة

ثم نشغل الماكرو

 

 

[Ali Mohamed Ali]

رائع أستاذ محمد ,التجربة تمام ورائعة وناجحة بكل المقاييس

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

مبروك وفى تقدم ونجاح دائم ان شاء الله والإرتقاء بمنتدانا لأعلى الدرجات وأعلى المراتب

[محمد طاهر عرفه]

السلام عليكم

تعرفت على طريفة أخرى لعمل نفس الشي بدون كود

و ذلك  عن طريق اتباع الخطوات التالية

اضغط 

ALT+D 

ثم P

و ذلك لاستدعاء مساعد الجدوال المحورية

ثم اختار الاختبارات الموضحة فى الصورة التالية

 

ثم

ثم ختار المجال المراد تحويلة ثم اضغط ADD

و سيتم انشار الجدول

 

ثم الان اختار الخلية المعبرة عن المجال المراد تحويله

فمثلا لو ارد تحويل كامل الجدول اختار خلية الاجمالي التي بها الرقم 171

و الان انقر نقر مزدوج

Double Click

و ستجد المفاجأة التحويل المطلوب قد تم

 

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

 

فمثلا لتحويل الصف الاول فقط فى المصفوفة اختار الخلية H5 و انقر نقر مزدوج

 

 

 

 

[Ali Mohamed Ali]

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله