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

هل يمكن تنفيذ ماكرو معين بمجرد تغير قيمة خلية ؟


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

المعروف عن الماكرو انه يتم الضغط على زرار لتنفيذ الماكرو

ولكن هل بمجرد تغير قيمة خلية يتم تنفيذ ماكرو معين ؟

او كتابة رقم فى خلية وبمجرد ما تضغط على انتر يتم تنفيذ ماكرو معين ؟

ارجوا الافادة من خبراء الاكسل

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

المعروف عن الماكرو انه يتم الضغط على زرار لتنفيذ الماكرو

ولكن هل بمجرد تغير قيمة خلية يتم تنفيذ ماكرو معين ؟

او كتابة رقم فى خلية وبمجرد ما تضغط على انتر يتم تنفيذ ماكرو معين ؟

ارجوا الافادة من خبراء الاكسل

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

والله اعلم

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

الاخ الفاضل : KaaKaa

بارك الله فيك

باختصار عندى ماكرو باسم hide_all

والخلية M3

اكتب رقم فى الخلية M6 واضغط انتر اريدة ان ينفذ الماكرو hide_all

هل ممكن

موضح بالمرفق

Book1.rar

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

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

أخي الكريم صفوت

اكتب الكود التالي في الحدث wroksheet_change


Private Sub Worksheet_Change(ByVal Target As Range)

If Range("M3") = 3 Then

Cells.Select

Selection.EntireRow.Hidden = True

Selection.EntireColumn.Hidden = True

End If

End Sub

اكتب القيمة 3 في الخلية M3 وشوف التيجة

أخوك أبو البراء

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

الأخ صفوت جرب الكود التالي


Private Sub Worksheet_Change(ByVal Target As Range)

If IsNumeric(Range("M3")) Then

Cells.Select

Selection.EntireRow.Hidden = True

Selection.EntireColumn.Hidden = True

Else

MsgBox "That's not anumber"

Cells.Select

Selection.EntireRow.Hidden = False

Selection.EntireColumn.Hidden = False

Range("M3").Select

End If

End Sub

أخوك أبو البراء

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

الاخ الفاضل: الاستاذ ياسر

فى المرفق ماكرو باسم hide_all

وهناك خلية m3

مطلوب عند كتابة الكود فى خلية m3 والضغط انتر ينفذ الماكرو

فى المرفق يوجد زرار اسمه اظهار ايام الغيام بينفذ الماكرو انا اريد ان الغى الزرار

عن طريق بمجرد ما اكتب الكود فى الخلية والضغط على انتر ينفذ الماكرو بدون الضغط على الزرار

Book1.rar

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

أخي الكريم صفوت

ماتزعلش مني إنت سؤالك مش محدد من البداية ياريت يكون طلبك بعد كدا أوضح شوية

لا تزعل لإنه العتاب بيكون بين الأحباب

طلبك الأخير كما فهمت أنك تريد تنفيذ الماكرو بطريق آخر غير طريق الزر :

ضع الكود التالي في الحدث Worksheet_Change


Private Sub Worksheet_Change(ByVal Target As Range)

hide_all

End Sub

أخوك أبو البراء

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

الاخ الفاضل : الاستاذ ياسر

على فكرة انا لم اجد فى حياتى اسرة افضل من اسرتى فى هذا المنتدى

فكلكم اخوتى واحبائى واساتذتى

ولى الشرف ان اكون واحد منكم

وفعلا العتاب بين الاحباب

الحل هو ما ابحث عنه بالضبط

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

  • Like 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