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

السلام عليكم اخي العزيز @عماد محمد عبد العزيز اسهل طريقة هي عمل ذلك عن طريق التنسيق الشرطي ضع الكود التالي في التعبير DCount("[M P R]";"[ben]";"[M P R] = [Person in charge] ")>=2 تفضل الملف بعد التعديل تحياتي PRODUCT.rar

السلام عليكم إذا كنت تقصد دمج المراسلات إكسيل - وورد، بالنسبة للتاريخ تضيف إلى كود الحقل الخاص بالتاريخ (في ملف الوورد المعني بدمج المراسلات) العبارة \@ "dd MM yyyy"...

جرب هذا السبب في Module1 من بعد Dim KH_Test As Boolean New_folder.rar

وعليكم السلام -تفضل حافز 2العملاء.xlsx

اولاً يجب ازالة دمج الحلايا (علة العلل لكل معادلة او كود) من الصفحة P الأعمدة 1و 2 و 3 ثانياً أنت لم تذكر للاكسل عن اية سنة تريد جمع ايام اشهر جانفي لذلك قام البرنامج بجمع الايام عن كل اشهر جانفي لكل السنوات تم معالجة الامر REpport.rar

يجب وضع Unload Me ثم MAINFORM.Show شاهد المرفق Formssss.xlsm

طريقة عمل تراجع عن الامر المنفذ عن طريق كود مثل ( ctrl+z) هذا الكود كتبه احد اباطرة VBA عام 2005 Mr.Jan Karel Pieterse لنشاهد المرفقات Undo_Handler.xls

جرب هذا الملف ATM_BANK.xlsx

الأمر بسيط جدا فقط عليك اضافة أخرى End If

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

وعليكم السلام -وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة فيتغير سهم القائمة المنسدلة من اليسار الى اليمين ... عندما تقوم بتغيير اتجاة الكتابة بالصفحة من اليسار الى اليمين اى عكس الموضح بالصورة التى قمت انت برفعها

السلام عليكم أستاذ جعفر موضوع في قمة الروعة ملاحظة صغيرة في الكود الموضوع بالأعلى : هناك بعض المتغيرات غير مصرح بها مع أنها موجودة في المرفق لكن من يريد تطبيق الكود بشكل مباشر من المشاركة سوف يظهر له خطأ. Public Const msoBarPopup = 5 Public Const msoControlButton = 1 Public Const msoControlEdit = 2 Public Const msoControlComboBox = 4 Public Const msoButtonUp = 0 Public Const msoButtonDown = -1 أخيرا لي الشرف العظيم أن أقوم بتثبيت هذا الموضوع

اهلا بك اخ كريم فى المنتدى تفضل 10101g0101.xlsx

تفضل اخي الكريم _______Library -.rar تحياتي

جرب هذا الكود لتثبيت Text Box Private Sub TextBox1_Change() lr = Range("d" & Rows.Count).End(xlUp).Row ActiveSheet.Range("$A$3:$S$" & lr) _ .AutoFilter Field:=4, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*" With ActiveSheet.TextBox1 .Top = Cells(2, 2).Top: .Left = Cells(1, 1).Left + 150 .Width = 150: .Height = 30 End With End Sub '+++++++++++++++++++++++++ Private Sub Worksheet_Activate() With ActiveSheet.TextBox1 .Top = Cells(2, 2).Top: .Left = Cells(1, 1).Left + 150 .Width = 150: .Height = 30 End With End Sub الملف مرفق MY_Saerch.xlsm

المثال السابق يبحث في نفس النموذج واذا كنت تستخدم نموذج رئيسي ونموذج فرعي Dim myfilter As String myfilter = "[city]='" & [tx2] & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True المثال مرفق بحث2.accdb

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

أستاذ hamza su khateeb أين الضغط على الإعجاب ؟!💙

السلام عليكم يمكنك استخدام الكود التالي DoCmd.OpenReport "تقرير المصروفات", acViewPreview, , "Teacher = '" & Me.ZTeacher.Column(1) & "'" تحياتي

اخي شكرا لك على البرنامج و لكن انا اريد حساب العمر بتحديد التاريخ الذي اريده و اريد بعد عملية التصيفة بالعمر اعمل تصفية بالرتبة لنفس الاشخاص الذين هم بهذا العمر ارجو ان يكون سؤالي واضح و بارك الله فيك .

شكرا اخي احمد بدره شكرا اخي ابو طيبه

باسم الله ما شاء الله دائمًا تذلل كل الصعوبات بارك الله فيك

وعليكم السلام ورحمة الله وبركاته الحل الامثل لما ذكرت هو ان تكون قاعدة البيانات Sql Server وهناك شروحات كثيرة تفضل هذا موضوع لاستاذنا الفاضل @Elsayed Bn Gemy تحياتي

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

شکرا لاستاذ صالح حمادي ذاك الطريقة يتم استخدامه اذا لم يكن الجدول المفروض يغير قيمة الافتراضية كمصدر النموذج اللي نعمل عليه وهذه طريقة يتم استخدامه في نموذج نفسه لجلسة واحدة فقط اي عند اغلاق النموذج راح يرجع لقيمته اافتراضي الاولى ' اذا كان حقل من نوع النصية ستستخدم هذا مثلا Me.Field1.DefaultValue = """" & Me.Field1.Value & """" ' اما اذا كان حقل من نوع الرقمي ستستخدم هذا 'Me.Field2.DefaultValue = "" & Me.Field2.Value & ""

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

أحسنت بارك الله فيك وزادك الله من فضله

جرب هذاه المعادلة =INDEX($B$3:$B$8,MOD(ROWS($A$1:A1),2)+1,)*1

السلام عليكم ورحمة الله تفضل الملف المرفق وفيد ما تريد بمعادلة صفيف... بن علية حاجي Book121.xlsx

وبما انك لم تقم برفع ملف فعليك بتحميل هذا البرنامج من النت وسيجلب لك كلمة السر ان شاء الله تفضل Passware Kit Enterprise Passware Kit Forensic 13.5

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

تفضل -تصبح المعادلة هكذا =IFERROR(IF(ROWS(A$1:A1)>COUNTIF(E$4:E$100,"<>"""),"",INDEX($D$4:$D$100,SMALL(IF(E$4:E$100<>"",IF(E$4:E$100<>"",ROW(E$4:E$100)-ROW(E$4)+1)),ROWS(A$1:A1)))),"") Fathi2.xlsx

تفضل Sub exit_end() For Each w In Application.Workbooks w.Save Next w Application.Quit End Sub وهذا كود أخر ايضا يلبى طلبك Sub testSave() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit End Sub

وعليكم السلام -تفضل New Microsoft Excel Worksheet.xlsx

وجدت درس رائع يقوم بشرح اهم دوال برنامج الاكسل بطريقة سهلة وجميلة حيث يحتوى على شرح الدوال التالية SUM - RAND - RANDBETWEEN - SQRT - ABS - COUNT - COUNTA - COUNTBLANK - MAX - MIN DATE - TIME - DAY - MONTH - YEAR - HOUR - MINUTE - SECOND - ISNUMBER - ISTEXT رابط الدرس دوال برنامج Excel

بعد اذن حبيبي أحمد نعم ضع المعيار الذي تريد في مصدر مربع التحرير انظر المثال ... تجربة تختصر عدد التقارير1.rar

أ.AhmedEmam جرب المرفق عسى أن يكون المطلوب بالتوفيق Increase TextBox.accdb

السلام عليكم لقد وجدت الحل المطلوب كاملاً من خلال الرابط الآتي http://allenbrowne.com/ser-62.html شكراً لكل من رغب بالمساعدة و الشكر الخاص للأستاذ @essam rabea

اهلا بك اخى ابراهيم فى المنتدى الرقم السرى موجود فى المشاركة الأولى للأستاذ عوض , صاحب الموضوع وهو : 301155 بارك الله فيك

بعد اذن استاذى سليم هناك اربعة طرق داخل الملف لهذا الغرض كتابة ارقام التليفون بالصفر من اليسار.xlsx

احسنت استاذ سليم بارك الله فيك وزادك من فضله

اهلا بك اخ كريم فى المنتدى برنامج رائع بارك الله فيك وجزاك الله كل خير

تفضل اخى الكريم هذه معادلة اخرى معرفة Payout استخراج ناتج معادلة مكونة من عدة شرائح.xlsm

أخى الكريم تمت الإجابة من قبل الأستاذ طارق محمود فى قسم الإكسيل

اهلا بك فى المنتدى الكريم بارك الله فيك وجزاك الله كل خير

تفضل اخى الكريم والطباعة مضبوطة على الصفحة بدون اية اكواد أجندة محامى.xlsm

بسم الله الرحمان الرحيم اليوم لتحميل برنامج الدالفي على الموقع التالي أخوكم في الله المبرمج : مناد سفيان الجزائر.https://www.embarcadero.com/products/delphi

أخى الفاضل / ياسر الحافظ أرجو أن أراك يوميا.. لأنك ونعم الأخ

هذه العبارة أحزنتنى جدا .. لأنه من حقك .. أخى الفاضل / تـــــامر السلام عليكم تفضل أخى الفاضل تم تم التعديل المطلوب كما طلبتم ولكن .. ردكم على رسالتى بعمل مخالف تماما لما طلبتم من حيث الملف أو التطبيق .. البحث فى هذا المثال بحروف أو تطابق من العمود الأول لا تكل أو تمل من السؤال حتى نصل .. هذا من حقكم .. نحن معا.. Tamer 5.rar

بفرض ان لدينا نموذج به مربع نص اسمه NewDefult و زر اسمه ChangeDefult ونريد عند الضغط على زر ChangeDefult أن يقوم بتغيير القيمة الافتراضية لحقل Price الموجود فى جدول Products وجعل القيمة الفتراضية مساوية للقيمة الموحودة فى مربع النص NewDefult نفوم بكتابة هذا الكود فى حدث Click للزر ChangeDefult Private Sub ChangeDefult_Click() Dim TAbleName As String Dim FieldName As String TAbleName = "Products" FieldName = "Price" CurrentDb.TableDefs(TAbleName).Fields(FieldName).DefaultValue = Me.NewDefult End Sub