نجوم المشاركات

AutoFilter with 34 Dynamic Filter Criteria اتوفلتر ب 34 دينامك شرط كما لم تراه من قبل !!!_XlDynamicFilterCriteria.xlsb

'غير xlPasteValuesAndNumberFormats 'مكان xlPasteValues 'وضيف الكود ده لو حابب تاخد الوان الخلايا والحدود Sheets("sheet1").Range("a9").PasteSpecial xlPasteFormats كدا هينسخ القيم والتنسيق مع بعض

اتمني يكون الكود ده ساعد حضرتك Dim LR As Integer LR = Sheets("اليومية الامريكية").[m1000].End(xlUp).Row Sheets("اليومية الامريكية").Range("a9:w" & LR).Copy Sheets("sheet1").Range("a9").PasteSpecial xlPasteValues MsgBox "تمت الاضافة بنجاح", vbInformation, "تم" ترحيل.xlsm

وعليكم السلام-لك ما طلبت projet2.xlsx

مع ذلك اخي قاسم لاخي احمد كل الود والاحترام ولايمكن ان اكون اعنيه فيننا زمالة قديمة واحترام متبادل ولو تلاحظ انني لم اتحدث مطلقا عن الكود ولا استخدام الدالة الذي اشار اليها وفي واقع الامر عندما شاهدت الموضوع قبل اي مشاركه منك اخي قاسم ومن اخي ابو بسلمة كتبت رد على اخي حلبي بعدم الحاجة الى الجدول وان الاستعلام يكفي ولكن ادركني الصباح فسكت عن الكلام المباح اللَّهُمَّ اهْدِنِي لِمَا اخْتُلِفَ فِيهِ مِنَ الْحَقِّ بِإِذْنِكَ، إِنَّكَ تَهْدِي مَنْ تَشَاءُ إِلَى صِرَاطٍ مُسْتَقِيمٍ

بعتذر مش هقدر اساعدك فالوقت الحالى بالتوفيق

السلام عليكم الموضوع شد انتباهي فعذرا على المداخلة دالة switch لها من اسمها نصيب فهي اشبه ماتكون بمفتاح تبديل يقوم بتقيم كل المتغيرات ثم يعرض احدها مثال Switch([ID]=1,"IBM",[ID]=2,"HP",[ID]=3,"NVidia") اي عندما تكون قيمة id =1 تكون القيمة اي بي ام 2 تكون اتش بي وهكذا ولا نحتاج الى تكرار الشرط لا اعتقد انها مثلها استاذ احمد الدالة المشابهة لـ if هي Select Case المثالين يوضحون الامر iif iif([ID]=1,"IBM",iif([ID]=2,"HP",iif([ID]=3,"NVidia","other"))) if if [id]=1 then [kh]="IBM" ElseIf me.id =2 then [kh] ="hp" ElseIf me.id =3 then [kh] ="NVidia" else [kh] ="other" End If وفي هذا المثال ☝️ لو استخدمنا Select Case لكان افضل Select Case me.id case 1 [kh] ="hp" case 2 [kh] ="hp" case 3 [kh] ="NVidia" Case Else [kh] ="other" End Select ومادمنا نتحدث عن ارجاع قيمة يمكنا الاشارة ايضا الى دالة Choose وهي تقوم بإرجاع قيمة من قائمة الاختيارات بناءً على قيمة الفهرس مثال Choose([id],"ibm","hp","NVidia") Choose و switch قد تعطي نتائج غير متوقعة لذا يراعي استخدام وسيطة مناسبه معهما والموضوع اكبر من ذلك فقد يظهرلنا ان هناك بعض التشابهة بين عمل العديد من الدوال ولكن لكل دالة استخدامها ومتى يكون ذلك اعتذر عن اي خطا في الاكواد لكوني اعتمد على الذاكرة والتي قد تخون احيانا . وهنا اتوقف وندع الامر لاهل الاختصاص قالت العرب من تحدث في غير فنه اتى بالعجائب والله اعلم

انظر للمرفق الذي عملته حسب معطياتك قم بالتعديل حسب افكارك ..ثم اطرح اسألتك subject.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 أهلا وسهلا بك أخي @Mohamed ElGanainy في ربوع منتدانا 🙂 🌹 حبذا أن ترفق ملف الأكسس في موضوعك أخي محمد للتمكن من فهم الفكرة عملياً 🙂

بارك الله ولك مثل ما دعوت

العفو أخي الحبيب نافع أسأل الله تعالى أن ينفعك بها، وبإذن الله ما زال هنالك المزيد من التحديثات القادمة أسأل الله تعالى أن يستجيب دعواتك الطيبة ولك مثل ذلك 🙂

ربما Sub test() Dim mr As Range Dim r As Range For Each r In Cells(4, 3).Resize(Cells(Rows.Count, 3).End(xlUp).Row, 9).Cells If r = 0.15 Then If mr Is Nothing Then Set mr = r Else Set mr = Union(mr, r) End If End If Next mr.Name = "rng_15" End Sub

https://youtu.be/raKVyV2GFww هذه البداية https://docs.microsoft.com/en-us/office/vba/api/excel.application.sendkeys وهذا ايضا

شكرا أخي للرد تم حل المشكل الله يجازيك

السلام عليكم ورحمة الله وبركاته الف شكر لك lionheart مع الف باقة ثناء واحترام

The code sheet name is not the same

سوف نتفقد هذه النصائح ، شكرا جزيلا لك ، بارك الله فيك

كلنا هكذا ونتعلم من اخواننا واساتذتنا ومن تجاربهم العمليه وجزاك الله خيرا ع مشاركتك معنا ما تعرفه فما تعرفه قد اجهله واتعلمه منك فجزاك الله عنى كل خير وجعل ما تقدمه لاخوانك فى ميزان حسناتك اخى محمد 💐🌹 بالتوفيق اخى محمد

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

أحسنت استاذ عمر بارك الله فيك وجزاك الله خير الثواب بالتأكيد موضوع هام ومفيد للجميع

شاهدي المرفق Tq.xlsm

وعليكم السلام تفضل ... وهذا فيديو أيضاً للتوضيح projet2.xlsx

وعليكم السلام ولكن سأرد أيضاً بدون ملف .. فلنفترض الرقم 5 موجود بالخلية A1 فستكون المعادلات كالتالى : B2 =MROUND($A$1/$A$1,1) أما معادلة الخلية C1 ستكون سحباً للنهاية كالتالى : =IF(SUM($B$1:B1)=>$A$1,"",MROUND($A$1/$A$1,1))

مشكور الله يسعدك

عليك استخدام خاصية البحث بالمنتدى قبل رفع المشاركة خدمة جلب قاعدة بيانات المدارس بالتربية والتعليم في مصر لملف إكسيل في أقل من 5 دقائق

الله يكرمك استاذ مجدى نشاط ملحوظ وعمل ممتاز بارك الله فيك

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك

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

السلام عليكم ..التعديل هنا Range("B45:H191").Copy تفضل الملف vehicles Cost.xlsm

تفضل يمكنك استخدام هذه المعادلة =B2*B4+(B3-1)*(B4*B2) معادله - 4.xlsx

وعليكم السلام-يمكنك استبدال معادلتك الموجودة بالعمود B بهذه المعادلة المصفوفة =IFERROR(INDEX(Feuil1!$B$2:$B$340, MATCH(0, IF(A$1=Feuil1!$A$2:$A$340, COUNTIF($B$3:$B3,Feuil1!$B$2:$B$340), ""), 0)),"") كما تم تصحيح معادلة Sumproduct واضافة اليها شرط أخرحتى تحتوى وتشمل المؤسسة أيضاً فتصبح المعادلة كالتالى =SUMPRODUCT((Feuil1!$A$2:$A$31=$A$1)*(Feuil1!$B$2:$B$31=$B4)*(Feuil1!$D$2:$D$31=C$3)*(Feuil1!$E$2:$E$31)) Classeur02_Mawad_new 2022.xlsm

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

وعليكم السلام -يمكنك ذلك بهذه المعادلة =1/(1/LOOKUP(9^9,$K$7:$K$160/($L$7:$L$160=$H$6))) OFIC1.xlsm

بسم الله الرّحمن الرحيم وعليكم السلام ورحمة الله تعالى وبركاته موحبًا بكم أخي المُبارك، والله تعالى نسألُ أن يجمع الإخوة هُنا على الخَير دائِمًا. هذا القِسم نجدِ فيه توجيهاتٍ نافعة: https://www.officena.net/ib/forum/33-المنتدى-المفتوح/ والله تعالى يحفظ إخوتي جميعًا.

طيب سوى جدول باسم tblRegistrationDate وسوى بداخلة حقل من نوع تاريخ باسم RegistrationDate وسوى جدول للتجربة باسم tblData وسوى بداخله اى حقول من اى نوع بيانات تريدها للتجربة سوى نموذج مصدر بياناته الجدول tblData على ان يكون داخل النموذج فى الفوتر مثلا بعيد عن الحقول الرئيسية للجدول العناصر الاتية بالترتيب بالاسماء الاتية عدد 2 مربع نص + عدد 1 زر أمر مربع النص الاول يكون باسم txtRegistrationDate مربع النص الثانى يكون باسم txtDayDate زر الامر سمه ما شئت الاكواد المستخدمة تكون كالاتى اولا عند فتح النموذج txtRegistrationDate = Nz(DLast("[RegistrationDate]", "tblRegistrationDate")) وهذا لجلب آخر قيمة تاريخ سوف تقوم بتسجيلها داخل جدول tblRegistrationDate ثانيا مربع النص txtDayDate اعتبره تاريخ اليوم ضع فيه تاريخ اليوم للتجارب كما تريد قصدت فى الشرح استخدامه كمربع نص لتغير قيمة التاربخ لمرونة التجربة بعد ذلك استبدله بدالة Date() ثالثا على زر الامر عند النقر ضع الكود الاتى Select Case Nz(txtRegistrationDate, "") Case Is = "": Exit Sub Case 1 = Format(CVDate(txtDayDate), "dd/mm/yyyy") > Format(CVDate(txtRegistrationDate), "dd/mm/yyyy") Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Case Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End Select Me.Requery اعتذر لتقديم الاجابة النظرية فقط فى الوقت الراهن

نفس الفكرة يمكنك التوصل لها بمفردك Private Sub TextBox1_AfterUpdate() Me.TextBox2.Value = Year(Date) - Val(Me.TextBox1.Value) End Sub بالتوفيق

جرب هذا اخي الكريم ايضا .. Search++.xlsm

جرب هذا data2.xlsm

السلام عليكم تفضل 12.xlsm