اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by محمد طاهر عرفه,

الردود الموصى بها

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


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

و هذا هو الكود

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

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

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

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

 


 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

 

 

Matrix.PNG

  • Like 2
رابط هذا التعليق
شارك

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

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

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

  • Like 2
رابط هذا التعليق
شارك

  • 4 months later...

السلام عليكم

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

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

اضغط 

ALT+D 

ثم P

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

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

image.png.8b5ce394f8797fd428b21fa2a685c8a9.png

 

ثم

image.png.5666dfac0667d7d778acd96f330aa5aa.png

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

image.png.2ecc6c71592cbc45a4b6c5fa2dc3bb64.png

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

image.png.be52c5e9d794edcfb1aa77dca8a8f540.png

 

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

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

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

Double Click

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

image.png.ff0559ac79c385beb145dd7f1827573e.png

 

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

 

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

 

image.png.c4c7ce27dd13c8f1dcc742909ce350bf.png

 

 

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information