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



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


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


نتائج البحث عن ردود العضو :محمود الشريف
عدد النتائج (94) نتيجة
15-01-2018 11:22 مساء
icon سؤال انتشر كثير خااص بطرح التاريخ ولكن اطلب شي جديد فيه | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى الكريم 
الأستاذ الفاضل // محمود ابو الدهب

على حسب فهمي من الأمثلة التى طرحتها والتى تبدو فى نظرى متداخلة بعض الشىء 

أنك تريد أن تحتسب جميع شهور السنة على أساس أن الشهر 30 يوم 
وعليه تكون السنة كاملة 360 يوم 

وهذه قاعدة عامة معمول بها فى جميع بلدان العالم 
وتسمي التصفية بمسمي الـ HR

تحليلا لأمثلتك التى طرحتها وبعض النتائج 
المثال الخاص بك الأول 
أنت جعلت النتيجة فى بادىء الأمر أن الفرق بالسنوات ( 32 سنة ) ( 0 شهر ) ( 24 يوم )

تلك النتيجة تتعارض تماما مع طلبك لأنه سيكون هناك يوم زائد لأنها ستكون ( 23 يوم ) وليس ( 24 يوم )

نذهب للمثال الثاني الذى طرحته على معادلة الأستاذ القدير // حسام خطاب 
ونصه كالتالي 
مثال اخر لو كان التاريخ الاكبر هو 14/11/1994   والاصغر هو  15/11/1982  فند انه يحسبها سنوات صحيحة 11 سنة وشهور ايضا 11 شهر ولكن الايام بدلا من ان يكتبها 30 يوم نجد انه يكتبها 1- يوم  وهذا خطأ ايضا

علي حسب القاعدة العامة 
تكون النتيجة كالتالي ( 10 سنوات ) ( 0 شهر ) ( 29 يوم )
على حسب المعادلة الأخيرة  بالمشاركة رقم 13
تكون النتيجة كالتالي ( 9 سنوات ) ( 11 شهر ) ( 30 يوم )

فبصراحة أنا لم أفهم ماذا تريد تحديدا !!!!!!!

إذا اردت معادلة فيجوال بيسك اكسيل قائمة على القاعدة العامة ( 360 يوم السنة ) أى ( 30 يوم الشهر ) سأرفقها لك 
أما بالنسبة للإفتراضات الغير متطابقة 
أعتقد أنه صعب أن تكون هناك معادلة تعمل معها كاملة أو حتى كود

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

وأتمنى أن تتقبل رأى بصدر رحب 

 
30-12-2017 04:15 صباحا
icon سلسلة دروس مستفادة عن فيجوال بيزك اكسل_ كاملة | الكاتب :محمود الشريف |المنتدى: قسم السلاسل والدورات التدريبية
 
المشاركة الأصلية كتبت بواسطة: ayoub2007 »
الف شكر أستاذنا الكريم


وجزاكم الله عنى خيرا
28-12-2017 09:51 صباحا
icon كيفية فتح برنامج وورد من ملف اكسل بوضع زر بإسم وورد | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 
أخى الكريم 

هو السؤال أجمل ما فيه أنه بشكل عام 

فالأكواد كثيرة فكما يقولون كل الطرق تؤدى الى روما 
بس انا ما بعرف هل اكسل 2010 مفعل بمكتبته الربط بين حزمة أوفيس كاملة ولا لأ

واليك كود فتح برنامج الوورد بشكل عام ... (( لاحظ لم نخصص مستند معين ))
Sub opennewmsword()
FnCreateWordDoc
End Sub
Function FnCreateWordDoc()

   Dim objWord

   Dim objDoc

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.documents.Add

   objWord.Visible = True

End Function


أما لغلق أى ملف وورد مفتوح 
استخدم الكود التالي 

Sub closeanyword()
 Dim AppWord As Object
    
    Set AppWord = GetObject(, "Word.Application")
    
    AppWord.Quit False
End Sub
28-12-2017 08:02 صباحا
icon ظهور رسالة عند عمل نسخه من الشيت | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى الكريم

الرسالة التى ظهرت لك تفيد بأن

هذا الاسم موجود بالفعل 

ويقوم بعملية تخيير لك 
إما بنعم لإستخدام هذا الإصدار أو الملف الذى يحمل نفس الاسم 
أو لا لإعادة تسمية النسخة للنسخ أو لتحريكها 

 
28-12-2017 07:53 صباحا
icon كيفية منع زر الاحمر لغلق ملف وعمل زر على فورم لغلق ملف كامل | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى الكريم

لغلق الملف كاملا من زر سواء داخل فورم أو بكود
استخدم فقط السطر البرمجى التالي

Application.Quit
 
28-12-2017 07:49 صباحا
icon شرح سطر فى كود اخفاء | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى الكريم

السطر الذى أشرت إليه
يتحدث عن اخفاء الخلايا  التى تحتوى على قيمة ( 0 ) بدءا من الخلية التى D2 
حتى ولو كان يوجد خلية فارغة بالنطاق المحدد بالعمود D لن يقوم بإخفائها 

 
27-12-2017 07:43 صباحا
icon الجدول المدرسى | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: الصقر »
اخى الكريم لا يوجد مرفق تاكد من رفعك للملف بشكل صحيح


أخى الكريم أقتبس نفس رد الأستاذ القدير // حسام خطاب _(( الصقر ))
27-12-2017 07:41 صباحا
icon ماهى افضل طريقة لتفعيل الماكرو | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 
أخى الكريم

وبعد إذن الأستاذ القدير // حسام خطاب _(( الصقر ))

قم بتخصيص ورقة تضع فيها تنبيه أنه يجب على المستخدم خفض أمان الماكرو ثم تشرح كيفية خفض أمان الماكرو فى خطوات بسيطة
ثم من خصائص الورقة اجعل خيار الـ  Visible     اجعله     xlVeryHidden
تجده آخر سطر بالخصائص الخاصة بتلك الورقة 
ثم تضع الأكواد التالية فى حدث مصنف الملف 
واكتب اسم الورقة التى قمنا بتخصيصها تجدها بالكود بإسم Warning

الكود كالتالي 

Option Explicit

'يوضع الكود في حدث المصنف ويقوم بإخفاء كل أوراق العمل في حالة عدم تمكين الماكرو
'أي أنه يجبر المستخدم على تفعيل الماكرو لإظهار أوراق العمل ، أما في حالة إذا ما
'كان الماكرو مفعل ، فإن ورقة العمل التحذيرية تختفي وتظهر بقية أوراق العمل
'-------------------------------------------------------------------------------

'قم بتعيين اسم ورقة العمل التحذيرية
'Warning
Const Warning As String = "Warning"

Private Sub Workbook_Open()
    Dim Ws As Worksheet

    Application.ScreenUpdating = False
        For Each Ws In ThisWorkbook.Worksheets
            Ws.Visible = xlSheetVisible
        Next Ws
    
        Sheets(Warning).Visible = xlVeryHidden
    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Ws As Worksheet

    Application.ScreenUpdating = False
        Sheets(Warning).Visible = xlSheetVisible
    
        For Each Ws In ThisWorkbook.Worksheets
            If Ws.Name <> Warning Then
                Ws.Visible = xlVeryHidden
            End If
        Next Ws
    Application.ScreenUpdating = True

    ActiveWorkbook.Save
End Sub
27-12-2017 07:25 صباحا
icon كيفية منع زر الاحمر لغلق ملف وعمل زر على فورم لغلق ملف كامل | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 
أخى الكريم

بداية يجب أن يكون الملف الذى تعمل عليه مهيأ لذلك 
أى أن بأحد اليوزرفورم به زر اغلاق للملف
أو يوجد زر لإغلاق الملف داخل الصفحات

وطبعا يكون زر الإغلاق مهيأ لأحد الحالتين (( إغلاق برسالة تخيير حفظ أو عدم الحفظ أو& إغلاق مباشر مع الحفظ ))

أما بالنسبة لطلبك 
جرب التالي 
ضع الكود التالي داخل موديول

Public CloseMode As Boolean

Sub CloseMe()
    CloseMode = True
    ThisWorkbook.Save
    Application.Quit
End Sub


وضع الكود التالي فى حدث المصنف (( الملف ))

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not CloseMode Then
        Cancel = True
        MsgBox "Please Use The button To Close This File"
    End If
End Sub
26-12-2017 10:57 صباحا
icon كيفية التغلب على رسائل الخطأ فى اكسل | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 الأستاذ الفاضل // محمود ابو الدهب
جزاكم الله خيرا

الأستاذ الكريم // طائع
وجزاكم الله خيرا
أتمنى أن المشكلة تم حلها 

وتقبلوا منى وافر الاحترام والتقدير
26-12-2017 10:53 صباحا
icon ترقية الاخ الاستاذ محمود ابوالدهب | الكاتب :محمود الشريف |المنتدى: المنتدى العام
 
الأستاذ الفاضل // محمود ابو الدهب
ألف مليون مبروك على الترقية المستحقة عن جدارة 
مع أطيب تمنياتي القلبية لشخصكم الكريم 
بدوام التقدم والتوفيق فى سائر أمورك 
وأسأل الله عز وجل أن يجعل كل ما تقدمه من أعمال 
أو مساعدات للسادة الأعضاء
فى ميزان حسناتك

والشكر موصول 
للأستاذ القدير // حسام خطاب _ (( الصقر ))
على اختياراته الموفقة والرائعة 

وتقبلوا منى جميعا وافر الاحترام والتقدير 
21-12-2017 02:17 صباحا
icon ظهور قائمة منسدلة على مربع تحرير وسرد | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 وجزاكم الله خيرا الأستاذ الفاضل // ناصر سعيد

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






الساعة الآن 04:26 صباحا

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