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

السلام عليكم اخي العزيز @عماد محمد عبد العزيز اسهل طريقة هي عمل ذلك عن طريق التنسيق الشرطي ضع الكود التالي في التعبير 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

جرب هذا الكود لتثبيت 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

عليك السلام ورحمة الله وبركاته كان يجب عليك استخدام خاصية البحث في المنتدى شاهد الرابط

اتفضل اخى محاوله على قد حالى محاوله على قد ادخل السن من الى ثم اختار الرتبه ان شاء الله يكون ما طلبت تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تصفية بالعمر.rar

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

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

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

عليك السلام ورحمة الله وبركاته بعد إذن الأستاذ khalf كان لزامًا عليك استخدام خاصية البحث في المنتدى

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

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

وعليكم السلام 🙂 اضف هذا المتغير الى القائمة: Public Const msoControlPopup = 10 جعفر

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

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

السلام عليكم ورحمة الله وبركاته متابع لك .. لان لدي نفس المشكلة ملف معمول على 2003 وفيها استعلامات مهمة ولااعرف كيف اتعامل معها واريد انا استخدم اوفيس 2013 ولكن لاتعمل الاستعلامات علما بأنه يعمل على اصدار اوفيس 2010

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

وعليكم السلام-تم عمل المطلوب فى كشف الحساب بمعادلات المصفوفة تكاليف محل1.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

تفضل هذا هو الكود Sub clear() kk = MsgBox("هل تريد مسح البيانات ؟", vbYesNo) If kk = vbYes Then Range("b11:C300").ClearContents Range("J11:k300").ClearContents End If End Sub برنامج التنسيق تعديل14.xlsm

تمت معالجة الامر Option Explicit Sub MY_Data_New() Application.ScreenUpdating = False Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, ro%: ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) SH_from.Cells(3, 1).Resize(MY_max, 6).Copy With T.Cells(ro, 1) .PasteSpecial (xlPasteValues) .PasteSpecial (xlPasteFormats) End With ro = ro + MY_max End If Next SH_from With T.Range("A3").Resize(ro - 4, 6) .Sort key1:=Range("b3"), Header:=1 End With Application.ScreenUpdating = True arraNge_all End Sub '+++++++++++++++++++++++++++++++++++ Sub arraNge_all() Application.ScreenUpdating = False Dim nro% Dim MM% nro = Cells(Rows.Count, 1).End(3).Row Dim color_rg As Range For MM = 4 To nro If Range("B" & MM).Interior.ColorIndex = 2 Or _ Range("B" & MM).Interior.ColorIndex = -4142 Then GoTo Next_MM If color_rg Is Nothing Then Set color_rg = Range("B" & MM).Resize(, 5) Else Set color_rg = Union(color_rg, Range("B" & MM).Resize(, 5)) End If Next_MM: Next If color_rg Is Nothing Then GoTo Contenu color_rg.Copy Range("B" & nro + 1) color_rg.EntireRow.Delete Contenu: Range("B4", Range("B3").End(4)).Offset(, -1).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" With Range("A3").CurrentRegion .Value = .Value .Borders.LineStyle = 1 End With Range("A4").Select Set color_rg = Nothing create_borders Application.ScreenUpdating = True End Sub '+++++++++++++++++++++++++++++++++++ Sub create_borders() Dim My_sh As Worksheet, r For Each My_sh In Sheets If My_sh.Name <> "Total" Then r = My_sh.Cells(Rows.Count, 2).End(3).Row My_sh.Cells.Borders.LineStyle = xlNone My_sh.Range("a2").Resize(r - 1, 6).Borders.LineStyle = 1 End If Next End Sub الملف الأخير Laste_flie.xlsm

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

شاهد الصورتين

أ.Khalf جرب المرفق وأفدنى بالنتيجة بالتوفيق معايير متعددة لاستعلام.accdb

تمت الإجابة فى المشاركة الأخرى

تمت الإجابة فى المشاركة الأخرى ورجاءا لا تقوم برفع مشاركتين لنفس الطلب جزاك الله كل خير

اهلا بك اخ كريم فى المنتدى لو ممكن رفع ملف للعمل عليه حتى تتمكن الأساتذة من المساعدة بارك الله فيك

احسنت استاذى الكريم بارك الله فيك

تفضل اقساط2.xlsx

اهلا بك اخ كريم فى المنتدى كان عليك القيام برفع ملف لكنى قمت بعمل هذا الملف لك للترتيب العشوائى ,ورقة بالكود وورقة بالمعادلة تفضل ترتيب عشوائى للأرقام.xlsm

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

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

بارك الله فيك استاذ طارق ,ولإثراء الموضوع هذه دالة معرفة My_Customesion تفضل My_Customesion.xlsm

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

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

اهلا بك اخ كريم فى المنتدى تفضل هذا الفيديو سيكون فيه الإفادة ان شاء الله https://www.youtube.com/watch?v=aOf9rMVejGI وهذا الفيديو ايضا به ملف البيانات وملف البحث بارك الله فيك https://www.youtube.com/watch?v=Fh6vEmFAXOk

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

ولك ايضا هذا https://ar.soringpcrepair.com/how-print-on-single-sheet-excel/

بفرض ان لدينا نموذج به مربع نص اسمه 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