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

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

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

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

اخى الفاضل استخدم المعادلة التالية =VLOOKUP($C11;OFFSET($BE$1;;;COUNTA(BE:BE);3);3;0) نموذج.rar

اخى الفاضل استخدم المعادلة التالية =INDEX($B$8:$AB$50;ROW(A1);MATCH($AD$5;$B$7:$AB$7;0)) بحث عن الاحياء والمراكز2.rar

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

السلام عليكم زيادة في اثراء الموضوع اليكم هذا الملف تاريخ تلقائي.zip

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

أخي الحبيب خالد الرشيدي بارك الله فيك وجزاك الله كل خير ..إبداع متواصل بلا فواصل إليك تعديل بسيط جداً ..بحيث تتعامل مع الأرقام فقط أكبر من الصفر .. أي تجنباً للنصوص والتواريخ المدخلة في العمود الأول وكذلك عمل تنسيق لللتاريخ بحيث يتناسب مع يوم / شهر / سنة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A100")) Is Nothing Then VBA.Calendar = vbCalGreg If Target > 0 And IsNumeric(Target) Then With Target(1, 2) .Value = Format(Date, "[$-1010000]yyyy/mm/dd;@") .EntireColumn.AutoFit End With Else Target(1, 2).ClearContents End If End If End Sub

أخي الكريم أبو لجين إليك التعديل ليناسب طلبك إن شاء المولى Function AnglesAverage(Rng As Range) Application.Volatile Dim Cell As Range, Counter As Long, Temp For Each Cell In Rng If Cell.Value < 180 And Not IsEmpty(Cell) Then Temp = Temp + Cell.Value + 360 Else Temp = Temp + Cell.Value End If If Not IsEmpty(Cell) Then Counter = Counter + 1 Next Cell AnglesAverage = Temp / Counter If AnglesAverage >= 360 Then AnglesAverage = AnglesAverage - 360 End Function قم بإدراج الكود مكان الكود القديم واذهب لورقة العمل وإذا وجدت النتائج لم تتغير يرجى الضغط على Ctrl + Shift + F9 لا تنسى أن تحدد أفضل إجابة ، ولو فيها رزالة مني متنساش تضغط على "أعجبني هذا"

ايه ياعمنا نحن اشتقنا للبرنامج وكمان ده توقيته