اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

عندي بيانات مصدرنهم من قاعدة البيانات 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:

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

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.

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

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

Important Information