Ali Mohamed Ali

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

تفضل هذا الرابط يعمل http://ge.tt/4ok7y3T2/v/0 انظر الى الصورة

اهلا بك اخ كريم فى المنتدى -كلمة السر موجودة بالمشاركة الأولى الرقم السرى للدخول الى البرنامج هو 123

أحسنت استاذ ابراهيم جزاك الله كل خير -كود ممتاز

ممتاز دالة رائعة جعله الله فى ميزان حسناتك

بارك الله فيكم جميعا كود ممتاز استاذى الكريم

وعليكم السلام ولكن كان عليك رفع الملف نفسه تجنبا لإهدار الوقت ولكن تفضل هذه الدالة المعرفة لعمل اللازم-لابد من وضعها فى مديول جديد Function Reversestr(str As String) As String Reversestr = StrReverse(Trim(str)) End Function واذا كان مثلا هذا التاريخ موجود بالخلية B2 فعليك كتابة هذه المعادلة فى خلية أخرى =Reversestr(B2)

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

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

وعليكم السلام تفضل لك ما طلبت فورم بحث .xlsm

يمكن يكون نسخة الإكسيل لديك اعلى من النسخة المرسل اليها الملف بارك الله فيك

لو واجهتك اى مشكلة عليك برفع الملف مرة اخرى وتوضيح المشكلة لحلها بارك الله فيك

يمكنك الإستعانة بهذا الرابط https://www.ablebits.com/office-addins-blog/2014/03/06/transpose-excel-rows-columns/

تم عمل هذا فى العمود X من الصفحة الثانية AG__.xlsx

وعليكم السلام ضع هذا الكود فى حدث الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("B7:B100")) Is Nothing Then UserForm1.Show End If End Sub

تفضل اخى الكريم -هذا الكود للتعطيل Sub Disable_Keys() Dim StartKeyCombination As Variant Dim KeysArray As Variant Dim Key As Variant Dim I As Long On Error Resume Next 'Shift key = "+" (plus sign) 'Ctrl key = "^" (caret) 'Alt key = "%" (percent sign 'We fill the array with this keys and the key combinations 'Shift-Ctrl, Shift- Alt, Ctrl-Alt, Shift-Ctrl-Alt For Each StartKeyCombination In Array("+", "^", "%", "+^", "+%", "^%", "+^%") KeysArray = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _ "{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _ "{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _ "{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}") 'Disable the StartKeyCombination key(s) with every key in the KeysArray For Each Key In KeysArray Application.OnKey StartKeyCombination & Key, "" Next Key 'Disable the StartKeyCombination key(s) with every other key For I = 0 To 255 Application.OnKey StartKeyCombination & Chr$(I), "" Next I 'Disable the F1 - F15 keys in combination with the Shift, Ctrl or Alt key For I = 1 To 15 Application.OnKey StartKeyCombination & "{F" & I & "}", "" Next I Next StartKeyCombination 'Disable the F1 - F15 keys For I = 1 To 15 Application.OnKey "{F" & I & "}", "" Next I 'Disable the PGDN and PGUP keys Application.OnKey "{PGDN}", "" Application.OnKey "{PGUP}", "" End Sub وهذا لإرجاع الحال الى السابق والطبيعى اى لعمل الإختصارات مرة أخرى Sub Enable_Keys() Dim StartKeyCombination As Variant Dim KeysArray As Variant Dim Key As Variant Dim I As Long On Error Resume Next 'Shift key = "+" (plus sign) 'Ctrl key = "^" (caret) 'Alt key = "%" (percent sign 'We fill the array with this keys and the key combinations 'Shift-Ctrl, Shift- Alt, Ctrl-Alt, Shift-Ctrl-Alt For Each StartKeyCombination In Array("+", "^", "%", "+^", "+%", "^%", "+^%") KeysArray = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _ "{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _ "{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _ "{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}") 'Enable the StartKeyCombination key(s) with every key in the KeysArray For Each Key In KeysArray Application.OnKey StartKeyCombination & Key Next Key 'Enable the StartKeyCombination key(s) with every other key For I = 0 To 255 Application.OnKey StartKeyCombination & Chr$(I) Next I 'Enable the F1 - F15 keys in combination with the Shift, Ctrl or Alt key For I = 1 To 15 Application.OnKey StartKeyCombination & "{F" & I & "}" Next I Next StartKeyCombination 'Enable the F1 - F15 keys For I = 1 To 15 Application.OnKey "{F" & I & "}" Next I 'Enable the PGDN and PGUP keys Application.OnKey "{PGDN}" Application.OnKey "{PGUP}" End Sub أتمنى الإفادة بارك الله فيك

جرب هذا الملف لعله يفيدك وهناك ايضا رابط هنا قد ناقش هذه الجزئية يمكنك الإطلاع عليه https://www.officena.net/ib/topic/78197-ضريبة-كسب-العمل-الجديده-بالاكسيل/ أحتساب ضرائب الدخل بعد تحديث يوليو - 2018.xlsm

وعليكم السلام استاذ أحمد غانم وشاكر حضرتك على المرور العطر الذى شرفنى

لو الخطأ مع معادلتى انا فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات لكى تعمل المعادلة بكل دقة لأنها معادلة مصفوفة وليست معادلة عادية بارك الله فيك

تفضل Book1.xlsx

دائما وابدا يجب رفع ملف للعمل عليه تجنبا لإهدار الوقت بارك الله فيك

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

بعد اذن الأستاذ شريف ولإثراء الموضوع هذه معادلة مجموع الكميات السالبة =-SUMIF($C$2:$C$9956,"<0") وهذه معادلة الكميات الموجبة =SUMIF($C$2:$C$9956,">0") بارك الله فيكم جميعا

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

بارك الله فيكم جميعا وشاكر على مروركم المشرف العطر