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

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

قام بنشر

صباح الخير :

السادة الافاضل :

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

مع خالص الشكر و التقدير

لصق خاص.rar

قام بنشر

ماشاء الله أستاذي شئ خرافي وتميز منقطع النظير

ولكن هناك حل بسيط يمكن للمبتدئيين أمثالي أتباعة في مثل هذه الحالات وهو الأتي

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

قام بنشر

السلام عليكم

عمل مميز استاذ رجب وتطبيق رائع للمصفوفات

===

هذا الكود يقوم بنفس العمل


Sub ragab2()

T = 2

Range("B8:iv8").ClearContents

LC = [iv5].End(xlToLeft).Column

For i = LC To 2 Step -1

Cells(8, T) = Cells(5, i)

T = T + 1

Next

End Sub

قام بنشر

ما شاء الله لا قوة إلا بالله

تعاون رائع و حلول أروع أستفدت منها الكثير

جزاكم الله خيرا يا شباب و نفع بكم جميعا

قام بنشر

أستاذى الرائع والمبدع / عبد الله باقشير

شرف كبير جدا لى تعليق أستاذى على مشاركة لى

وشرف كبير هذا التشجيع من أستاذى وفعلا هذا هو تواضع العلماء

بالفعل شرح حضرتك لموضوع المصفوفات أزال الرهبة من المصفوفات وفتح الطريق لاستخدامها

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

قام بنشر

أخى الحبيب / محمود

أخى الحبيب / أبو حنين

أخى الحبيب / أبو ردينة

أخى الحبيب / ابراهيم أبو ليله

أخى الحبيب /nofal.saad

حفظكم الله جميعا وجزاكم الله كل خير على هذا المرور العطر

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