أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




كود غلق الملف نفسه و ليس الكل

السلام عليكم بعتذر لانه ممكن الموضوع مكرر لان فى احد الاعضاء اضاف هذا الملف و سال و لم يتابع او اكتفى و الله اعلم ان اطر ..



17-09-2019 11:40 صباحا
صلاح الصغير
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 319
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 258
الاعجاب : 12
 offline 
السلام عليكم
بعتذر لانه ممكن الموضوع مكرر
لان فى احد الاعضاء اضاف هذا الملف و سال و لم يتابع او اكتفى و الله اعلم
ان اطرحت السؤال لانى كنت مهتم بنفس الموضوع و لقيت الملف المرفق طرحه الاستاذ / خالد
و هو عبارة عن تنبيهات تظهر فى المواعيد المحددة من خلال يوزر فورم و ليست بوكس
هو الملف فيه كود زر الاغلاق مكتوب فيه سطر كلمة واحدة مش فاهم معناها و هى end
و هى بتعمل اغلاق لليوزر فورم و لكن يظل الملف مفتوح
جربت اكتب سطر ThisWorkbook.Close بس مش نافع و ده الكود الموجود

Private Sub CommandButton1_Click()


    ThisWorkbook.Close
'End
End Sub

اللى بيحصل انه بيخفى الفورم و الملفات المفتوحة و بتكون كلها مفتوحة اول ما بفتح ملف كله بيفتح حتى الملف نفسه
كل اللى عايزه انه لما افتح الملف و معاه ملفات تانية زر الاغلاق يغلق الملف نفسه فقط و ما يخفيش بقيت الملفات
و شكرا
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تنبيهات و مواعيد هامة.xlsm   تحميل xlsm مرات التحميل :(16)
الحجم :(55.495) KB





17-09-2019 12:19 مساء
مشاهدة مشاركة منفردة [1]
صلاح الصغير
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 319
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 258
الاعجاب : 12
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
انا لاحظت ان المشكلة او بمعنى اصح اللى خلانى مش عارف انفذ اللى انا عايزه هى الجملة دى فى الملف المرفق
Application.Visible = False
لانها لو بفتح الملف لوحده بتخفى الاكسيل و تظهر الفورم فقط و ده طبيعى عشان يبان الفورم كانه اشعار
و لكن لو عكستها ل true عشان بقيت الملفات تكون ظاهرة و فتحت الملف و قفلت من زر الاغلاق واجهة الاكسيل بتكون ظاهرة فى الخلفية
و مش بيكون شكل جمالى
يا ريت لو فيه مساعدة هل فيه حاجة فى الاكواد نقوله لو الملف مفتوح لوحده يقفل الابليكيشن و لو العكس يفتح
مممممم........مش عارف




17-09-2019 12:25 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1543
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 65
قوة السمعة : 7180
الاعجاب : 147
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
وعليكم السلام-يمكنك استخدام هذا الكود
Sub Close_Workbook()
ActiveWorkbook.Close
End Sub




توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

17-09-2019 06:55 مساء
مشاهدة مشاركة منفردة [3]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
صديقي انا اعتر عن متابعة الموضوع ولكن لم اصل الى حل وكل حلول الاساتذة لم تعطي النتيجة المرجوة 




18-09-2019 09:42 صباحا
مشاهدة مشاركة منفردة [4]
صلاح الصغير
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 319
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 258
الاعجاب : 12
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
استاذ على 
طبعا شكرا على المتابعة
فى حالة فتح الملف لوحده تمام
و لكن المشكلة فى حالة وجود ملف اخر مفتوح بيغلق الملف الهدف و بيخفى الملف المفتوح يعنى بيعلقه كده 
لان الملف الهدف فى سطر Application.Visible = False بيتفعل مع ظهور الفورم
جربت اعكسها فى زر الاغلاق و لكن دون جدوى
و شكرا




24-09-2019 10:03 صباحا
مشاهدة مشاركة منفردة [5]
صلاح الصغير
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 319
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 258
الاعجاب : 12
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
فضلا و ليس امرا




29-09-2019 10:32 صباحا
مشاهدة مشاركة منفردة [6]
صلاح الصغير
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 319
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 258
الاعجاب : 12
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
فضلا و ليس امرا




29-09-2019 01:59 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
بردو مصمم .. قلت لك لما ميكونش فيه رد تعرف إن الناس مش فاهمة المشكلة كويس
فقوم ايه؟؟؟ .. قوم اشرح تاني في موضوع جديد أو في نفس الموضوع .. وربنا ييسر لك الأمور وتتحل المشكلة




01-10-2019 02:29 مساء
مشاهدة مشاركة منفردة [8]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 176
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 222
الاعجاب : 1
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
اخى صلاح
جرب هذا الامر

If Application.Workbooks.Count = 1 Then
Application.Quit
Else
    ThisWorkbook.Close
End If

تقبل تحياتى



توقيع :EM_ACC
إبراهيم أبوليله

01-10-2019 02:35 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
بارك الله فيك أخي العزيز إبراهيم
يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط




02-10-2019 09:20 صباحا
مشاهدة مشاركة منفردة [10]
صلاح الصغير
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 319
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 258
الاعجاب : 12
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
استاذ / ياسر
قوم ايه الاستاذ ابراهيم بارك الله فيه
قرب للحل و لكن تظل المشكلة و طبا بعتذر انى مش قادر اوصل المكلوب كويس بس هاقول تانى
الفكرة فى الملف انى عايز لما اكون فتح ملفات تانية تمام كه يا باشا 
و بعد كده بفتح الملف الاصلى و بدوس على زر اغلاق تمام كده ايه اللى بيحصل بقى
انه فعلا بيقف الملف الاصلى و لكن بيخفى معاه كمان الملفات التانية اللى كنا فاتحينها و ما يكونش ليهه اى اثر و لا حتى فى التاسك بار تحت
قوم ايه لما طبعا بكون عارف مكانهم الاصلى بروح افتحهم بلاقيهم اصلا مفتوحين
هى المشكلة فى الجملة دى فى الموديول بتاع الفورم Application.Visible = False لما بيفتح الفورم عشان يبان على شكل تنبيه
و بيشتغل تمام طول ما الملف فاتح لوحده
قوم ايه بقى يا استاذ ياسر الجميل 
انا عايز لما ادوس على زر الاغلاق و فى حالة وجود ملفات تانية مفتوحة بس يقفل الملف الاصلى و يعكس بقى ام الجملة دى Application.Visible = False 
و الله اعلم عشان يظهرلى المفات التانية المفتوحة
يا رب اكون قدرت اوصل المعلومة
و الف شكر لكل الاساتذة الكرام 




08-10-2019 06:10 مساء
مشاهدة مشاركة منفردة [11]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 176
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 222
الاعجاب : 1
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
If Application.Workbooks.Count = 1 Then
Application.Visible = True
Application.Quit
Else
     ThisWorkbook.Close
End If




توقيع :EM_ACC
إبراهيم أبوليله

09-10-2019 09:22 صباحا
مشاهدة مشاركة منفردة [12]
صلاح الصغير
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 319
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 258
الاعجاب : 12
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
شكرا استاذ / ابراهيم 
مبدائيا حلو الملف نفسه بيقفل
بس التانى بيظل مفتوح زى ما احنا عايزين بس مخفى
عايزين بقى يكون ظاهر على الشاشة 
و شكرا للمتابعة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم اضافة وتعديل وحذف وحفظ الملف مجدى يونس
19 990 مجدى يونس
تحويل الملف الى PDF ثم طباعته noureddine70
6 71 أحمد يوسف
الملف ده فيه نظام محاسبي كامل ( دورة المبيعات والمشتريات والمخازن Ahmed Samir
164 9220 bufce
كود عمل ازرار للتنقل بين صفحات الملف محمد عفيفى
1 68 محمد عفيفى
توقف كود طباعة الجزء المحدد بالماوس عندما تكون الصفحة محمية الملف ابو طيبه
4 160 ابو طيبه

الكلمات الدلالية
الملف ، نفسه ، الكل ،


 








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

الساعة الآن 06:44 مساء

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