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

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


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





عكس بيانات الاعمدة

عندى مشكلة اولا تم كتابه البيانات بطريقة خاطئة اتجاه الاعمدة من اليسار الى اليمين فى شيت الصف الثالث دفعة 2018 وعايز ا ..


موضوع مغلق


21-11-2020 07:17 صباحا
محمدمطر
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-02-2018
رقم العضوية : 4244
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 14-11-1976
يتابعهم : 8
يتابعونه : 0
قوة السمعة : 38
 offline 

عندى مشكلة اولا  تم كتابه البيانات بطريقة خاطئة اتجاه الاعمدة من اليسار الى اليمين فى شيت الصف الثالث دفعة  2018 وعايز الصق البيانات فى الشيت الاول اتجاه من اليمين الى اليسار
ثانيا تم تحميل بيانات للطلبة من الموقع الوزارة الموجوده فى شيت 2 وعايز اجمع البيانات الموجوده فى شيت المراد التجميع فيه اتجاهه من اليمين الى اليسار
ثالثا طريقة حذف الاعمدة والصفوف الفارغة الموجوده فى نفس شيت الطلبة المحمل من موقع الوزارة
رابعا مرفق مثال من الملف
وشكر الله لكم حسن صنيعكم
 
 
  تجارب.xls   تحميل xls مرات التحميل :(7)
الحجم :(948.224) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي الكريم بها نبدأ أي موضوع ... 

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

** قم بتنسيط ورقة العمل المسماة "الصف الثالث دفعة 2018" ثم جرب الكود التالي ..
Sub Test()
    Dim a
    a = ActiveSheet.Range("A1").CurrentRegion.Value
    a = Application.Index(a, Evaluate("ROW(1:" & UBound(a, 1) & ")"), [{8,7,6,5,4,3,2,1}])
    With Sheets(1)
        .Columns("A:H").NumberFormat = "@"
        .Range("A1").Resize(UBound(a, 1), UBound(a, 2)).Value = a
        .Columns.AutoFit
        Application.Goto .Range("A1")
    End With
End Sub
عرض الإجابة




21-11-2020 08:31 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 Online 
look/images/icons/i1.gif عكس بيانات الاعمدة
السلام عليكم أخي الكريم بها نبدأ أي موضوع ... 

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

** قم بتنسيط ورقة العمل المسماة "الصف الثالث دفعة 2018" ثم جرب الكود التالي ..
Sub Test()
    Dim a
    a = ActiveSheet.Range("A1").CurrentRegion.Value
    a = Application.Index(a, Evaluate("ROW(1:" & UBound(a, 1) & ")"), [{8,7,6,5,4,3,2,1}])
    With Sheets(1)
        .Columns("A:H").NumberFormat = "@"
        .Range("A1").Resize(UBound(a, 1), UBound(a, 2)).Value = a
        .Columns.AutoFit
        Application.Goto .Range("A1")
    End With
End Sub

21-11-2020 11:20 صباحا
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif عكس بيانات الاعمدة
بالنسبة لعكس الأعمدة يمكن الاستعانه بهذا الملف(معادلة واحدة تسحب يساراً و نزولاً)

 
 
 
  Reverse.xlsx   تحميل xlsx مرات التحميل :(6)
الحجم :(15.926) KB


21-11-2020 08:51 مساء
مشاهدة مشاركة منفردة [3]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif عكس بيانات الاعمدة
استاذنا الفاضل YasserKhalil
استاذنا الفاضل  salim
جزاكم الله خيراً وجعله الله في ميزان حسناتكم اللهم آمين



الكلمات الدلالية
الاعمدة ، بيانات ،


 










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

الساعة الآن 11:31 صباحا