اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا


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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :malik
عدد النتائج (90) نتيجة
06-04-2018 09:19 مساء
icon عرض ورقة العمل على الفورم Display Worksheet On UserForm | الكاتب :malik |المنتدى: موضوعات ياسر خليل أبو البراء
 جزاك الله كل خير استاذي الفاضل
على شرح تلك الخطوات الممتازة 
04-03-2018 02:40 مساء
icon استدعاء الطلبة حسب سنة الميلاد لكل مستويات | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 اشكرك جزيلا  استاذ جزاك الله كل خير

تقبل تحياتي 
04-03-2018 02:25 مساء
icon تعديل Userform | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 اخي ممكن توضيح اكثر لفهم  المطلوب 
تقصد عرض تسلسل الارقام مكان العمود B 

 
04-03-2018 02:14 مساء
icon اريد كود انتحار الملف بعد فترة | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
04-03-2018 12:20 مساء
icon تعديل Userform | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام اخي ممكن اعادة رفع ملف 
الملف لايعمل معي 


تقبل تحياتي 
04-03-2018 12:09 مساء
icon اريد كود انتحار الملف بعد فترة | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام اخي 
عليك تجربة هذا الكود في موديول 
تقبل تحياتي

Sub Test_Date()
    Dim sh As Worksheet
    Dim WS As Worksheet
    Dim DD As Date

    On Error Resume Next
    Set sh = ActiveWorkbook.Sheets("Date")
    If Err.Number <> 0 Then
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Date"
        Range("A1") = Format(Now + 30, "DD/MMM/YYYY")
        DD = Sheets("Date").Range("A1")
        Sheets("Date").Range("A2") = DateDiff("d", Date, DD)
        Sheets("Date").Visible = xlSheetVeryHidden
        Sheets("sheet1").Select
        MsgBox "هذه نسخة تجريبية من البرنامج تنتهي بعد 30 أيام", vbExclamation, "نسخة تجريبية"
        ThisWorkbook.Save
    Else
        DD = Sheets("Date").Range("A1")
        DY = DateDiff("d", Date, DD)
        If Date >= DD Or Sheets("Date").Range("A2") = 0 Then
            MsgBox "انتهت فترة صلاحية البرنامج"
            ThisWorkbook.Save
            ThisWorkbook.Close
        Else
            DY = DateDiff("d", Date, DD)
            If DY > Sheets("Date").Range("A2") Then
                MsgBox "تم التلاعب بالتاريخ، سيتم تدمير الملف نهائياً", vbCritical, "خطأ"
                Application.DisplayAlerts = False
                Sheets("Date").Visible = xlSheetVisible
                For Each WS In ThisWorkbook.Worksheets
                    If WS.Name <> "Date" Then
                        WS.Delete
                    End If
                Next WS
                Sheets("Date").Range("A1:A2").Select
                Selection.ClearContents
                Range("A1").Select
                Application.DisplayAlerts = True
                ThisWorkbook.Save
                ThisWorkbook.Close
            Else
                Sheets("Date").Range("A2") = DY
                MsgBox "هذه نسخة تجريبية من البرنامج تنتهي بعد " & DY & " أيام", vbExclamation, "نسخة تجريبية"
                ThisWorkbook.Save
            End If
        End If
    End If
End Sub
04-03-2018 09:25 صباحا
icon استدعاء الطلبة حسب سنة الميلاد لكل مستويات | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام استاذ اشكرك جزيلا على الرد جزاك الله كل خير 
لكن بقي امر اخر وهو في العمود A بالنسبة للرقم يجب ان يكون هكذا 1و2و3و4و5و الخ وليس رقم تسجيل الطلاب


تقبل تحياتي
 
03-03-2018 10:32 مساء
icon استدعاء الطلبة حسب سنة الميلاد لكل مستويات | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 السلام عليكم استاذ زيزو  جزاك الله كل خير على اهتمام بطلباتي واكرنك الله بالجنة يارب
لكن يا استاذ ممكن تعديل على الكود الذي قمت بعمله لموضوع استدعاء الطلبة حسب السنة الميلاد لكل مستويات 
هناك خطأ في تنسيق التاريخ
وكذلك في التسلسل لأنه يجلب رقم التسجيل طلاب 
ممكن تطوير الكود مجرد اختيار مستوى وادخال سنة ميلاد يجلب بيانات اليا بدون ظغط على زر جلب بيانات 
وعمل كذلك فورم تظهر عليها احصاء لعدد  ذكور واناث حسب سنة ميلاد مجرد ادخال مستوى وسنة ميلاد تظهر بيانات على فورم او عمل خليتين تظهر بهما احصاء للذكور واناث
انا بالنتظار الرد منك استاذ زيزو لكي نستفيد منه جميعا ان شاء الله

واشكرك جزيلا ومزيدا من تقدم ونجاح يارب

تقبل تحياتي 
03-03-2018 08:25 مساء
icon كيف يفتح ملف اكسل بشكل الي | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 ممتاز استاذ ياسر  اشكرك جزيلا على هذه مساعدات جزاك الله كل خير 
دائما موفق مزيدا من تقدم ونجاح
لكن ممكن اظافة كذلك وقت اغلاق ملف مثلا على 3مساء 

تقبل تحياتي 
03-03-2018 02:28 مساء
icon ارسال ملف العمل من خلا out look او Gmail عن طريق vba | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 استاذ عمار ممكن تطوير الكوديقوم بإرسال اي مستند نختاره على ملف اكسل
او نضع فورم بها كومبوبوكس بها اسماء ايميلات وعمل زر ارسال 
لكن اريد مجرد ظهور اي شيت تظهر فورم ارسال لكي نقوم بإرسال اي صفحة نريدها مع تحديد نطاق ورقة كما يكون محدد على ورقة

نطلب من كل الخبراء تطوير هذا الموضوع 
ان شاء الله

تقبلوا تحياتي 
03-03-2018 02:03 مساء
icon ارسال ملف العمل من خلا out look او Gmail عن طريق vba | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 ان شاء الله 
03-03-2018 01:43 مساء
icon ارسال ملف العمل من خلا out look او Gmail عن طريق vba | الكاتب :malik |المنتدى: اكسيل اسئله واجابات
 بالتأكيد استاذ ياسر
ننتظر التوضيح والشرح من استاذ عمار على هذه المعلومة  لكي يستفيد منه الجميع مع ارفاق ملف لفهم اكثر 

تقبلو اتحياتي 

 

الصفحة 1 من 8 < 1 2 3 4 8 > الأخيرة »





الساعة الآن 03:25 مساء

أعلن هنا
أعلن هنا
أعلن هنا