الفشل2004 قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم اخواني كيف الحال عساكم بالف خير عندي استفسار بسيط عندي بيانات مصدرنهم من قاعدة البيانات 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
يحيى حسين قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم و رحمة الله أستخد خاصة خاصية النسخ و اللصق الخاص و لعم ذلك : * قم بنسخ البيانات الموجود في العامود المعني . * ضع مؤشر الماوس في الخلية التي تريد التحويل اليها . * رايت كيلك و اختر PasteSpecial. * اختر من المربع الحواري الذي سيظهر أمامك Transpose أتمنى ان تفي هذه الطريقة بطلبك دمت في حفظ الله
الفشل2004 قام بنشر يوليو 11, 2011 الكاتب قام بنشر يوليو 11, 2011 شكرا اخي شرح جميل بس هذا الطريقة اعرفها انا وما تنفع للبيانات الكبيرة لو تلاحظ في المرفق البيانات تتكرر كل 27 خلية عمودية يعني اريد يكون كل 27 خلية عمودية في صف والبيانات لي عندي كبيرة ما بقدر اعيد العملية على كل 27 خلية انتظر ارائكم وشكرا مرة ثانية مشرفنا "يحيى حسين"
يحيى حسين قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم و رحمة الله اخي عندما فتحت ملفك وجدته فارغ و لا يوجد به بايانات ارجو التأكد منه دمت في حفظ الله
مصطفى كمال قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم ورحمة الله وبركاته السلام عليكم ورحمة الله وبركاته أخي الكريم انظر الملفين المرفقين الملف الثاني طريقة عمل الأول المعادلة تم تطويرها من طرف أحد الإخوة بالمنتدى رجاء أخي الكريم لا تنساه بصالح الدعاء بظهر الغيب
مصطفى كمال قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم ورحمة الله وبركاته السلام عليكم ورحمة الله وبركاته أخي الكريم انظر الملفين المرفقين الملف الثاني طريقة عمل الأول المعادلة تم تطويرها من طرف أحد الإخوة بالمنتدى رجاء أخي الكريم لا تنساه بصالح الدعاء بظهر الغيب php.rar
مصطفى كمال قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم ورحمة الله وبركاته أخي الكريم اعذرني على عدم تحميل الملف منذ قليل، لدي مشكل في الاتصال بالشبكة php.rar
هشام شلبى قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم ===== اخى يحيى واخى مصطفى بارك الله فيكما وكل عام وانتم فى احسن صحة الاخ الفشل2004 شاهد المرفق php.rar
عبد الفتاح كيرة قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 و هذا كود سريع لنفس الغرض 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
الفشل2004 قام بنشر يوليو 11, 2011 الكاتب قام بنشر يوليو 11, 2011 بارك الله فيكم بصدق وانعم فيكم ما عليكم قصور والله لما شفت ردودكم ستانست ربي يغفر لكم دنيا واخرة
الفشل2004 قام بنشر يوليو 11, 2011 الكاتب قام بنشر يوليو 11, 2011 جدا شكرا انا الحين جربت كل المرفقات وكل مرفق احسن من الثاني اللهم ابسط لهم من علمك يا رب
عادل حنفي قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم بارك الله في الجميع و اثراء للموضوع هذا حل بطريقة اخري تحياتي php3.rar
الـعيدروس قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم استاذ عادل اعمالك دائما مميزة وفقك الله
MAHMOUD ALI YOUSSEF قام بنشر يوليو 12, 2011 قام بنشر يوليو 12, 2011 و هذا كود سريع لنفس الغرض 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: :clapping:
عبد الفتاح كيرة قام بنشر يوليو 12, 2011 قام بنشر يوليو 12, 2011 شكرا للأستاذ عادل وشكرا لك أخى MAHMOUDFOXMAM
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.