أبومروان

جزاك الله خيرا 🌹 وبارك الله فيك 🌹

استاذي الضافل @ابو صقر اقترح عليك بعض الدروس قد تفيد وتفح لك الباب اقرا بعض الموضوعات المنتدي وافتح الملفات وحاول تفهم المقصد الشروحات وفهم الاكواد التعليم ياتي واحده واحده

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

استاذي ومعلمي @محمد حسن المحمد دايما بنتعلم من حضرتك واديما حضرتك سباق🌹 جزاك الله خيرا علي مجهوداتك الرائعه 🌹🌹

طرق حساب النسبة المئوية في الاكسل يمكنك حساب النسبة المئوية في Excel باستخدام الصيغة التالية: (قيمة/الإجمالي)*100% على سبيل المثال، إذا كنت تريد حساب النسبة المئوية للعدد 500 من إجمالي 1000، يمكنك استخدام الصيغة التالية: (500/1000)*100% = 50% يمكنك إدخال هذه الصيغة مباشرة في الخلية التي تريد عرض النتيجة فيها، أو بإمكانك كتابتها في خلية جديدة والإشارة إليها في الخلية التي تريد عرض النتيجة فيها. كما يمكنك استخدام الدالة PERCENTAGE في Excel لحساب النسبة المئوية. يمكن استخدام هذه الدالة كالتالي: =PERCENTAGE(قيمة, الإجمالي) على سبيل المثال، إذا كنت تريد حساب النسبة المئوية للعدد 500 من إجمالي 1000، يمكنك استخدام الصيغة التالية: =PERCENTAGE(500, 1000) وستقوم Excel تلقائيًا بحساب النسبة المئوية وعرض النتيجة في الخلية التي كتبت الصيغة فيها

وعليكم السلام ورحمه الله وبركاته بارك الله فيكم وجزاكم الله خيرا على الموضوع الرائع 🌹

وعليكم السلام استاذي ومعلمي القدير @محمد حسن المحمد اسمح لي بالمشاركه من باب التنوع وزياده السائل بالمعرفه استاذ @مصطفى العراقي1988 يمكن استخدام المعادله =COUNTIF(A3:F3,"*ع") مسودة.xlsx

وعليكم السلام ورحمه الله وبركاته استاذ @Mohammed Alsakka ارفق ما تريده مع الشرح احتياجاتك وان شاءالله تجد ما تريده في هذا الصرح الكبير

جزاك الله خيرا 🌹

بارك الله فيك وجزاك الله خيرا

السلام عليكم ورحمه الله وبركاته جرب الكود التالي Me.Textbox4 = Val(Textbox1) / Val(Textbox3) / Val(Textbox2) * Val(ComboBox3) * Val(ComboBox1) * Val(ComboBox2)

السلام عليكم ورحمه الله وبركاته تم عمل عمود مساعد هو" g " اذا كان اقل من صفر تظهر رساله ارجو ان يكون المطلوب Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Range("g12:g22") If cell.Value <= 0 Then Do While MsgBox("Range contains zero or negative value", vbOKCancel) = vbOK Loop End If Next cell End Sub الجرد.xlsm

السلام عليكم ورحمه الله وبركاته جزاك الله خيراً .. استاذنا @ضاحي الغريب عند فتح الملف يظهر هذا الخطا لدي

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

السلام عليكم ورحمه الله وبركاته جزاك الله عنا خير الجزاء ربنا يوفقك عندما تعجز الكلمات عن التعبير وتعجز الحروف عن الوصف لشده الاعجاب ممكن تشرح لينا طريقه اخفاء frame داخل محرر الاكواد وكيف إظهارها والتعديل عليها 🌹.

الرقم الأول، من الأربعة عشر رقمًا من جهة اليسار، إذا كان رقم (2) فهو خاص بمواليد 1900 حتى 1999، وإذا كان رقم (3) فنجد أنه خاص بمواليد 2000 حتى 2099، وهكذا كلما مر قرن زاد هذا العدد واحدًا. أما الأرقام من الثاني وحتى السابع، من اليسار، فهي خاصة بتاريخ ميلاد صاحب البطاقة، مثل «05 07 83»، فنلاحظ أن 05 تعني أنه مولود في يوم 5، و07 تعني شهر يوليو، و83 أي سنة 1983، وهكذا في بقية التواريخ. والرقمان الثامن والتاسع، من اليسار أيضًا، فهما للدلالة على كود المحافظة التي ولد فيها هذا الشخص، وأكواد محافظات مصر على بطاقة الرقم القومي هي: القاهرة 01، الإسكندرية 02، بورسعيد 03، السويس 04، دمياط 11، وهكذا. وإذا كان الشخص مولودًا خارج جمهورية مصر العربية فيكون الرقم ثابتًا 88 لكل المولودين خارجها. ثم نأتي للأرقام من العاشر وحتى الثالث عشر، فهي تشير إلى تسلسل الشخص على الكمبيوتر بين المواليد في يوم ميلاده، ولا علاقة لهذا التسلسل بسجلات المولود في السجلات الورقية؛ ويجب توضيح أن الرقم الثالث عشر (13) يشير إلى نوع المولود ذكر أم أنثى، فإذا كان عددًا فرديًا (1 أو 3 أو 5 أو 7 أو 9) فصاحب البطاقة ذكر، وإذا كان زوجيًا (2 أو 4 أو 6 أو 8) فهي أنثى. أما بالنسبة للرقم الأخير فوضعته وزارة الداخلية للتحقق من صحة الرقم القومي وأن البطاقة ليست مزورة، ويختلف الرقم من بطاقة لأخرى بين الرقم 1 و9. كما أن الرقم المدون في الوجه الخلفي لبطاقة الرقم القومي أسفل النسر هو رقم المصنع الذي قام بإنتاج البطاقة، وهذا الرقم يختلف من مصنع إلى آخر، والغرض من تدوينه على البطاقة هو سرعة التوصل لأي بطاقة مزورة لتحديد موظف الأحوال المدنية الذى قام بإصدار البطاقة لبيان مسؤوليته عن إصدار بطاقة مزوّرة.

السلام عليكم ورحمه الله وبركاته شوف الموضوع أدناه قد يفيدك ⬇️ يمكنك فعل هذا بوضع بكل سهوله لعرض كومبوبوكس مخفي في VBA، يمكنك استخدام الأمر التالي: ComboBox1.Visible = False هذا سيجعل الكومبوبوكس مخفيًا، مما يعني أنه لن يتم عرضه على الشاشة. لإظهار الكومبوبوكس، يمكنك إعادة تعيين الخاصية Visible إلى True: ComboBox1.Visible لعرض كومبوبوكس مخفي في VBA، يمكنك استخدام الأمر التالي: ComboBox1.Visible = False هذا سيجعل الكومبوبوكس مخفيًا، مما يعني أنه لن يتم عرضه على الشاشة. لإظهار الكومبوبوكس، يمكنك إعادة تعيين الخاصية Visible إلى True: ComboBox1.Visible= True

السلام عليكم ورحمه الله وبركاته بعد اذن استاذنا @حسونة حسين اسماح لي بالمشاركه راجع الموضوع ادناه قد ييفيدك الرقم _القومى.xlsm

السلام عليكم ورحمه الله وبركاته برجاء استاذ @sof17 كتابه شرح لما هو مطلوب كما ذكر استاذنا @حسونة حسين راجع الموضوع ادناه قد يفيدك

استاذي @Mohamed Hicham لم اجرب الكود لاني شغال من الهاتف المحمول اعذرني لو فيه خطأ

اسمح لي استاذ @Mohamed Hicham بالمشاركة مع حضرتك Sub SSheet() Dim ws As Worksheet, Data As Worksheet, ShName As String Dim LR As Long, ER As Long, x As Integer Set Data = Sheets("المدخلات") ShName = Data.Range("C2").Text ER = Data.Range("B" & LR).End(xlUp).Row If Not IsEmpty(Data.Range("B10:B20")) Then For x = 10 To ER If Data.Range("B" & x).Value = ShName Then Set ws = Sheets(Data.Range("C" & x).Value) '...rest of code End If Next x End If End Sub

ممكن تستخدم if إذا كان النطاق فارغ يقوم الخروج من الsub كالاتي if sheet1.range("b10:b20"). value then Exide sub end if

السلام عليكم ورحمه الله وبركاته بارك الله فيك وجزاك الله خيرا 🌹 مازال في جُعْبَتِهِ الكثير والكثير

السلام عليكم ورحمه الله وبركاته عمل اكثر من رائع 🌹 وبارك الله فيك وجزاك الله خيرا 🌹 لم اكن اعلم بان مثل هذه الأداة موجود من ذي قبل .

السلام عليكم ورحمه الله وبركاته ممكن تراجع هذا الموضوع أدناه ⬇️ قد يفيدك