إيهاب عبد الحميد

السلام عليكم ورحمة الله وبركاته اسف للتعليق بعد الإجابات والانتهاء من الموضوع أعتقد من الأفضل هو تغيير التنسيق ليكون تنسيق كسور فمثلا في الصيغة الرائعة التي وضعها استاذنا وعبقري الإكسيل أ/ حسونة لو انني غيرت مثلا L10 الى رقم 120 يكون الناتج كالآتي 8/16 7 أما من خلال التنسيق سيظهر الرقم 1/2 7 وأعتقد هذا أوقع وشكرا لسعة صدركم فتكون المعادلة عادية جدا وباسعل طريقة كما في شيت الإكسيل الأصلي =L10/N10 ولكن فقط نغير تنسق الخلية التي يظهر فيها الناتج كالتالي

وعليكم السلام ورحمة الله وبركاته تفضل أخي اختصار معلومات لعميل.xlsx

وعليكم السلام ورحمة الله وبركاته تفضل يا أخي محتاج معادلة تغيير الارقام من افقى الى راسى.xlsx ولو لديك اكسيل 365 استخدام هذه الدالة البسيطة =tocol(B3:E17)

نفس الملف ولكن المعادلا أكثر اختصارا توريد نقدية.xlsm

وعليكم السلام ورحمة الله وبركاته مرفق الملف أرجو أن يكون فيه ما طلبت توريد نقدية.xlsm

أخي الحبيب محمد هشام كم اسعد بإضافاتك ... نفع الله بك ورفع قدرك

وعليكم السلام ورحمة الله وبركاته يمكن أن يفيدك هذا الفيديو من استاذنا الخلوق أحمد فاروقhttps://www.youtube.com/watch?v=2cy2YfmFlzQ وهذا هو الكود الذي تم الشرح عليه Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value <> "" Then ActiveSheet.Unprotect Password:="111" Target.Locked = True ActiveSheet.Protect Password:="111" End If End Sub

أخي الكريم الكود يبحث في التعليقات فقط اليك بعض التعديل كما فهمت أنا وهذا الكود الآن سيعمل في الورقة النشطة فقط دون المصنف بالكامل Sub ReplaceComments() Dim cmt As Comment Dim sFind As String Dim sReplace As String Dim sCmt As String Dim found As Boolean sFind = InputBox("أدخل الكلمة المراد البحث عنها:") sReplace = InputBox("أدخل الكلمة المراد استبدالها:") found = False For Each cmt In ActiveSheet.Comments sCmt = cmt.Text If InStr(sCmt, sFind) <> 0 Then sCmt = Application.WorksheetFunction.Replace(sCmt, InStr(sCmt, sFind), Len(sFind), sReplace) cmt.Text Text:=sCmt found = True End If Next If Not found Then MsgBox "لم يتمكن من العثور على الكلمة المراد البحث عنها." End If Set cmt = Nothing End Sub

وعليكم السلام ورحمة الله وبركاته أخي الفاضل نعم في الإستبدال لا يمكن ظهور البحث في التعليقات ويتم التغلب على هذا باضافة كود يوضع فيه كلمة البحث والإستبدال أو وضع كلمة البحث في خلية والإستبدال في خلية ويقوم باستبدال الكلمة التي في التعليقات اليك هذا الكود Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim sCmt As String sFind = Range("A1").Value sReplace = Range("B1").Value For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) <> 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If Next Next Set wks = Nothing Set cmt = Nothing End Sub البحث في الخلية A1 وكلمة الإستبدال في الخلية B1

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

السلام عليكم ورحمة الله وبركاته إن شاء الله يكون هذا هو المطلوب Copy of new.zip

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

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

السلام عليكم ورحمة الله وبركاته أخي الكريم توضيح فقط وهو أن دالة subtotal تعمل فقط مع اخفاء الصفوف ولا تعمل مع الأعمدة وهنا عليك استخدام هذه الصيغة =(CELL("width",E6)>0)*E6+(CELL("width",G6)>0)*G6+(CELL("width",I6)>0)*I6+(CELL("width",K6)>0)*K6 ولكن مع ملاحضة أن هذه الصيغة كلما أخفيت عمود أو أظهرت عمود يجب تحديثها أي تقف على الصيفة مثلا وتضغط F2 ثم تضغط Enter ويمكنك استخدام هذا الكود Public Function SumVisible(Rg As Range) As Double Dim xCell As Range Dim xRg As Range Dim xOutRg As Range On Error Resume Next Application.Volatile Set xRg = Application.Intersect(Rg, Rg.Worksheet.UsedRange) If Not (xRg Is Nothing) Then For Each xCell In xRg If (xCell.EntireRow.Hidden = False) And _ (xCell.EntireColumn.Hidden = False) Then If xOutRg Is Nothing Then Set xOutRg = xCell Else Set xOutRg = Application.Union(xCell, xOutRg) End If End If Next End If If Not xOutRg Is Nothing Then SumVisible = Application.Evaluate("SUM(" & xOutRg.Address & ")") Else SumVisible = 0 End If End Function د يجمع سواء الصفوف أو الأعمده الظاهرة في النطاق المراد جمعه ولكن الكود يعمل تلقائي مع الصفوف وبخصوص الأعمدة يجب تحديث الخلية التي ستضع فيها الصيغة الناشئة من الكود وهي =sible(Range) هذا والله أعلم

أخي هاني من الأسهل جدا ان تستخدم الـ Pivot Table وسيكون أحتر احترافية وممكن تضع Timeline , Slicer Unquie Data.xlsx

وعليكم السلام ورحمة الله وبركاته ... أخي هاني هذا جهد المقل فتقبل مني ( تم إضافة عمود للمساعدة وتغيير الدالة المستخدمة بالكلية ) Unquie Data.xlsx

تفضل عد البيانات فقط وعدم عد المعادلات.xlsm

جربت الملف يتم النسخ من زإلى الورقة عادي لا يوجد به مشكلة نسخة.xlsm

تفضل إن شاء الله فيه الإفادة

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

هذا الملف به عمود للرصيد تحسبا أنه يمكن الإضافة في الدائن عمل حساب سحبية.xls

ممكن توضيح أكثر حيث أن عدد الساعات في الصف الأول المذكور في الخلية E2 هو 5 ساعات بينما الفعلي طرح 10:00PM-3:00AM هو 7 ساعات ممكن توضيح المطلوب

وعليكم السلام ورحمة الله وبركاته أنا ليس لدي دراية كافية بالـ VBA ولكن قد يحل هذا الكود الموضوع يمسح الخلايا الغير محمية في الورقة النشطة Sub ClearUnprotectedCells() Dim rng As Range Dim cell As Range Set rng = ActiveSheet.UsedRange For Each cell In rng If cell.Locked = False Then cell.ClearContents End If Next cell End Sub

تفضل الحل.xlsx