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

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

قام بنشر

أخى الفاضل

ان شاء الله اليوم أو غدا أرفع لك الملف بما طلبته من حيث ربط جميع الأزرار وربط الرصد بالشيت

قام بنشر

أخى الفاضل

قمت بعمل ربط لأزرار الترم الأول بالاكواد الخاصة بها

وعمل أكواد لأزرار الترم الثانى أيضا وربطها بها

ولكن بالنسبة لربط صفحة الرصد بالشيت يوجد اختلاف فى الدرجات بين الصفحتين

فكيف يتم الربط مع وجود هذا الاختلاف

مرفق الملف بعد التعديل عليه لابداء الرأى

بدايه.rar

قام بنشر

شكرا لك اخي استاذ رجب

اكمل الجميل

زر رصد على الجلوس وزر رصد على سري 1 وزر رصد على سري2

المعادلات في الشيت عايزها محميه من العبث ولاترى

جزاك الله خيرا

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

[/center]


Sub اعمال_ترم_2()

Application.ScreenUpdating = False

 ActiveSheet.Unprotect


 ' اعمدة النوع والفصل والجنسيه والديانه المراد اخفائها

  Columns("D:G").Select

    Selection.EntireColumn.Hidden = True


' الاعمده المراد اظهارها

    Columns("az:bj").Select

    Selection.EntireColumn.Hidden = False


	  ' الاعمده المراد اخفائهاالموجوده قبل الاعمدة المطلوب اظهارها

    Columns("j:ay").Select

    Selection.EntireColumn.Hidden = True


    ' الاعمده المراد اخفائهاالموجوده بعد الاعمدة المطلوب اظهارها

    Columns("bk:DA").Select

    Selection.EntireColumn.Hidden = True


	  ActiveSheet.Protect

	  Application.ScreenUpdating = True

End Sub

[center]

مارأي اخي استاذ رجب ؟

هل يوجد به نقص عن كودك ؟

ما أوجه القصور به ؟

أول محاوله لتفيير كود ليتلاءم معي ؟

وشكرا

تم تعديل بواسطه ابن بنها
قام بنشر

شكرا شكرا

ماتعليقك على المحاوله في المشاركة 33

اكمل الجميل

زر رصد على الجلوس وزر رصد على سري 1 وزر رصد على سري2

المعادلات في الشيت عايزها محميه من العبث ولاترى

جزاك الله خيرا

  • 1 year later...

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information