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

تغير الاعمدة إلى صفوف


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

السلام عليكم اخواني كيف الحال عساكم بالف خير

عندي استفسار بسيط

عندي بيانات مصدرنهم من قاعدة البيانات My SQL

لكن تجيني البيانات فوق بعضها على ملف الاكسل

مثل هذا بضبط

1847257892 3 1 N1

1847257892 3 2 1101

1847257892 3 3 N1

1847257892 3 4 N3

1847257892 3 5 N7

1847257892 3 6 N6

1847257892 3 7 N6

1847257892 3 8 N7

1847257892 3 9 N5

1847257892 3 10 N5

1847257892 3 11 N6

1847257892 3 12 N6

1847257892 3 13 N5

1847257892 3 14 N4

1847257892 3 15 N7

1847257892 3 16 N7

1847257892 3 17 N7

1847257892 3 18 N5

1847257892 3 19 N5

1847257892 3 20 N5

1847257892 3 21 N6

1847257892 3 22 N7

1847257892 3 23 N7

1847257892 3 24 N7

1847257892 3 25 N7

1847257892 3 26 N7

1847257892 3 27 N3

1646241642 3 1 N1

1646241642 3 2 12333

1646241642 3 3 N1

1646241642 3 4 N3

1646241642 3 5 N3

1646241642 3 6 N3

1646241642 3 7 N3

1646241642 3 8 N4

1646241642 3 9 N5

1646241642 3 10 N7

1646241642 3 11 N5

1646241642 3 12 N7

1646241642 3 13 N5

1646241642 3 14 N6

1646241642 3 15 N6

1646241642 3 16 N6

1646241642 3 17 N4

1646241642 3 18 N5

1646241642 3 19 N5

1646241642 3 20 N3

1646241642 3 21 N3

1646241642 3 22 N5

1646241642 3 23 N5

1646241642 3 24 N4

1646241642 3 25 N5

1646241642 3 26 N7

1646241642 3 27 N5

1958660568 3 1 N1

1958660568 3 2 1455

1958660568 3 3 N2

1958660568 3 4 N4

1958660568 3 5 N3

1958660568 3 6 N3

1958660568 3 7 N4

1958660568 3 8 N4

1958660568 3 9 N6

1958660568 3 10 N7

1958660568 3 11 N4

1958660568 3 12 N7

1958660568 3 13 N4

1958660568 3 14 N4

1958660568 3 15 N5

1958660568 3 16 N3

1958660568 3 17 N5

1958660568 3 18 N3

1958660568 3 19 N5

1958660568 3 20 N5

1958660568 3 21 N5

1958660568 3 22 N6

1958660568 3 23 N3

1958660568 3 24 N4

1958660568 3 25 N4

1958660568 3 26 N5

1958660568 3 27 N5

لي اريده

ان يكون البيانات بشكل افقي

مثل ما هو مرفق في الملف

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

phpQAnswer2.rar

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

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

أستخد خاصة خاصية النسخ و اللصق الخاص

و لعم ذلك :

* قم بنسخ البيانات الموجود في العامود المعني .

* ضع مؤشر الماوس في الخلية التي تريد التحويل اليها .

* رايت كيلك و اختر PasteSpecial.

* اختر من المربع الحواري الذي سيظهر أمامك Transpose

أتمنى ان تفي هذه الطريقة بطلبك

دمت في حفظ الله

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

شكرا اخي

شرح جميل

بس هذا الطريقة اعرفها انا

وما تنفع للبيانات الكبيرة

لو تلاحظ في المرفق

البيانات تتكرر كل 27 خلية عمودية

يعني اريد يكون كل 27 خلية عمودية

في صف

والبيانات لي عندي كبيرة

ما بقدر اعيد العملية على كل 27 خلية

انتظر ارائكم

وشكرا مرة ثانية مشرفنا "يحيى حسين"

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

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

اخي عندما فتحت ملفك وجدته فارغ و لا يوجد به بايانات

ارجو التأكد منه

دمت في حفظ الله

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

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

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

أخي الكريم انظر الملفين المرفقين

الملف الثاني طريقة عمل الأول

المعادلة تم تطويرها من طرف أحد الإخوة بالمنتدى رجاء أخي الكريم لا تنساه بصالح الدعاء بظهر الغيب

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

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

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

أخي الكريم انظر الملفين المرفقين

الملف الثاني طريقة عمل الأول

المعادلة تم تطويرها من طرف أحد الإخوة بالمنتدى رجاء أخي الكريم لا تنساه بصالح الدعاء بظهر الغيب

php.rar

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

و هذا كود سريع لنفس الغرض

Sub Macro1()

'macro by Kemas 11-7-2011

lastrow = Range("a" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False

k = 1

    For i = 27 To lastrow Step 27


        Range("D" & i - 26 & ":D" & i).Copy

        Range("E" & k).Select

        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

        k = k + 1

   Next i

 Application.ScreenUpdating = True

End Sub

جرب المرفق بالصفحة الأخيرة

كل 27 صفا فى عمود تلصق لصف واحد-kemas.rar

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

و هذا كود سريع لنفس الغرض

Sub Macro1()

'macro by Kemas 11-7-2011

lastrow = Range("a" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False

k = 1

    For i = 27 To lastrow Step 27


        Range("D" & i - 26 & ":D" & i).Copy

        Range("E" & k).Select

        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

        k = k + 1

   Next i

 Application.ScreenUpdating = True

End Sub

جرب المرفق بالصفحة الأخيرة

بارك الله فيك

اخي كميس :fff: :fff: :fff::clapping: :clapping: :clapping:

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information