-
Posts
208 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
hegazee last won the day on أغسطس 7
hegazee had the most liked content!
السمعه بالموقع
230 Excellentعن العضو hegazee

البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
Tech
-
البلد
Egypt
-
الإهتمامات
Tech
اخر الزوار
-
فلترة للطلاب واتاحة كتابة الفصل بالعلامه
hegazee replied to abassreda's topic in منتدى الاكسيل Excel
الاستاذ الكريم/ عباس إليك برنامج كامل و بسيط لشئون الطلاب و به طلبك و كل شيء يخص التعليم الابتدائي و البرنامج مجاني للأستاذ / سالم بدوي جزاه الله خيرا كلمة السر 1 اسم المستخدم 1 البسيط لشئون الطلاب 01-03-2025.zip -
فلترة للطلاب واتاحة كتابة الفصل بالعلامه
hegazee replied to abassreda's topic in منتدى الاكسيل Excel
و عليكم السلام ورحمة الله وبركاته تفضل الملف و يمكن اختيار الفصل من القائمة المنسدلة لعمل التصفية لازم نشير أن الملف الأصلي من اعداد الدكتور أحمد البحراوي جديد 5 سلوك (2).xlsm -
و إياكم. لو تكرمت قم بتعليم المشاركة على أنها الحل
-
لو عندك اكسيل حديث 365 مثلا يمكن استعمال الصيغة التالية =TEXTJOIN("",TRUE,القرار!AM24:AM39,القرار!AN24:AN39) و يمكن بالأكواد مع الاصدارات القديمة و ده يلزم وجود ملف عشان نتأكد من النتيجة
-
الحل الأكيد استبدال مربع النص بخلايا
-
تحويل الرقم من نص الى فورمات رقم ليقبل الجمع
hegazee replied to أستيكا's topic in منتدى الاكسيل Excel
-
وعليكم السلام ورحمة الله و بركاته جرب تغيير الاعدادات الإقليمية و اللغة من إعدادات الجهاز أولا لأن تغيير شكل التاريخ داخل الشكل التلقائي يتطلب اولا تغيير الإعدادات و بالتالي ها يكون في مشكلة مع الأجهزة الأخرى
-
سحب معلومات تلقائية بين ورقتين في مربع تحرير النص
hegazee replied to احمد 505's topic in منتدى الاكسيل Excel
كما وضح الاستاذ/ عبدالله لا يمكن وضع خانة الرقم في تكست بوكس لأنه سيكون المتحكم في الأشكال الأخرى و هذا غير ممكن في الأكسيل لأنه سيكون مرسل أما أشكال التكست بوكس و هذا ممكن الأخرى فهي مستقبل . أما عن تنزيل الملف فلا أعلم ماهي المشكلة فالملف يعمل بكفاءة. حاول مرة أخرى -
التعديل على كود البحث في برنامج المرسلات الإدارية
hegazee replied to Khair ali's topic in منتدى الاكسيل Excel
كود الاضافة به خطأ اسم ورقة العمل بدلا من s-w مكتوب w-s Private Function SheetExists(sName As String, Optional wb As Workbook) As Boolean Dim sh As Worksheet If wb Is Nothing Then Set wb = ThisWorkbook SheetExists = False For Each sh In wb.Worksheets If sh.Name = sName Then SheetExists = True Exit For End If Next sh End Function Private Sub CommandButton6_Click() Dim wb As Workbook: Set wb = ThisWorkbook Dim inp As Worksheet, s As Worksheet, w As Worksheet If Not SheetExists("s-w", wb) Then MsgBox "ورقة 'w-s' غير موجودة في المصنف الحالي. الرجاء نسخ اسم التبويب كما هو.", vbExclamation Exit Sub End If If Not SheetExists("الصادر", wb) Or Not SheetExists("الوارد", wb) Then MsgBox "تأكد من وجود أوراق 'الصادر' و 'الوارد' أيضاً.", vbExclamation Exit Sub End If Set inp = wb.Worksheets("s-w") Set s = wb.Worksheets("الصادر") Set w = wb.Worksheets("الوارد") Dim lr As Long lr = s.Cells(s.Rows.Count, "A").End(xlUp).Row + 1 ' استخدام الصادر هنا حسب رغبتك With s .Cells(lr, 1).Value = lr - 1 .Cells(lr, 2).Value = inp.Range("E7").Value ' ... بقية الخلايا End With MsgBox "تمت إضافة المعاملة بنجاح", vbInformation End Sub -
سحب معلومات تلقائية بين ورقتين في مربع تحرير النص
hegazee replied to احمد 505's topic in منتدى الاكسيل Excel
شكرا استاذ عبدالله و حاولت أن ابتعد عن الأكواد قدر المستطاع و لم يكن هناك خطأ في الصيغة و لكني استخدمت صيغة XLOOKUP و هي ليست متوفرة في الاصدرات القديمة لذلك قمت بتعديل الصيغة ليعمل الملف على أي اصدار تبادل معلوات ورقتين(2).xlsx تبادل معلوات ورقتين(2).zip -
سحب معلومات تلقائية بين ورقتين في مربع تحرير النص
hegazee replied to احمد 505's topic in منتدى الاكسيل Excel
تفضل أخي و يمكن اختيار الرقم من قائمة منسدلة تبادل معلوات ورقتين(1).xlsx -
-
برنامج على الاكسل لعمل التقارير السنوية للمعلمين والاداريون والعمال
hegazee replied to بلانك's topic in منتدى الاكسيل Excel
أخي العزيز أين الملف؟ -
و عليكم السلام ورحمة الله و بركاته استخدم الكود التالي Sub CreateSheetsFromList() Dim ws As Worksheet Dim cell As Range Dim newSheet As Worksheet Dim shName As String ' الورقة اللي فيها الأسماء Set ws = ThisWorkbook.Sheets("Sheet3") ' غير اسم الورقة حسب ملفك ' المرور على العمود A For Each cell In ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) If Trim(cell.Value) <> "" Then shName = Trim(cell.Value) On Error Resume Next ' التأكد إنه مفيش ورقة بنفس الاسم Set newSheet = ThisWorkbook.Sheets(shName) On Error GoTo 0 If newSheet Is Nothing Then ' إنشاء ورقة جديدة بالاسم ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = shName End If Set newSheet = Nothing End If Next cell MsgBox "تم إنشاء الأوراق بنجاح", vbInformation End Sub New.xlsm
- 1 reply
-
- 1
-
-
و عليكم السلام ورحمة الله و بركاته تفضل =INT((DATEDIF(D13;E13;"y")+DATEDIF(D14;E14;"y")+(DATEDIF(D13;E13;"ym")+DATEDIF(D14;E14;"ym")+(DATEDIF(D13;E13;"md")+DATEDIF(D14;E14;"md"))/30)/12)) & " years; " & MOD(DATEDIF(D13;E13;"ym")+DATEDIF(D14;E14;"ym")+INT((DATEDIF(D13;E13;"md")+DATEDIF(D14;E14;"md"))/30);12) & " months; " & MOD(DATEDIF(D13;E13;"md")+DATEDIF(D14;E14;"md");30) & " days" معادلة طرح وجمع تاريخين 2.xlsx