البحث في الموقع
Showing results for tags 'إلى عمود'.
تم العثور علي 1 نتيجه
-
اعرض الملف كود لتحويل مصفوفة إلى عمود واحد رأسي اجتجت الي تجويل البيانات فى مصفوفات الى عمود واجد رأسي ، فقمت باعداد هذا الملف و هذا هو الكود و يجب تظليل (اختيار) المصفوفة المطلوب تحويلها لعمود قبل تشغيل الكور اختار المصفوفة ثم اضغط على الزر ملاحظة : بفضل تجميل الاصدار الاخير الذي يظهر اسفل الصفحة لانه به ميزة اضافية 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 الاقسام قسم الإكسيل
