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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تجزئة الاسماء المركبة وفصلها عن الاسماء العادية اكسيل اسئله واجابات


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



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





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

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



15-06-2019 03:08 مساء
عبد الله السعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 73
الاعجاب : 1
 Online 

اريد تحويل العمودين A والعمود B الى الجدول المرفق
 
 
  TTT.rar   تحميل rar مرات التحميل :(4)
الحجم :(12.6) KB







18-06-2019 10:52 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 362
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 15
قوة السمعة : 3052
الاعجاب : 140
 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
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل
شعلة نشاط أخي الحبيب سليم
بارك الله فيك وجزاك الله كل خير

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




19-06-2019 12:54 مساء
مشاهدة مشاركة منفردة [3]
عبد الله السعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 73
الاعجاب : 1
 Online 
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
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 362
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 15
قوة السمعة : 3052
الاعجاب : 140
 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 مرات التحميل :(1)
الحجم :(22.101) KB


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




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

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





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

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


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




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


 







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



الساعة الآن 10:59 مساء

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