اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم ورحمة الله وبركاته

طلبى ببساطه هو عكس اعمدة جدول وليس ورقة عمل

او طريقة لترحيل اعمده

والصورة المرفقه توضح طلبى

post-80190-0-34840400-1346701947_thumb.p

قام بنشر

السلام عليكم

الاخ الفاضل klma7lwa

استخدم هذا الكود


Sub Ali()

CC = 9

For C = 1 To 4

   For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row

Cells(R, CC).Value = Cells(R, C).Value

   Next

   CC = CC - 1

Next

End Sub

قام بنشر

السلام عليكم ورحمة الله

أخي الكريم، يمكن القيام بذلك باستعمال خاصية الفرز بالطريقة التالية:

1- نقوم بترقيم الأعمدة من A إلى D في السطر الأول (فارغا) ترتيبا تنازليا من 5 إلى 1

2- نحدد الأعمدة من A إلى D

3- نختار من قائمة الأوامر "DATA" أي "بيانات" ثم نختار الخاصية "فرز" "SORT" حسب السطر الأول ونختار في "خصائص" أي "Options" الخاصية من اليمين إلى اليسار Sort right to left أو من اليسار إلى اليمين Sort left to right (حسب طريقة عرض الورقة في الإكسيل)... ثم نوافق على الاختيارات.....

أتمنى أن يكون الشرح مفهوما...

أخوك بن علية

  • Thanks 2
قام بنشر (معدل)

السلام عليكم ورحمة الله

أخي الكريم، قمت ببعض التغييرات على ملف أخي الحبيب محمود الذي أرفقه في الرد رقم 6... حيث اختصرت التسميات صف2، صف3، ... الخاصة باالنطاقات Sheet1!$A$2:$D$2ـ Sheet1!$A$3:$D$3... إلى تسمية واحدة "صف" لنطاق متغير Sheet1!$A1:$D1 (متغير حسب رقم السطر) وحجزت المعادلة :

=IF(INDEX(صف;ROWS(الراتب)-ROW(INDIRECT("a"&COLUMN()-1))+1)="";"";INDEX(صف;ROWS(الراتب)-ROW(INDIRECT("a"&COLUMN()-1))+1))

في الخلية M2 ثم نسخها إلى آخر الجدول (عناوين الجدول + بياناته)...

وهذا تفاديا لتغيير المعادلات في الجدول وإضافة تسميات عديدة (وخاصة لما يكون هذا الجدول كبيرا بعدد صفوفه)

تجد كل ذلك في الملف المرفق...

أخوكم بن علية

عكس جدول بالمعادلات_2.rar

تم تعديل بواسطه بن علية حاجي
  • Thanks 1
قام بنشر

أستاذي (بن علية ) بعد تعديلك هذا تبرأالملف مني ولم يعد ينتمي لي ولكن أصبح منتميا أكثر للعبقرية التي قامت بهذا التعديل أنت مكسب أستاذي لهذا الصرح بارك الله فيك

قام بنشر

بسم الله ماشاء الله

بارك الله فيكم

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

شكرا للرد والافاده

جعله الله فى ميزان حسناتكم وزادنا وايكم من علمه

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information