طارق محمود

السلام عليكم وهذا كود فك الحماية لجميع الشيتات علي أساس أن كلمة السر هي 11 Sub Macro1() On Error Resume Next For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("11") Next i Sheets(1).Select End Sub

عفوا أخي محمد فريد لم أر مشاركتك إلا بعد أن شاركت بالمناسبة أخي أبوعلي ، كلمة السر 11

السلام عليكم تفضل اخي هذا الكود Sub Macro1() On Error Resume Next For i = 1 To Sheets.Count Sheets(i).Select [B7:I7].Locked = False ActiveSheet.Protect "11", True, True Next i Sheets(1).Select End Sub

السلام عليكم أخي العزيز لضيق وقتي حللت لك جزء من المطلوب في المرفق صافى الكمية آخر حاجة2.rar

السلام عليكم الأخت الفاضلة تفضلي بالمرفق حلين ، إختاري منهما راتب الموظفة2.rar

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

السلام عليكم عندك حق أخي الكريم أضف السطر التالي في أعلي كل دالة من الإثنتين Application.Volatile ليكون الكودين كالتالي Function TAK(a As Range) As String Application.Volatile If a.Count > 1 Then TAK = "N/A": GoTo 10 TAK = "" r = a.Row For c = 3 To 15 Step 2 If IsEmpty(Cells(r, c)) Then nr = Cells(r, c).End(xlUp).Row TAK = TAK & Cells(nr, c): GoTo 5 End If TAK = TAK & Cells(r, c) 5 Next c 10 End Function ===================================================== Function SNF(a As Range) As String Application.Volatile If a.Count > 1 Then SNF = "N/A": GoTo 10 SNF = "" r = a.Row For c = 6 To 14 Step 2 If IsEmpty(Cells(r, c)) Then nr = Cells(r, c).End(xlUp).Row SNF = SNF & " " & Cells(nr, c): GoTo 5 End If SNF = SNF & " " & Cells(r, c) 5 Next c 10 SNF = Trim(SNF) End Function

السلام عليكم أخي العزيز السؤال غير واضح لاأدري إن كان المرفق هو ماتريد book_2.rar

السلام عليكم أخي العزيز تم تحليل عمود "ارقام الوحدات المستدرجة" إلي عدة أعمدة لتمكين الإكسل من المقارنة تفضل المرفق به ماطلبت عن طريق التنسيق الشرطي 02_2.rar

تستطيع عمل ذلك في الشيت كله أو حتي الملف كله بالضغط علي Ctrl-H

السلام عليكم أخي العزيز لابد من مرجع حسابي لعملية الترتيب كأن يكون رقميا أو حروفا أبجدية ولكن يمكنك التحايل علي ذلك بالتالي في ترتيب الوظيفة تغير وظيفة رئيس قطاع إلي 1-رئيس قطاع وتغير وظيفة رئيس ادارة مركزية إلي 2-رئيس ادارة مركزية وتغير وظيفة مدير عام إلي 3-مدير عام وتغير وظيفة مدير ادارة إلي 4- مدير ادارة

السلام عليكم أخي الكريم إرفق الملف الاكسل بعد ضغطه باحدي برامج الضغط (winrar - winzip)

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

السلام عليكم أخي العزيز إقترحت لك دالتين تم استحداثهما خصيصا لهذا الغرض وهما SNF ، TAK وكودهما Function TAK(a As Range) As String If a.Count > 1 Then TAK = "N/A": GoTo 10 TAK = "" r = a.Row For c = 3 To 15 Step 2 If IsEmpty(Cells(r, c)) Then nr = Cells(r, c).End(xlUp).Row TAK = TAK & Cells(nr, c): GoTo 5 End If TAK = TAK & Cells(r, c) 5 Next c 10 End Function ================================================================= Function SNF(a As Range) As String If a.Count > 1 Then SNF = "N/A": GoTo 10 SNF = "" r = a.Row For c = 6 To 14 Step 2 If IsEmpty(Cells(r, c)) Then nr = Cells(r, c).End(xlUp).Row SNF = SNF & " " & Cells(nr, c): GoTo 5 End If SNF = SNF & " " & Cells(r, c) 5 Next c 10 SNF = Trim(SNF) End Function التكويد2.rar

السلام عليكم أخي العزيز تفضل المرفق غير في الخلايا الصفراء ثم اضغط السهم الأسود ترتيب حسب.rar

السلام عليكم تفضل المرفق أخي الكريم صافى الكمية2.rar

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

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

الحمد لله

السلام عليكم أخي الكريم تفضل الملف دالة للقسمة2.rar

هذه الدالة CELL يعقبها جزئين أحدهما إلزامي والثاني إختياري كان الخطأ في الحالة الأولي أننا لم نستخدم الجزء الثاني الإختياري CELL("filename") والذي يجعل الدالة ترجع لخلية في نفس الشييت لكن في الحالة الأولي (الخطأ) يرجع لآخر خلية نشطة (شاملا الشيت التي به تلك الخلية النشطة)

لم أفهم هل تم حل الموضوع أم لا؟؟

السلام عليكم أخي العزيز غير المعادلة بالتالية =RIGHT(CELL("filename",D1),LEN(CELL("filename"))-SEARCH("]",CELL("filename"))) أو تفضل المرفق try2.rar

السلام عليكم أخي العزيز أولا لاداعي لمخالفة قواعد المشاركة بتوجيه السؤال لشخص معين قد تحرم نفسك وغيرك من مشاركات أفضل كثيرا من هذا الشخص ثانيا: معادلتك مضبوطة فقط أنت نسيت تفعيل وضع الصفيف لتكون معادلة مصفوفة كما أشرت لك من قبل لتفعيل وضع الصفيف وأنت داخل الخلية (بعد كتابة المعادلة أو أثناء استدعائها للتصليح بضغط F2) لاتضغط إنتر فقط بل تضغط شيفت+كنترول+إنتر Shift+Ctrl+Enter ستجد المعادلة كما هي ولكن محاطة بقوسين معقوفين مثل هذه {المعادلة} ثم تأخذ منها النسخ تجد ذلك بالمرفق ، تفضل موظفين2.rar

السلام عليكم أخي العزيز لم أفهم السؤال جيدا المعادلة الحالية في المشاركة #2 =RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename"))) تأتي بإسم الورقة التي فيها المعادلة فقط جرب مرة أخري أو إشرح أكثر ماالمشكلة