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

وعليكم السلام ورحمة الله تعالى وبركاته Private Sub CommandButton1_Click() Const TableName As String = "Table5" Const WSdest As String = "Client ACC" Dim StartDate&, EndDate&, LastRow&, Col& Dim Tb1 As ListObject, rng As Range, Customer As String Set Tb1 = Range(TableName).ListObject Customer = Worksheets(WSdest).[H2] StartDate = DateSerial(Year(Date), Month(Date), Day(Date) - 100) EndDate = DateSerial(Year(Date), Month(Date), Day(Date) + 1) Application.ScreenUpdating = False If Me.ComboBox1.Value = "" Then: MsgBox "أختار أسم العميل حتي يمكنك عرض كشف الحساب", vbCritical, "Ah Med": Exit Sub fc = Application.WorksheetFunction.CountIf(DA.Range("B5:B1000"), Me.ComboBox1.Value) fm = Application.WorksheetFunction.CountIf(DA.Range("I5:I1000"), Me.ComboBox1.Value) If fc <= 0 And fm <= 0 Then: MsgBox "أسم العميل غير موجود ", vbCritical, "Ah Med": Exit Sub With Worksheets(WSdest) LastRow = .Cells(.rows.Count, "E").End(xlUp).Row .Range("E17:R" & LastRow).ClearContents .Range("G11:k11,k14").ClearContents .[H2] = Me.ComboBox1.Value: .[G2] = Format(StartDate): .[F2] = Format(EndDate) End With With Tb1 .Range.AutoFilter field:=2, _ Criteria1:=">=" & StartDate, _ Operator:=xlAnd, _ Criteria2:="<=" & EndDate .Range.AutoFilter field:=5, Criteria1:=Me.ComboBox1.Value On Error Resume Next Set rng = Union(.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible), _ .ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible), _ .ListColumns(3).DataBodyRange.SpecialCells(xlCellTypeVisible), _ .ListColumns(6).DataBodyRange.SpecialCells(xlCellTypeVisible), _ .ListColumns(7).DataBodyRange.SpecialCells(xlCellTypeVisible), _ .ListColumns(8).DataBodyRange.SpecialCells(xlCellTypeVisible), _ .ListColumns(9).DataBodyRange.SpecialCells(xlCellTypeVisible)) End With rng.Copy Worksheets(WSdest).[E17].PasteSpecial xlPasteValuesAndNumberFormats [E16].Select Application.CutCopyMode = False Tb1.ShowAutoFilter = False '===== sum total ========= With Worksheets(WSdest) Col = .Cells(.rows.Count, "E").End(xlUp).Row .[G11] = Application.WorksheetFunction.Sum(Range("H17:H" & Col)) .[H11] = Application.WorksheetFunction.Sum(Range("I17:I" & Col)) .[I11] = Application.WorksheetFunction.Sum(Range("J17:J" & Col)) .[J11] = Application.WorksheetFunction.Sum(Range("K17:K" & Col)) .[K11] = .[H11] + .[I11] + .[J11]: .[K14] = .[G11] - .[K11] End With Application.ScreenUpdating = True End Sub Storm - نسخة.rar

اجعل جميع الحقول ... Enable=NO وعند النقر على الكومبوبوكس ... Me.txt1.Enabled = True وهكذا للبقية

السلام عليكم ورحمة الله وبركاته السادة الزملاء الأعزاء إخوانى فى الله بفضل الله ومساعدة الأستاذ القدير أستاذى ومعلمى وأخى فى الله / @ياسر خليل أبو البراء تم الوصول إلى معادلة ممتاذة وقامت بالمطلوب بالفعل وهى : IFERROR(IF(E2=0;"";IF(G2<50%;F2*0;IF(AND(G2>=50%;G2<60%);(G2*F2)*1%;IF(AND(G2>=60%;G2<65%);F2*0.65%;IF(AND(G2>=65%;G2<70%);=(G2*F2)*1%;IF(AND(G2>=70%;G2<75%);F2*0.75%;IF(AND(G2>=75%;G2<80%);(G2*F2)*1%;IF(AND(G2>=80%;G2<90%);F2*0.9%;IF(AND(G2>=90%;G2<100%);(G2*F2)*1%;IF(G2>=100%;F2*1.2%))))))))));"") وتم تطبيقها بالنموذج المرفق وأحببت أن أشاركها معكم ليستفاد الجميع بارك الله فيك أخى الحبيب @ياسر خليل أبو البراء وزادك من علمه وفضله وجعله فى ميزان حسناتك تجربة.xlsx

اتفضل هذا الكود برعاية الاستاذ عمر ضاحى لسه واخداه منه حاليا مايغلاش عليك New Microsoft Access Database.accdb

ما شاء الله عليك @محمد السيسي و يمكن استخدام .. If Me.text7.Value = DLookup("crn", "Block") Then MsgBox "كود العقار محضور", vbCritical End If

وعليكم السلام ورحمة الله وبركاته يوجد مواقع كثيرة لعمل ذلك مثل https://www.ilovepdf.com/pdf_to_excel ولو تمتلك اكسيل 365 يمكن عمل ذلك مباشرة اليك شرح ذلك باستفاضة في الفيديو التالي

تفضل هذا مثال للمطلوب محافظات.zip Jordan2024.accdb

Al-Raadi الرابط لا يعمل

لم تذكر ما هي التغييرات مع ذلك تحويل عمود (1).xlsm

عسى يكون المطلوب تحويل عمود (1).xlsm

اخي عبد اللطيف سلوم هل بالامكان ربط خيارات البحث بحيث من الخيار الاول يكون بشكل كلي ثم الخيار الثاني يحدد شرط معين لننتقل للخيار الثالث الذي يتم فيه فلترة المطلوب حسب الخيار الاول و الثاني في البحث فرضا لو اعتبرنا الخيار الاول البحث في منطقة تعلمية ثم نحدد في الخيار الثاني نوع المرحلة ابتدائي او ثانوي ثم بالخيار الثالث يحدد نظاق المدارس حسب المنطقة و المرحلة التعليمية في حدول منسدل ولك كل الاحترام و التقدير

ممتاز محاولتك جدا .... المشكلة أن هذه معادلة صفيف يعني لا يكتنفي ان تكتب المعادلة وتضغط زر Enter معادلة الصفيف إكتب المعادلة الأولى واضغط هل Ctrl + Shift + Enter بعدها لو سحبتها على باقي الخلايا سيتم المراد إن شاء الله

الله يجبر بخاطرك فضلا وليس أمرا اختيار الحل كأفضل اجابة بالضغط عى 🤍

تفضل اخي الكريم ابسط طريقة للمطلوب من حضرتك فضلا ان كان هذا ما تريد اضغط على افضل اجابة 👍 New Microsoft Access Database.rar

يااااااااااااااااااااااااااااااا فنااااااااااااااااااااااااااااان تعيش يا عبقري .ربنا يسعدك واشكرك من كل قلبي

اتفضل اخي الكريم تم تعديل الملف السابق كما تريد فضلا ان كان هذا ما تريد اضغط على افضل اجابة 👍 بحث عن درجات.rar

تفضل هذا المرفق واعطيني النتيجة Give.accdb

مشاركة مع الاستاذ @kkhalifa1960 المخالفات المرورية3.rar

أستاذ أحمد أولا شكراً لردك بكلماتك الرقيقة .... وأنتم كذلك . انت عنك 313 مشاركة استفد من ملاحظات مهمه : من استاذنا @Bluemind والتي بتوقيعي في مشاركاتي .... لك شخصياً وللذي يريد مساعدتك أنفاً . لأن ومع احترامي الكامل للغتنا الجميلة بتلخبط البرمجة لأن الكودات المتضمنة في حزمة الفيجوال بيسك أكسس مافيها اللغة العربية ولا أي لغة أخرى غير الانجليزية . وشكراً.

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

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

تفضل search.accdb

جزاك الله كل خير أستاذ @عبد اللطيف سلوم ، شرح كافي و وافي

بدل (y2) إلى >(TT) ووافني بالرد .

تفضل استاذي محاولتي ووافني بالرد أو ملاحظاتك . stlist (1).accdb

السلام عليكم بعد اذن الاخ الكريم ابن مصر جزاه الله خيرا على الحل ولاثراء الموضوع هذا حل مختلف بالجدول المحوريه pivottable فيديو بسيط بالشرح https://www.youtube.com/watch?v=mKATOz2xJoE تقبل خالص تحياتى

السلام عليكم لتشغيل الماكرو عند فتح الاكسل 1-اجعل الماكرو في حدث "this workbook" 2-اكتب الكود بين هذين السطرين Private Sub Workbook_Open() اكتب الماكرو هنا End Sub

السلام عليكم ورحمة الله وبركاته عذرا لتأخري في المشاركة في هذا الموضوع ولكن أتيت لكم بموديول واحد به كل ما تريد دالة التفقيط العربي والانجليزي للأخ الرائع أبو هادي والتي قمت فيها ببعض التعديلات ويمكنك من التحكم في عدد المنازل العشرية مراعاة قواعد اللغتين في التفقيط بحيث يراعي كون المعدود مذكرا أو مؤنثا يراعي وضع المعدود والكسر منونا بالنصب وغيرها أترككم مع الملف المرفق وأي مساعدة لا تتردد فزكاة العلم نشره وكثيرا ما استفدت من هذا المنتدى الرائع أخوكم محمد صالح ar_en_tafqeet.rar