خالد المصـــــــــــرى

جرب اخي

تم الحل.xlsm

تم الحل جربي  خضرتكمشكلة المجموع.xlsb

م

Sub VeryHiddenSelectedSheets()
  Dim wks As Worksheet

  On Error GoTo ErrorHandler

  For Each wks In ActiveWindow.SelectedSheets
      wks.Visible = xlSheetVeryHidden
  Next

  Exit Sub

  ErrorHandler:
    MsgBox "A workbook must contain at least one visible worksheet.", vbOKOnly, "Unable to Hide Worksheets"
End Sub

انا عايز الكود يعطل استرجاعها من هنا

المطلوب كود

13 دقائق مضت, إيهاب عبد الحميد said:

 

عمل كود لاخفاء شريط اوراق العمل

كود.xlsx

شكرا تم الحل

4 ساعات مضت, أبوأحـمـد said:

Private Sub MSGE()
Dim Action As VbMsgBoxResult
Action = MsgBox("هل تريد حفظ التعديلات", vbYesNo + vbExclamation + vbDefaultButton2, "تنبيه!")
If Action = vbYes Then
MsgBox "نعم"
Else
MsgBox "لا"
End If
End Sub

الكود في خطأ

عمل زر خروج برسالة هتريد الحفظ بنعم او لا

زر.xlsx

9 ساعات مضت, محمد_الدسوقى said:

السلام عليكم

تحياتى للأستاذ الفاضل / خالد المصرى ـ صاحب السؤال

أحيط علم سيادتكم أن صفحات هذا الملف كاملة ماخوذة من برنامج ( كنوز للكنترول المدرسى ) لصاحبه : الفقير إلى الله / محمد الدسوقى

وقد تم اخذ هذا الجزء من البرنامج بدون الرجوع إليه

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

20 ساعات مضت, أبوأحـمـد said:

مل أن يكون هذا ما تريد

قطع الارتباط الموجود في ملف الاكسل

سجلات0.xlsb

البقاء لله وحده ربنا يرحمه ويغفر له

جمع عدد ايام و عدد اشهر و سنوات مع التقريب.rar

منذ ساعه, أبوأحـمـد said:

إذا بتمسح نطاق 

فيه خلايا المفروض متتمسحش

مشكلة في زيادة نطاق مسح محتويات الخلايا

تصفير.xlsb

تفعيل ويندوز pro 8.1 64bit

ممكن استخدامه في المدارس المصرية

بالمعادلات

كل عام وانت بخير(1).xlsm

بالمعادلات

عملت تعديل الاسماء تبدأ من الصف السابع  المعادلة عايزه تتعدل

454545(2).xlsx

المشكلة مازالت قائمة

تفضل اخي قمت بتعديل بسيط بنقل البيانات من عمود b  الى عمود a

xl.xlsb

في 24‏/6‏/2023 at 17:10, أبوأحـمـد said:

وهنا بالمعادلات

AGGREGATE(15;6;(

رقم 16 خاص بايه ورقم 5 خاص بايه