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

كيف أغلق عدة أعمدة واخفى المعادلات


mazeno

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

السلام عليكم أيها الأخوة برجاء مساعدتى فى أمر فى الملف المرفق

أريد أن أجعل الأعمدة المشار إليها مغلقة وأخفى المعادلات عند التوقف عليها دون أن يتأثر الماكرو أويتوقف عن العمل فكلما أغلقت الأعمدة بالطريقة المعروفة يتوقف الماكرو عن العمل

ولكم جزيل الشكر

شيت1.rar

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

الأستاذ/ عبد الله

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

فتح الله لك وزادك علما هذا ما أريده لكن كيف أفعل ذلك برجاء التوضيح

آسف جدا لإزعاجك

تم تعديل بواسطه mazeno
رابط هذا التعليق
شارك

أخي العزيز / mazeno

أولا أهلا بك في منتدى أوفسينا

ومرحباً بك بين أخوتك في هذا المنتدى

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

أو اتركها فارغة إذا أردتها بدون تأمين وبدون إخفاء

ثم تذهب إلى علامة التبويب مراجعة في شريط المهام واختر حماية ورقة

ستظهر لك لستة فيها عدد من المربعات اختر ماشئت بوضع إشارة صح عليه لتمكينه أو أتركه فارغ لعدم تمكينه

وهنا في ملفك الكود يقوم بعمل إخفاء واظهار للأعمدة فاختر تنسيق الأعمدة حتى يعمل الكود

ومرفق ملف فديو يشرح الطريقة

لآ أدري هناك مشكلة في إدراج المرفق لا أعرف ما سببها

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

  • 1 month later...

شكرا

لدى سؤال

عندى ملف به بيانات مجلوبة و قائمة منسدلة لتبين حالة تلميذ واحد كل مرة

موضوع حماية المعادلات صحيح و لكنه منع عمل القائمة المنسدلة و كلما اخترت اسم تلميذ لا تظهر بياناته

ما هو الحل

شكرا

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

  • 2 weeks later...

الاخفاء

Private Sub CommandButton1_Click()

For i = 1 To 255

If Cells(2, i) = "مج" Or Cells(2, i) = "مج كلى" Then

Columns(i).EntireColumn.Hidden = True

End If

Next

End Sub

الاظهار

Private Sub CommandButton2_Click()

For i = 1 To 255

If Cells(2, i) = "مج" Or Cells(2, i) = "مج كلى" Then

Columns(i).EntireColumn.Hidden = False

End If

Next

End Sub

شيت1.rar

تم تعديل بواسطه belkacem64
رابط هذا التعليق
شارك

  • 2 years later...

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.

×
×
  • اضف...

Important Information