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

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


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





عكس ترتيب الصفوف

السلام عليكم ورحمة الله وبركاته كل عام وانتم بكل خير ووافر الصحه والعافيه اريد المساعدة بالملف بجعل الصفوف معكوسه جزاكم ..



28-06-2020 10:12 مساء
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
كل عام وانتم بكل خير ووافر الصحه والعافيه
اريد المساعدة بالملف بجعل الصفوف معكوسه
جزاكم الله خيرا
 
  عكس الصفوف.jpg   تحميل jpg عكس الصفوف.jpg مرات التحميل :(0)
الحجم :(195.565) KB
 
  عكس الصفوف.rar   تحميل rar مرات التحميل :(3)
الحجم :(8.508) KB


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

Option Explicit

Sub Reverse_Please()
Dim SW As Worksheet
Dim RO%, Col%, i%, j%, m%, k%, My_col%

Set SW = Sheets("عكس صفوف")
RO = SW.Range("A1").CurrentRegion.Rows.Count
Col = SW.Range("A1").CurrentRegion.Columns.Count

With SW.Range("A9").CurrentRegion
.Interior.ColorIndex = xlNone
.CurrentRegion.ClearContents
End With

m = 9: k = 1
 
For i = 1 To RO
 My_col = IIf((i Mod 2) = 1, 43, 6)
    For j = Col To 1 Step -1
      SW.Cells(m, j) = SW.Cells(i, k)
      k = k + 1
    Next j
    SW.Cells(m, j + 1).Resize(, Col). _
    Interior.ColorIndex = My_col
     k = 1: m = m + 1
 Next i
End Sub

File Included
 
 
  Reverse.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(33.059) KB


29-06-2020 12:05 صباحا
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif عكس ترتيب الصفوف
جزاك الله خيرا 
طيب حضرتك استاذ سليم عاوز انقله لصفحه اخرى بنفس الترتيب الجديد ابتداءا من A1..عشان لو البيانات كثيره

29-06-2020 06:34 صباحا
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif عكس ترتيب الصفوف
للنسخ الى صفحة اخرى
اعطيتها اسم  "New_sheet" يجب اضافتها  أو تسمية ورقة اخرى بنفس الاسم

Sub Reverse_To_other_sheet()
Dim SW As Worksheet
Dim N As Worksheet
Dim RO%, Col%, i%, j%, m%, k%

Set SW = Sheets("عكس صفوف")
Set N = Sheets("New_sheet") 'Put here the correct Name Of Your sheet
RO = SW.Range("A1").CurrentRegion.Rows.Count
Col = SW.Range("A1").CurrentRegion.Columns.Count

N.Range("A1").Resize(RO, Col).Clear

m = 1: k = 1

For i = 1 To RO
    For j = Col To 1 Step -1
      N.Cells(m, j) = SW.Cells(i, k)
      k = k + 1
    Next j
     k = 1: m = m + 1
 Next i
 
 SW.Range("A1").CurrentRegion.Copy
  N.Range("A1").PasteSpecial 4
  Application.CutCopyMode = False
End Sub

 

29-06-2020 04:51 مساء
مشاهدة مشاركة منفردة [4]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif عكس ترتيب الصفوف
جزاك الله خيرا استاذ سليم ... دا المطلوب...اسعد الله ايامك




الكلمات الدلالية
ترتيب ، الصفوف ،


 










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

الساعة الآن 06:42 مساء