اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود نسخ عدد ناتج عن حساب عدد الاسطر في ملف اكسل


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

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

المطلوب غير واضح لي

ولكن

ربما تقصد أن تكتب في الخلية J2

=E2

ليظهر نفس الرقم الموجود في E2

رابط هذا التعليق
شارك

رغم أنه أي تحديث في الخلية E2 سيتم تغييره في الخلية J2

ما زال المطلوب غير واضح لي

رابط هذا التعليق
شارك

الفيمة الموجودة قي E2 ناتجة عن حساب أكبر قيمة في المدى من A3:A1000 وهي 18 حاليا

=MAX(A3:A1000)

وإذا كنبنا في J2 هذه المعادلة

=E2

فسيظهر نفس الرقم 18

هذا شرح بالتفصيل لما قمت أنا  بعمله حاليا

ما المطلوب بالتفصيل ؟

رابط هذا التعليق
شارك

  • أفضل إجابة

حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي

وربطه بزر أو شكل أو صورة

Sub tar7eel()
Range("j2").Value = Range("e2").Value
End Sub

ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

تفضل هذا مطلوبك الثاني

Sub tar7eel()
For n = 2 To Cells(Rows.Count, 9).End(xlUp).Row
If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value
Next n
End Sub

بالتوفيق

  • Like 3
رابط هذا التعليق
شارك

لن تحصل على شيء لأن العمود Q فارغ 

للعلم الدالة cells تستعمل في التعامل مع النطاقات مثلها مثل range

ولكن الفرق أن range نقدم لها اسم النطاق مثلا 

range("c5").value = "Mas"

هذا الكود يقوم بكتابة Mas في الخلية C5

ويمكن استعمال cells لنفس الغرض

cells(5, 3).value = "Mas"

حيث أن 5 هو رقم الصف و3 هو رقم العمود

فعند كتابتك رقم 17 في خانة العمود فأنت تقصد العمود Q

بالتوفيق

  • Like 2
رابط هذا التعليق
شارك

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