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



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


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


نتائج البحث عن ردود العضو :emad ghazi
عدد النتائج (33) نتيجة
21-02-2018 11:10 مساء
icon ترحيل البيانات الى اى عدد من اوراق العمل من خلال اليوزرفورم DATA ENTRY USERFORM | الكاتب :emad ghazi |المنتدى: اكسيل شروحات فيديو
 
المشاركة الأصلية كتبت بواسطة: تحسين علي »
استاذنا الفاضل والاخ العزيز عماد غازي المحترم ..
نرجوا من الله عز وجل توفيقك وزيادة علمك ويحفظلك العائلة الكريمة والاولاد الكرام
انا بحاجة الى تنزيل ملف اخفاء اطار اليوزر فورم لانه غير موجود على قناة اليوتيوب الخاص بك 
مع فائق الاحترام والتقدير .....
جزاك الله خير ان شاء الله 
اتفضل حضرتك المرفق 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
21-02-2018 10:57 مساء
icon الخروج بدون حفظ مع اخفاء أوراق عمل الملف | الكاتب :emad ghazi |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: ostazmas »
المشاركة الأصلية كتبت بواسطة: emad ghazi »
بسم الله الرحمن الرحيم اخى الفاضل ابا الحسن 
السلام عليكم ورحمة الله وبركاتة
للاسف انا عندى اوفيس 2010 
مش عارف اقيم المشكلة بتاعتك لان الكود شغال عندى مظبوط
ولكن جرب هذا الكود لعلة يفى بالغرض

 ActiveWorkbook.Close savechanges:=False

رائع أستاذ عماد
ويمكن اختصار الكود إلى
activeworkbook.save 0

 

 
جــــزاك الله خيـــــر استاذنا
نتعلم دوما من حضرتك الكثير
21-02-2018 01:43 صباحا
icon الخروج بدون حفظ مع اخفاء أوراق عمل الملف | الكاتب :emad ghazi |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: أباالحسن »
الاخوة الافاضل 
قمت بعمل ملف ، وحددت طريقة الخروج من خلال زرين 
1- الاول خروج مع الحفظ 
2- الثانى خروج بدون حفظ التغييرات

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

والكودين يتم تنفيذهما بنجاح على أوفيس 2010
أما عند التطبيق على أوفيس 2013 
فيتم تطبيق كود الحفظ والخروج بنجاح
اما الكود الثانى فعند تفيذه يعطى رسالة سؤال عن الحفظ للملف (وهذا ما لا اريده)

والمطلوب الخروج مباشرة دون الحفظ 
مع عدم السؤال 
وتنفيذ كود اخفاء الأوراق 

وهذا هو الكود الذى به مشكلة على اوفيس 2013

Sub Donot_Save_Exit_File()
' إغلاق الملف والتطبيق مع عدم الحفظ

On Error Resume Next

Application.ScreenUpdating = False
Application.EnableEvents = False

ThisWorkbook.Saved = False

'هذا الكود يعمل على إخفاء جميع أوراق العمل ، ماعدا ورقة به تنبيه بخصوص الماكرو
Dim sh As Worksheet
Sheets("Alert").Visible = xlSheetVisible
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Alert" Then
sh.Visible = xlVeryHidden
End If
Next sh

Call ShowToolBars

'هذه الأكواد الثلاثة التالية تعمل على تسريع تنفيذ الأوامر
Application.ScreenUpdating = True
Application.EnableEvents = True

Application.DisplayAlerts = False
Application.Quit

End Sub


وهذا هو الملف المرفق  
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
بسم الله الرحمن الرحيم
اخى الفاضل ابا الحسن 
السلام عليكم ورحمة الله وبركاتة
للاسف انا عندى اوفيس 2010 
مش عارف اقيم المشكلة بتاعتك لان الكود شغال عندى مظبوط
ولكن جرب هذا الكود لعلة يفى بالغرض

 ActiveWorkbook.Close savechanges:=False
29-01-2018 12:25 صباحا
icon كود استيراد بيانات من ملف اكسيل مغلق حتى وان كان محمى | الكاتب :emad ghazi |المنتدى: اكسيل شروحات فيديو
 
اتوجة بخالص الشكر والتقدير
لـــ استاذى ياسر خليل واستاذى حسام خطاب
على ان شرفونى وكلفونى  بشرح هذا الكود الرائع
ومن تقدم الى تقدم باذن الله
جــــــــزاكم الله خير
واسف على التاخير فى التعليق بس ظروف العمل
25-01-2018 11:49 مساء
icon سؤال حول تعلم الاكسل | الكاتب :emad ghazi |المنتدى: المنتدى العام
 
بسم الله الرحمن الرحيم
اخى الغالى خالد 
اظن حضرتك عندك بعض الخبرة فى مجال الاكسل
نصيحتى لك
ابدا بتعلم المعادلات ليس كل المعادلات ولكن مايفيدك فى عملك
ثم ابد ا بتعلم اساسيات vba وبعد تعلم vba
ستجد نفسك تغوص فى بحور الاكواد
وفقك الله لما يحب ويرضى 
نصيحة من اخيك مبتدا مثلك بالظبط
25-01-2018 11:21 مساء
icon أقوى كتاب عن VBA اكسيل | الكاتب :emad ghazi |المنتدى: اكسيل شروحات ودروس
 
جزاك الله خير استاذنا الغالى

02-01-2018 11:22 مساء
icon تشغيل ملف اكسيل على جهاز واحد فقط | الكاتب :emad ghazi |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: أباالحسن »
السلام عليكم 
هل هناك طريقة لتشغيل ملف اكسيل معين على جهاز واحد (أو جهازين بحد أقصى)؟
كنوع من الحماية من نسخ هذا الملف 
وذلك  استنادا إلى  رقم اللوحة الام أو رقم الهارد ديسك أو المعالج 
الرجاء لو يوجد حل ، ذكر هذا الحل والكود الذى يقوم بذلك
ام لو كان هذا الموضوع طرح سابقا فالرجاء عرض الرابط 
وشكرا لكم 
08-12-2017 01:40 صباحا
icon مواعيد مباريات كاس العالم روسيا 2018 كاملة والقنوات الناقلة اكسل | الكاتب :emad ghazi |المنتدى: اكسيل شروحات ودروس
 
جزاكم الله خير واشكركم على المرور العطر

28-11-2017 07:44 مساء
icon شرح الداله - الداله TRANSPOSE - حسام خطاب | الكاتب :emad ghazi |المنتدى: اكسيل شروحات ودروس
 جزاك الله خير استاذنا
دائما متمتعنا بالجديد
اسال الله العظيم رب العرش العظيم ان يمتعك بالصحة والعافية
28-11-2017 01:53 صباحا
icon حصريا :كيفية جمع القيم الموجودة فى الليست بوكس واظهار النتائج فى التكست بوكس مع عماد غازى | الكاتب :emad ghazi |المنتدى: اكسيل شروحات فيديو
 
المشاركة الأصلية كتبت بواسطة: رمضان بكري »
اذا كنا نريد  عدد الصفوف الموجودة بلست بوكس  
فيه نقطة  تاني  كيفية عدد الاصناف في شيت معين  واستدعاء  في تكست بوكس معين  يظهر عند فتح الفورم  
حضرتك عاملها في برنامج فينوس في  فورم الرئيسية  
حضرتك انت هتفتح حدث التهيئة للفورم وهتحدد الشيت اللى بتستدعى منة البيانات
ودة من خلال الكود دة
ListBox1.List = Sheets("sheet1").Range("a5:k" & [a7000].End(1).Row).Value


وبعد كدة بتحدد التكست بوكس اللى عايز تضع فية عدد الصفوف
وليكن textbox1
وهتضع الكود دة اسفل الكود الاول
TextBox1.Value = ListBox1.ListCount
28-11-2017 01:34 صباحا
icon حصريا :كيفية جمع القيم الموجودة فى الليست بوكس واظهار النتائج فى التكست بوكس مع عماد غازى | الكاتب :emad ghazi |المنتدى: اكسيل شروحات فيديو
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الحبيب عماد وجزيت خيراً على الفيديو الممتع

حل آخر بدون الحلقة التكرارية وذلك بإضافة سطر واحد في الكود الأصلي قبل إضافة أسطر الحلقة التكرارية
Private Sub CommandButton1_Click()
    Dim i       As Integer
    Dim x       As Double

    With ListBox1
        i = .ListCount
        .AddItem Me.TextBox1.Value
        .List(i, 1) = Me.TextBox2.Value
        .List(i, 2) = Me.TextBox3.Value
        TextBox4.Value = Val(TextBox4.Value) + Val(.List(i, 2))
    End With

    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
End Sub
استاذى وتاج رأسى واخى الحبيب  الاستاذ ياسر خليل 
دوما ما نتعلم منك الكثير
شرفت بمرورك العطر الطيب
جزاك الله خير
26-11-2017 02:15 مساء
icon سلسلة اتعلم كيف تصطاد - شروحات الفورم - الدرس السابع عشر- مهارات تعبئة الكمبوبوكس (9) -حسام خطاب | الكاتب :emad ghazi |المنتدى: قسم السلاسل والدورات التدريبية
 مبدع مبدع مبدع 
حبيبى الغالى ربنا يزيدك علم يارب

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






الساعة الآن 12:25 صباحا

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