logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





29-02-2024 12:04 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 89
الجنس :
تاريخ الميلاد : 5-2-1973
قوة السمعة : 112
الاعجاب : 2
السلام عليكم الأستاذة الأفاضل
اريد عمل ملف اكسيل لتوزيع شهور السنه على 12 شيت لكن بعدد ايام الشهر كل شهر فى شيت مستقل مع خانة لأدخال رقم السنة لتتغير الأيام مع تغير السنه على ال 12 شيت مرفق الملف به شهر يناير على سبيل المثال 
 
 
  الأجازات.xlsb   تحميل xlsb مرات التحميل :(4)
الحجم :(27.198) KB
  الأجازات.xlsb   تحميل xlsb مرات التحميل :(3)
الحجم :(27.198) KB





look/images/icons/i1.gif توزيع شهور السنه على 12 شيت
  01-03-2024 08:04 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وعليكم السلام
جرب الكود التالي
CODE
Sub List_Dates_In_Months_Worksheets()
    Dim sh As Worksheet, startDate As Date, endDate As Date, currentDate As Date, iYear As Long, iRow As Long
    iYear = Sheets("Sheet1").Range("B1").Value
    For Each sh In ThisWorkbook.Worksheets
        If IsMonthSheet(sh.Name) Then
            startDate = DateSerial(iYear, MonthIndex(sh.Name), 1)
            endDate = DateSerial(iYear, MonthIndex(sh.Name) + 1, 0)
            iRow = 2
            With sh
                .Range("B:C").ClearContents
                .Range("B1").Resize(, 2).Value = Array("Day", "Date")
                For currentDate = startDate To endDate
                    .Cells(iRow, 2).Value = Day(currentDate)
                    .Cells(iRow, 3).Value = Format(currentDate, "MM/DD/YYYY")
                    iRow = iRow + 1
                Next currentDate
            End With
        End If
    Next sh
End Sub

Function IsMonthSheet(ByVal sheetName As String) As Boolean
    Dim months, month
    months = Array("JANUARY", "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE", "JULY", "AUGUST", "SEPTEMBER", "OCTOBER", "NOVEMBER", "DECEMBER")
    For Each month In months
        If UCase(sheetName) = month Then IsMonthSheet = True: Exit Function
    Next month
    IsMonthSheet = False
End Function

Function MonthIndex(ByVal monthName As String) As Integer
    Select Case UCase(monthName)
        Case "JANUARY"
            MonthIndex = 1
        Case "FEBRUARY"
            MonthIndex = 2
        Case "MARCH"
            MonthIndex = 3
        Case "APRIL"
            MonthIndex = 4
        Case "MAY"
            MonthIndex = 5
        Case "JUNE"
            MonthIndex = 6
        Case "JULY"
            MonthIndex = 7
        Case "AUGUST"
            MonthIndex = 8
        Case "SEPTEMBER"
            MonthIndex = 9
        Case "OCTOBER"
            MonthIndex = 10
        Case "NOVEMBER"
            MonthIndex = 11
        Case "DECEMBER"
            MonthIndex = 12
        Case Else
            MonthIndex = -1
    End Select
End Function

أثارت هذه المشاركة إعجاب: بلانك، احمد شريف، ali mohamed ali،



look/images/icons/i1.gif توزيع شهور السنه على 12 شيت
  03-03-2024 10:01 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 89
الجنس :
تاريخ الميلاد : 5-2-1973
قوة السمعة : 112
الاعجاب : 2
جزاك الله كل خير




look/images/icons/i1.gif توزيع شهور السنه على 12 شيت
  05-03-2024 05:49 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وجزيت خيراً بمثل ما دعوت لي وزيادة




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شيت توزيع ومراقبة الاقساط - حسام خطاب الصقر
127 25894 bedo1783
كنترول شيت لجميع المراحل + توزيع الملاحظة + سجلات الامتحانات ( سليمان جده ) solimangada
6 2434 حسبو العراقى
شيت رؤؤس الاموال وتوزيع الارباح عبدالرحمن صبحى
9 2449 YasserKhalil
التعديل على شيت توزيع ومراقبة الاقساط - الاستاذ حسام خطاب mrgan
15 5724 accssalah

الكلمات الدلالية
توزيع ، شهور ، السنه ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:47 AM