((( folks )))

متشكر جداً لحضرتك بعد إذنك أقوم بالتجربة وأبلغك بالنتيجة 🌹

السلام عليكم ورحمة الله وبركاته بمساعدة الأساتذة الأفاضل أصبح الكود يستخدم على إصدارات ما بعد 2003 ولكن لايقرأ ملفات الأكسل بإمتداد xlsx ويعطينى رسائل خطأ المرفق : Run v2.zip

كل التحية والتقدير نفع الله بك وبعلمك وزادك علماً 🌹

السلام عليكم ورحمة الله وبركاته أرجوا من الأساتذة الأفاضل حل للمشكلة الملف شغال على إصدار 2003 بدون أى مشكلة وليعمل على إصدارات أخرى RUN.xls

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

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

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

السلام عليكم ورحمة الله وبركاته بعد إذنك الاساتذة الأفاضل طلبى : نموذج رئيسى به ثلاث نماذج فرعى بياناتها من إستعلام جدولى أريد إظهار النتائج من خلال الإختيار من الكموبوكس (مرفق) إحصائية.rar

استاذى @kkhalifa1960 شكراً لك على سعة صدرك وتفهك وإعطائى جزء من وقتك الثمين وكل الأسف على عدم توضيح طلبى من أول مرة كل التحية والتقدير أستاذى الغالى فعلاً هذا طلبى جزاك الله كل الخير 🌹

أسف على عدم توضيح المطلوب بشكل واضح أتمنى المرفق يوصل الفكرة كل التحية والتقدير يا استاذى إحصائية 12.rar

اللى واصلنى إن هنا الارقام ( 0 , 2 , 1- , 0 ) اللى فى المعادلة أو الشرط تتماشى مع الأرقام اللى موجود ولا يجوز تغييرها ولاتعطى نتجية سليمة فى حالة تغييرها بمعنى إن الحقل MW قيمته أكبر من قيمة الحقل SY يكون الناتج بالزيادة أو الموجب دون التركيز على رقم معين فى أى من الحقلين ممكن الرقم يكون غير 4 أو 2 ويعطى فى النقص 0 بمعنى إن الحقل MW لو قيمته أقل من قيمة الحقل SY ينكون الناتج بالنقص أو السالب دون التركيز على رقم معين فى أى من الحقلين ويعطى فى الزيادة 0

أستاذى kkhalifa1960 لو تكرمت حضرتك هنا ثبت القيم أنا محتاج تكون حاصل أى عملية حسابية كل التحية والتقدير =IIf([MW]>[SY];0) =IIf([MW]>[SY];2) =IIf([MW1]<[SY1];-1) =IIf([MW1]<[SY1];0)

بارك الله فيك أستاذى الفاضل وادام عليك الصحة والعافية فعلاً كما طلبت كل التحية والتقدير 🌹

شكرا لمرورك الكريم إحصائية.zip

السلام عليكم ورحمة الله وبركاته رجاء من الأساتذة الأفاضل المعادلة أو الشرط لوضعه فى النموذج لإحتساب النقص اذا كان العدد 2 أقل من العدد 1 والزيادة إذا كان العدد 2 أكبر من العدد 1 وذلك لإحتساب النقص و الزيادة البيان صنف 1 صنف 2 العدد 1 2 2 العدد 2 4 1 نقص عن العدد 1 0 -1 زيادة عن العدد 1 2 0

قول حضرتك صحيح 100% بعد إذنك حضرتك تتكرم بتعديل بباقى الجمل لأنها تتعارض مع إصدار 2003 Private Sub TamamUpdate() Dim val, x As String ComboBox28.Clear If OptionButton1.Value = True Then val = ThisWorkbook.Path & "\Tamam\ONE\" ElseIf OptionButton2.Value = True Then val = ThisWorkbook.Path & "\Tamam\ALL\" End If With Application.FileSearch .NewSearch .LookIn = val .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Namey = .FoundFiles(i) For nn = Len(Namey) To 1 Step -1 If Mid(Namey, nn, 1) = "\" Then Namey = Right(Namey, Len(Namey) - nn) Namey = Left(Namey, Len(Namey) - 4) End If Next nn ComboBox28.AddItem Namey Next i End If End With End Sub Private Sub Removedfrm() val = ThisWorkbook.Path & "\" & ShNm & "\Ser" FlNo = 0 With Application.FileSearch .NewSearch .LookIn = val .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Namey = .FoundFiles(i) For nn = Len(Namey) To 1 Step -1 If Mid(Namey, nn, 1) = "\" Then Namey = Right(Namey, Len(Namey) - nn) End If Next nn LwF(i) = Namey Next i End If FlNo = .FoundFiles.Count End With For ShNo = 2 To ShNoE Tmam_Wbk.Sheets(ShNo).Select RTmpE = CLng(ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row) - 1 ShNm = ActiveSheet.Name For Rw = 2 To RTmpE If InStr(ActiveSheet.Cells(Rw, 1).Value, "إجمالى") Then GoTo Nxt30 Kat = ActiveSheet.Cells(Rw, 1).Value All_Wbk.Activate RAllE = 0 For i = 2 To LRow If ActiveSheet.Cells(i, 6).Value = ComboBox28.Value Then If ActiveSheet.Cells(i, 1).Value = ShNm Then If ActiveSheet.Cells(i, 3).Value = Kat Then RAllE = RAllE + 1 End If End If End If Next i Tmam_Wbk.Activate ActiveSheet.Cells(Rw, 5).Value = RAllE Nxt30: Next Rw Next ShNo End Sub عذراً ليس بالإمكان رفع الملف لأنه خاص بالمؤسسة

بارك الله فيك يا استاذى ونفع بك وبعلمك الأمة وجعل عملك هذا فى ميزان حسناتك يوم القيامة

السلام عليكم ورحمة الله وبركاته عند فتح الفورم بالأوفيس 2003 لا تظهر المشكلة ولكن عنده فتحه بإصدار أعلى تظهر المشكلة Private Sub FrstChnge(combo1, combo2) Dim val As String Dim ARY As Variant val = combo1.Value combo2.Clear If val = "" Then Exit Sub val = ThisWorkbook.Path & "\" & val & "\Ser" With Application.FileSearch .NewSearch .LookIn = val .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Namey = .FoundFiles(i) For nn = Len(Namey) To 1 Step -1 If Mid(Namey, nn, 1) = "\" Then Namey = Right(Namey, Len(Namey) - nn) Namey = Left(Namey, Len(Namey) - 4) End If Next nn combo2.AddItem Namey Next i End If End With End Sub