-
Posts
39 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه اسلام مسلم
-
-
الف شكر يا استاذ على
بارك الله فى عمرك
وشكر خاص على الاستجابة السريعة الغير متوقعة
حفظكم الله من كل مكروه وسوءاستودعكم الله
- 1
-
السلام عليكم ورحمة الله وبركاته
تحية صادقة لحضراتكم
ارجو الافادة فى سؤالى هذا
وجزاكم الله عنا كل خير
المطلوب معادلة في العمود X اذا كان الطالب معيد في العمود K يتجاهل المواد الأخرى التي رسب فيها وهذا طبقا للقانون لبكون ناجح بحكم القانون وباقى التلاميذ ناجح فقط
-
3 ساعات مضت, اسلام مسلم said:
تم العثورعلى كود قد يفى بالغرض لان المشكلة هى ربط الكود بـــــ ComboBoxــــكمبوبوكس مرتبط ببيانات
من لدية طريقة افضل وابسط اتمنى مشاركته
شكرا جزيلا
تم تجربة الكود ويعمل بنجاح وبدون اى مشاكل تذكر
فقط باقى حفظالملف بدون رسالة تأكيد الحفظ من ميكروسوفت
الكود
Private Sub Box1_Change()
Me.Box2.Text = Me.Box1.Text
Label32.Caption = Label32.Caption - 1
If Label32.Caption = 0 Then
Range("C13:Z571").Select
Selection.ClearContents
Range("C13").Select
Dim NM As String
Dim CTS As Integer
Dim CNT2 As Integer
Dim CNT3 As Integer
CNT3 = 2
CNT2 = 2
CTS = Sheets.Count
Do Until CNT2 = CTS + 1
NM = Sheets(CNT3).Name
If Name = "Report" Then
Range("A1").Select
CNT3 = CNT3 + 1
Else
Sheets(NM).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
CNT2 = CNT2 + 1
LoopThisWorkbook.Save
Application.Quit
End If
End Subاعتقد تثبيت هذا السطر
Dim strFirst As String, strLast As String
Application.DisplayAlerts = False
ThisWorkbook.Save
قبل الحفظ يفى حاليا بالغرض .. والله اعلم
-
تم العثورعلى كود قد يفى بالغرض لان المشكلة هى ربط الكود بـــــ ComboBoxــــكمبوبوكس مرتبط ببيانات
من لدية طريقة افضل وابسط اتمنى مشاركته
شكرا جزيلا
تم تجربة الكود ويعمل بنجاح وبدون اى مشاكل تذكر
فقط باقى حفظالملف بدون رسالة تأكيد الحفظ من ميكروسوفت
الكود
Private Sub Box1_Change()
Me.Box2.Text = Me.Box1.Text
Label32.Caption = Label32.Caption - 1
If Label32.Caption = 0 Then
Range("C13:Z571").Select
Selection.ClearContents
Range("C13").Select
Dim NM As String
Dim CTS As Integer
Dim CNT2 As Integer
Dim CNT3 As Integer
CNT3 = 2
CNT2 = 2
CTS = Sheets.Count
Do Until CNT2 = CTS + 1
NM = Sheets(CNT3).Name
If Name = "Report" Then
Range("A1").Select
CNT3 = CNT3 + 1
Else
Sheets(NM).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
CNT2 = CNT2 + 1
LoopThisWorkbook.Save
Application.Quit
End If
End Sub -
السلام عليكم ورحمة الله وبركاته
السادة الاعزاء والاخوة الكرام
كل عام وحضراتكم بكل خير
لى طلب قد يكون بسيط بالنسبة لكم
ارجو التعديل على الملف المرف حذف ورقة عمل بدون اعلام المستخدم
هذا لعمل شهادات التلاميذ والاستعلام عنها لمرة واحدة وسيتم باذن الله تعالى رفع الملف كامل
فى هذا الملتقى الكريم
فارجو حذف الورقة دون رسالة ميكروسفت التحذيرية كذلك اغلاق الملف وحفظه دون رسالة اختيا ر الحفظ او لا من ميكروسفت
متعكم الله بالصحة والعافية والسترحذف ورقة عمل بدون اعلام المستخدم.rar
-
لا املك غير انى اقول لحضرتك
شكرا جزيلا
وربنا يحفظك يا استاذنا / عبدالله باقشير وجعله الله فى ميزان حسناتك
-
السلام عليكم ورحمة الله وبركاته
تحيتى الصادقة المعطرة بالحب والعرفان للسادة الكرامالرجاء المساعدة في عمل فورم لتسجيل البيانات بشكل عمودى في ورقة العمل " رئيسية " العمود C بدء من C9 مع إمكانية التنقل بالسهم في الفورم وإمكانية التسجيل لبعض البيانات او اكمالها في اى وقت اخر دون تأثر البيانات المدخلة سابقا مع امكانية التعديل عليها في حالة الخطأ . مع اخفاء واظهار جميع اوراق العمل ما عدا START
-
الف شكر يا استاذ محمود_الشريف
اسف على التأخر فى الرد لظروف خاصة
شكرا مرة اخرى توضيح الكود
والحمد لله ادركته جيداجزاكم الله عنا كل خير
-
الاستاذ الفاضل محمود_الشريف شكرا جزيلا
والله اكتر مما طلبت . وهذا يدل على كرم حضرتك .حفظك الله وغفر لك وللمؤمنين اجمعين
وبعد
طمعا فى كرم حضرتك ممكن بدلا من عمل ورقة عمل خاصة بالشهادة يتم الطباعة فورا من زر الطباعة بالفورم وسيكون هذا افضل من ناحية المستخدم لان هذا سيكون باذن الله تعالى درجات تلاميذ اخر العام لترفع على جروب المدرسة فيكون سهل على تلميذ او ولى امر التعامل مع الفورم ولى طلب اخر من حضرتك لكن ان شاء الله سيتم بمشاركة جديدة حتى لا نخرج عن الموضوع وللاستفادة العامة للاعضاء . طلبى الاخير لم اتعود فى حياتى النقل فقط . يعنى بحب افهم كل شىء . فرجاء اقرب شرح فيديو يفسر الاكواد المرفقة حتى وان كانت من اخرين تشق فيهم . علما بانى عاكف الان على فهما وايضا طريقة عكس الفورم يعنى بدلا من البحث كييفة ربط الفورم بالملف والتعديل فيه مع اخفاء الفورم ....
جزاك الله عنا كل خير
-
السلام عليكم ورحمة الله وبركاته
الرجاء المساعدة فى عمل فورم بحث برقم الجلوس لتظهر نتيجة طالب بالفورم من شيت فى الملف نفسة
جزاكم الله عنا كل خير
-
شكرا جزيلا على متابعة حضرتك
سبحان الله
والله فى نفس اللحظة كنت قد توصلت للحل وبنفس المعادلة والله اعلم
فشكرا جزيلا لحضرتك ولك منى كل تحية وتقدير
استودعكم الله
-
السلام عليكم ورحمة الله وبركاته
المطلوب هو حساب عدد التلاميذ الحاصلين على درجات معينة مثل الجدول كما فى الملف
شكرا وبارك الله فيكم
وجارى التجربة والرفع حتى يستفيد الجميع
-
هل من حل لطلبى الثانى فى المشاركة
-
الحمد لله تم اهاء الحماية
شكرا لكما وبارك الله فيكما
استودعكم الله
-
هذه مشاركة من اخى الفاضل المحترم الاستاذ
KHMB ليستفيد الاعضاء منهاOption ExplicitPrivate Sub Workbook_Open()If Date > DateValue("1/5/2015") ThenIf InputBox(" فضلا أدخل كلمة السر ") <> "الله أكبر" ThenKill_MyselfEnd IfEnd IfEnd SubPrivate Sub Kill_Myself()With Me.Saved = True.ChangeFileAccess xlReadOnlyKill .FullName.Close FalseEnd WithEnd Sub -
شكرا جزيلا لاخى الفاضل الاستاذ
ابو اسامة العينبوسيالكود يعمل بنجاح ومتشكر جدا لمتابعة حضرتك
هل من حل لطلبى الثانى فى المشاركة
-
السلام عليكم ورحمة الله
تفضل اخي ان شاء الله يكون المطلوب
ملفين 2003 + 2013
الف شكر بارك الله فى عمرك وغفر لنا ولك وردك اليه ردا جميلا
الملف يعمل بنجاح والكود قصير جدا وممتاز غير الكثير من الاكواد الاخرى
استودعكم الله
- 1
-
ممكن رد منالاخوة الافاضل
-
أخي الحبيب
في التوقيع الحاص بي فهرس بالموضوعات التي قدمتها
قم بالدخول عليها ستجد موضوع بهذا الشأن إن شاء الله يفيدك
شكرا استاذنا ومعلمنا الفاضل الاستاذ
YasserKhalilانا حاولت فعلا فتح كسر حماية الملف عن طريق الطريقة الموضحة لكن للاسف فشلت معى غالبا لان الملف معقد جدا لكن ساحاول مرات اخرى وبطرق اخرى . وإن فشلت فسوف اقوم برفع الملف لسيادتكم للتصرف فيه واعلم امانتكم وامانة السادة الاعضاء.علما ان الملف ليس بسر انما هو شيت تلاميذ مدرسة لا اكثر ولا اقل
. زادكم الله علما ونفع بكم
-
السلام عليكم ورحمة الله وبركاته
اخى الكريم يرجى ارفاق الملف وسوف اقوم بازالة الحماية عنه وارفقه لك
ولن اقول الطريقة لعد استخدامها فى اشياء غ
شكرا جزيلا استاذى الفاضل بارك الله فى عمرك لكن دائما افضل ان افعل وافهم كل شىء بنفسى غفر الله لنا ولك وحفظك بحفظه . ان امكن ذكر الطريق ان كانت مختلفة عن طريقة استاذنا الفاضل الاستاذ
YasserKhalil -
-
شكرا جزيلا استاذى الفاضل
اعزك الله ونفع بك دائما وكنتم فيمن خصهم الله بقضاء حوائج الناس
جارى التجربة لان خبرتى ليست عميقة فى عالم الاكواد
استودعكم الله
السلام عليكم ورحمة الله
- 1
-
لا اله الا انت سبحانك انى كنت من الظالمين
-
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ارجو من السادة الاعضاء ذو الخبرة جزاكم الله كل خير وزادكم الله علما وتواضعا
برجاء عمل المطلوب فى الملف المرفق وهو معرفة البنين الحاصلين على درجة اقل من 25 في العمود c ,وفى نفس الوقت الحاصلين على اقل من 10 في العمود B مع عدم حساب الخلايا التى تختوى على الصفروطلبى الثانى ممكن كيفية قفل ملف بعد شهر اوشهرين من فتحه بباس ورد معينشكرا لحضراتكم
فى رعاية الله وحفظه
حساب الطلبة الناجحين فى مواد الدور الثانى فقط
في منتدى الاكسيل Excel
قام بنشر
السلام عليكم ورحمة الله وبركاته
ارجو من حضراتكم تعديل او اضافة دالة لحساب عدد الطلبة والطالبات الناجحين فى مواد الدور الثانى فقط لكل تلاميذ المادة كل مادة على حدا كما موضح فى الشيت . علما بان فكرة جمع الخلايا الملونة قد لا تصلح لانه من الممكن مثلا ان يحصل تلميذ على نصف الدرجة . ان لم تكن هناك دالة لذلك الرجاء اقتراح البديل
جزاكم الله عنا كل خير
المطلوب2.xlsx