ياسر خليل أبو البراء

أخي الكريم يرجى التوضيح للمطلوب .. لم أفهم المطلوب على الإطلاق

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

وعليكم السلام أخي وأستاذي ومعلمي أحمد زمان الإبداع أنتم من علمتمونا إياه .. ومهما بلغ بنا الإبداع بمكان ، فلن نصل إليكم فأنتم القمم العالية ، ونحن ما زلنا نتلمس الوصول للقمة بارك الله فيكم ودمتم لنا بخير تقبل وافر تقديري واحترامي

الفكرة واضحة الآن ..ارفق ملفك به الصورة للتضح الصورة أكثر ويبدأ إخوانك في المنتدى بتقديم ما لديهم من أفكار .. لا أحبذ الافتراضات أكثر من المسلمات .. قم بتنفيذ فكرتك واترك ما تبقى من عمل لإخوانك

أخي الكريم هل تم الطلب الأول بشكل مضبوط وتم المطلوب ؟ بالسبة للطلب الثاني يحتاج لتوضيح بالنتائج المتوقعة ..؟؟ ارفق ملف معبر عن الطلب رجاءً

جرب الكود التالي Sub Test() With Sheet1 .Range("I61") = Application.Sum(.Range("I10:I60")) .Range("I64") = Application.Sum(.Range("I61"), .Range("I62")) - Val(.Range("I63")) End With End Sub عله يكون المطلوب

أخي الفاضل فضل أبو الفضل إليك المعادلة التالية في الخلية G9 =IF(ROWS($1:1)>SUM(IF(FREQUENCY(IF(A$2:A$41=F$9,B$2:B$41),B$2:B$41),1)),"",SMALL(IF(FREQUENCY(IF(A$2:A$41=F$9,B$2:B$41),B$2:B$41),B$2:B$41),ROWS($1:1))) المعادلة معادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter .. إذا واجهتك مشكلة مع المعادلة يمكنك استبدال الفاصلة بفاصلة منقوطة تقبل تحياتي

ما هي كلمة السر لورقة العمل؟

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

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

ارفق نموذج مصغر لملفك ووضح بالضبط المطلوب أخي الكريم

أخي الحبيب أسامة كنت مختفي فين بقالك فترة ؟؟ عوداً حميداً .. وتسلم على الملف الجميل والمفيد

يمكن إدراج الصورة ثم في الأماكن المخصصة لكتابة البيانات يمكن وضع مربع نص textbox هذا مجرد رأي

أخي وحبيبي أحمد يعقوب .. سملت يديك (هغلط عشان خاطر عيونك .. أنا عارفها سلمت يداك) منور المنتدى وسعيد بوجودك .. يا رب ديمها علينا نعمة ياااااااااااااااااارب

إخواني الكرام أخي الحبيب حسام عيسى وأنس دروبي وأبو يوسف بارك الله فيك صقر المنتدى وجزاك الله كل خير جرب الكود التالي وشوف النتائج صحيحة أم لا .. للتأكد من عمل الكود وجرب سرعة الكود مع بيانات أكثر .. Sub YasserKhalil() Dim Accts As Variant, Data As Variant, Results() As Double Dim D1 As Date, D2 As Date Dim I As Long, J As Long With Sheets("Data") Data = .Range("A5", .Range("A" & Rows.Count).End(xlUp)).Resize(, 9).Value End With With Sheets("Balance") Accts = .Range("B8", .Cells(Rows.Count, "B").End(xlUp)).Value ReDim Results(1 To UBound(Accts, 1), 1 To 2) D1 = .Range("B3").Value D2 = .Range("B4").Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = 1 To UBound(Accts, 1) .Item(Accts(I, 1)) = I Next I For I = 1 To UBound(Data, 1) If .Exists(Data(I, 2)) Then If Data(I, 1) >= D1 And Data(I, 1) <= D2 Then J = .Item(Data(I, 2)) If Data(I, 8) <> "" Then Results(J, 1) = Results(J, 1) + Data(I, 8) If Data(I, 9) <> "" Then Results(J, 2) = Results(J, 2) + Data(I, 9) End If End If Next I End With .Range("E8:F8").Resize(UBound(Results, 1)).Value = Results End With End Sub ميزان المراجعة بالكود.rar

الأخ الكريم يرجى إرفاق ملفك فيما بعد في أي موضوع بدون حماية راجع التوجيهات

هو فين شحاته ..أقصد هو فين البرنامج ..أقصد برنامج ايه؟ هل تقصد الملفات المرفقة ؟؟ Test.rar

جرب الكود التالي عله يفي بالغرض Sub Test() Dim I As Long, A With Sheet2 For I = 1 To .Cells(Rows.Count, "A").End(xlUp).Row If .Cells(I, "B") = "غ" Then A = Application.Match(Sheet2.Range("A" & I), Sheet1.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row), 0) If IsNumeric(A) Then MsgBox A End If Next I End With End Sub

بدلاً من حذف الموضوع لما لا تقدم الحل الذي توصلت إليه ليستفيد منه غيرك أخي الكريم

ارفق الملف الذي به المشكلة للإطلاع عليه قد يكون هناك كود في حدث ورقة العمل يقوم بإزالة الحماية عن خلايا محددة (هذا مجرد تخمين)

أخي الكريم جرب المعادلة التالية في الخلية A2 =SUM(N(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2"))) المعادلة معادلة صفيف أي أنه يتم الضغط على Ctrl + Shift + Enter معاً بعد إدخال المعادلة في الخلية المجاورة ضع نفس المعادلة وغير فقط A2 إلى B2 (ولا تنسى أنها معادلة صفيف)

تم حل المشكلة ..بحمد الله بارك الله فيك على اهتمامك بالرد

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

للأسف معظم البرامج التي تقوم بالتحويل للغة العربية ليست دقيقة وتسبب مشاكل في التحويل .. لو حد يعرف برنامج أكيد بيحول من PDF إلى ورود أو إكسيل يدلنا عليه لأنه مهم جداً

شيل الحماية بشكل مبدئي حدد خلايا ورقة العمل بالكامل كليك يمين ثم Format Cells وفي آخر تبويب اسمه Protection هتلاقي خيار اسمه Locked علم عليه صح عشان تقدر تقفل كل الخلايا .. لو فيه خلايا عايز تخليها مفتوحة حتى مع الحماية حدد الخلايا دي وكليك يمين ونفس الخطوات وشيل علامة الصح .. نفس ما قيل مع الخاصية Locked ينطبق على الخاصية Hidden