أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil كود بسيط لمعرفة معلومات مهمه عن جهازك - حسام خطاب اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل

اريد تحويل العمودين A والعمود B الى الجدول المرفق



15-06-2019 03:08 مساء
عبد الله السعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 145
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 87
الاعجاب : 6
 offline 
اريد تحويل العمودين A والعمود B الى الجدول المرفق
 
 
  TTT.rar   تحميل rar مرات التحميل :(4)
الحجم :(12.6) KB





18-06-2019 10:52 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 430
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3401
الاعجاب : 294
 offline 
look/images/icons/i1.gif هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل
جرب هذا الماكرو

Option Explicit
Sub Transfer_data()
Dim i%, m%: m = 4
Dim lrA%, My_text
Dim Wrd(), t%: t = 1
Dim k%, lRD%
Range("D4").Resize(500, 13).ClearContents
lrA = Cells(Rows.Count, "A").End(3).Row
For i = 4 To lrA
     If Range("A" & i) = vbNullString Then
      GoTo NEXT_I
     End If
     My_text = Split(Range("b" & i), " ")
      For k = LBound(My_text) To UBound(My_text)
       If My_text(k) <> vbNullString Then
         ReDim Preserve Wrd(1 To t)
         Wrd(t) = My_text(k)
         t = t + 1
        End If
    
        Next
     Range("D" & m) = Range("A" & i)
     Range("E" & m).Resize(1, UBound(Wrd) - LBound(Wrd) + 1) = Wrd
     m = m + 1
        Erase Wrd
       t = 1
NEXT_I:
 Next
 lRD = Cells(Rows.Count, "d").End(3).Row
 Range("D" & lRD + 1) = "TOTAL"
 Range("E" & lRD + 1).Resize(, 12).Formula = _
 "=SUM(E4:E" & lRD & ")"
End Sub


الملف مرفق (فقط اضغط على الزر Run)
 
 
  TTT_salim_New.rar   تحميل rar مرات التحميل :(1)
الحجم :(21.675) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali،



19-06-2019 08:26 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8179
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23808
الاعجاب : 2472
 offline 
look/images/icons/i1.gif هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل
شعلة نشاط أخي الحبيب سليم
بارك الله فيك وجزاك الله كل خير

أثارت هذه المشاركة إعجاب: ali mohamed ali،



19-06-2019 12:54 مساء
مشاهدة مشاركة منفردة [3]
عبد الله السعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 145
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 87
الاعجاب : 6
 offline 
look/images/icons/i1.gif هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل
بارك الله فيكم

السلام عليكم  اخي سليم

تم استعمال الماكرو الجديد كما يجب

ولكن كما هو في الصور وكما ذكرت من قبل

لا يتم جمع الاعمدة كما هو مشار في الصورة

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

تحياتي لك
 
 
  2019-06-19_125104.png   تحميل png 2019-06-19_125104.png مرات التحميل :(0)
الحجم :(155.696) KB
  2019-06-19_125129.png   تحميل png 2019-06-19_125129.png مرات التحميل :(0)
الحجم :(362.798) KB
 





19-06-2019 02:02 مساء
مشاهدة مشاركة منفردة [4]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 430
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3401
الاعجاب : 294
 offline 
look/images/icons/i1.gif هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل
المشاركة الأصلية كتبت بواسطة: عبد الله السعيد
بارك الله فيكم

السلام عليكم  اخي سليم

تم استعمال الماكرو الجديد كما يجب

ولكن كما هو في الصور وكما ذكرت من قبل

لا يتم جمع الاعمدة كما هو مشار في الصورة

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

تحياتي لك
 

المشاركة الأصلية كتبت بواسطة: عبد الله السعيد
بارك الله فيكم

السلام عليكم  اخي سليم

تم استعمال الماكرو الجديد كما يجب

ولكن كما هو في الصور وكما ذكرت من قبل

لا يتم جمع الاعمدة كما هو مشار في الصورة

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

تحياتي لك
 

تم التعديل على الماكرو ليتجاهل الفراغات في العامودين A & B
المشكلة ان الارقام العشرية مكتوبة بشكل 88306,40 اي باستعمال الفاصلة بدل النقطة وهذه لا يفهمها الاكسل على انها رقم  اي انه يحسبها نصاً (بالجمع يعطيها صفر)  
     بل يعرف ان 88306.40   هي رقم         تم تفادي هذه المشكلة
 

Option Explicit
Sub Transfer_data()
Dim i%, m%: m = 4
Dim lrA%, My_text
Dim Wrd(), t%: t = 1
Dim k%, lRD%

Range("D4").Resize(500, 13).ClearContents
lrA = Cells(Rows.Count, "A").End(3).Row
For i = 4 To lrA
     If Range("A" & i) = vbNullString _
      Or Range("B" & i) = vbNullString Then
      GoTo NEXT_I
     End If
     My_text = Split(Range("b" & i), " ")
      For k = LBound(My_text) To UBound(My_text)
       If My_text(k) <> vbNullString Then
         ReDim Preserve Wrd(1 To t)
         Wrd(t) = Application.Substitute(My_text(k), ",", ".")
         Wrd(t) = IIf(IsNumeric(Wrd(t)), Wrd(t), 0)
         t = t + 1
        End If
       Next
   
    Range("D" & m) = Range("A" & i)
     Range("E" & m).Resize(1, UBound(Wrd) - LBound(Wrd) + 1) = Wrd
     m = m + 1
   
        Erase Wrd
       t = 1
NEXT_I:
 Next
 lRD = Cells(Rows.Count, "d").End(3).Row
 Range("D" & lRD + 1) = "TOTAL"
 Range("E" & lRD + 1).Resize(, 12).Formula = _
 "=SUM(E4:E" & lRD & ")"
End Sub

الملف من جديد
 
 
 
  TTT_salim_New _Extra.rar   تحميل rar مرات التحميل :(2)
الحجم :(22.101) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali،



19-06-2019 03:58 مساء
مشاهدة مشاركة منفردة [5]
عبد الله السعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 145
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 87
الاعجاب : 6
 offline 
look/images/icons/i1.gif هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل
اعلم استاذي الغالي  ، واشكرك على تعبتك معي

وبرجاء فقط جعل الاجمالي في العمود الأخير ومثبت على ذلك




19-06-2019 05:56 مساء
مشاهدة مشاركة منفردة [6]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1396
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6339
الاعجاب : 964
 offline 
look/images/icons/i1.gif هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل
ملف ممتاز استاذ سليم جعله الله فى ميزان حسناتك

أثارت هذه المشاركة إعجاب: salim،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله




الكلمات الدلالية
الشكل ، بهذا ، جدول ، المستخرجين ، العمودين ، تحويل ، ممكن ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:58 صباحا

أعلن هنا
أعلن هنا
أعلن هنا