محمد حسن المحمد

وعليكم السلام
تفضل أخي الكريم
=IF(L40="";"";TEXT(L40;"yyyy/mm/dd")&" - "&M40) ثم اسحب نزولاً
تقبل تحياتي العطرة.
 
AA.xlsx

وعليكم السلام
تفضل أخي الكريم
 

 
Book2.xlsx

وعليكم السلام
تفضل أخي الكريم:

Book1.xlsx

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

نسبة الربح وقيمته لكل شخص من مجموع الربح.rar

وعليكم السلام
تفضل:

Book1.xlsx

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

حباً وكرامة
تفضل أخي الكريم لك ما طلبت
على الرحب والسعة
 
ضريبة رواتب و اجور.xlsx

وعليكم السلام ورحمة الله وبركاته
أرجو أن يكون الحل مناسباً
يمكنك وضع المعادلة التالية في B2
ووضع معادلة ثانية في C2
كما يلي:
B2: =IF(A2="";"";VLOOKUP(A2;Table1;2;0)) C2: =IF([رقم الموظف]="";"";LOOKUP(2;1/(Table1[[الاسم ]]=[[الاسم ]]);Table1[تاريخ اخر اجازة])) بالتوفيق إن شاء الله

Book144.xlsm

السلام عليكم أخي الكريم 

طرحت سؤالك على برنامج دردشة ميكروسوفت فكان الجواب كالتالي:
يتم استخدام خاصية StartUpPosition في إكسل لتحديد موقع ظهور UserForm عندما يتم فتحه لأول مرة. يمكن تعيين قيمة StartUpPosition إلى واحدة من أربع إعدادات. يمكنك استخدام الإعدادات التالية لـ StartUpPosition:
Manual: لا يوجد إعداد أولي محدد. CenterOwner: يتم وضع UserForm في المركز على العنصر الذي ينتمي إليه UserForm. CenterScreen: يتم وضع UserForm في المركز على الشاشة بأكملها. WindowsDefault: يتم وضع UserForm في الزاوية اليسرى العليا من الشاشة. - يمكن تعيين خاصية StartUpPosition برمجيًا أو من نافذة الخصائص. يمكنك الرجوع إلى المصادر المذكورة أدناه لمزيد من المعلومات.
 رابط1 رابط2 أرجو لكم الفائدة.
والسلام عليكم

وعليكم السلام
في الخلية F2
=IF(WEEKDAY([@[Date Doc.]]+45;16)=7;[@[Date Doc.]]+44;[@[Date Doc.]]+45) واسحب نزولاً
تقبل تحياتي.

وعليكم السلام 
أخي الكريم هذا الملف بعد التعديل
فيه تم وضع كود لطباعة صفحة بذاتها ، وكود آخر لطباعة صفحات من رقم .... (الخلية O2)إلى رقم.....(الخلية P2)
أما إذا أردت طباعة كل القائمة فامسح الخليتين المذكورتين أعلاه.

وستتم طباعة كل الصفحات حسب معادلتين وضعتا في O1 & P1 اعتماداً على الخلية N5 في كل ماسبق
بالتوفيق إن شاء الله
والسلام عليكم
 
ملاحظة: هذا الكود لأحد الأساتذة الفضلاء - وفقهم الله- آمين
كود.xls

وعليكم السلام ورحمة الله وبركاته
أخي الكريم @ابراهيم الحداد تحية طيبة وبعد:
فكرت بالحل بعدة طرق منها:
1- في عمود مساعد نضرب الخلية A3 *1 
2 - أو نستخدم دالة :
=TEXT(A3;"YYYY/MM/DD") 3- من data >> text to columns >> date (YMD) 
مع ذلك لي رغبة أن توضح لنا طريقة التحويل - إن سمحت - حتى تعم الفائدة ...مستفسراً أيضاً عن بيانات جديدة في الصفوف التالية هل تحتاج إلى تحويل أيضاً أم لا؟!.
تقبل تحياتي العطرة
والسلام عليكم.

السلام عليكم
إثراء للموضوع وبعد إذن من سبقني إليكم الحل بطريقتين
الأولى : باستخدام VlookUp حيث تم وضع الأرقام وتفقيطها في جدول بمجرد أن تكتب الرقم يتم تفقيطه
=VLOOKUP($A2;Table1;2;0)
الثانية: باستخدام المعادلة التي تعتمد على كود التفقيط NoToTxt الذي قمت بالتعديل على جزء يسير - بعد إذن صاحبه الذي أسأل الله تعالى أن يجعله بميزان حسناته - ليناسب الموضوع.
=NoToTxt([@الرقم];"";"")
راجياً أن يكون مقبولاً لديكم
والسلام عليكم
 
تحويل الأرقام الترتيبية إلى نصوص.xlsm

تفضل
=TEXT(E5;"ddd")  
New Microsoft Office Excel Worksheet.xlsx

تفضل أخي الكريم أرجو أن يكون الحل:

 
Retails Sales Report (2).xlsx

السلام عليكم أخي الكريم ...... ولكم بمثل ما دعوتم آمين
بناء على طلبك - أخي الكريم - تم التعديل،
مع ملاحظة أن الورقتين Data & Result تعتمدان في معرفة القسم والرقم الوظيفي على الورقة الأولى Data1
وكذلك يمكنك التحديث لكتابة الأسماء آلياً بتحديث Pivot table بجانب الجدول في ورقة Result 
أما إن أردت كتابة الاسم يدوياً ستقوم بإلغاء المعادلة التي تربط خلايا الاسم بالجدول المجاور لكن لا يضمن أن تكتب الاسم بحذافيره دون زيادة أو نقصان فتكون النتائج تابعة
لدقة كتابتك للاسم
تقبل تحياتي والسلام عليكم.
 
Abu Rafat (1).xlsx

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

وعليكم السلام
يمكنك استبدال الكود لتصبح النتائج كما تريد
مرفق ربطاً الملف
 
أما إن كانت لا تزال هناك مشكلة في ظهور اللغة فأنت بحاجة إلى تعديل الإعدادات من لوحة التحكم خيارات اللغة
كما أن الكود السابق الموجود لديك يعمل بشكل صحيح وقد رأيت أنك استخدمته كمعادلة الصفيف بضغط Ctrl+shift+enter >>> جرب كتابة المعادلة ثانية بالضغط فقط على Enter
وستحل المشكلة لديك بإذن الله
تقبل تحياتي.
 
المصنف1.xlsm

وعليكم السلام ورحمة الله وبركاته
ولكم بمثل ما دعوتم أخي الكريم
وما توفيقي إلا بالله
الحمد لله الذي بنعمته تتم الصالحات، تم بفضل الله تعالى تجاوز كل هذه العقبات أو المشاكل في الملف ، وحسبما فهمت منك أنك تريد قيمة القسط التالي، وقد عملت على هذا الأساس
أرجو أن تكون به الفائدة المرجوة ...
والله من وراء القصد
والسلام عليكم 
----------------------------------------------------------------
ملاحظة: لحساب القسط للشهر القادم نستخدم المعادلة التالية:
=VLOOKUP(D14+1;'تسديد عميل'!$D$19:$G$58;4;0) أما لحساب القسط للشهر الحالي فقط نحذف + 1 كما يلي:
=VLOOKUP(D14;'تسديد عميل'!$D$19:$G$58;4;0) يرجى استخدام هذا الملف لأنني أجريت عدة تعديلات في المعادلات بكل الشيتات لم أعلن عنها لضيق الوقت مع الاعتذار.
الزكاة الخاصة للارسال (1).xls

Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "يتبقى لكم " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") i = 0 Do While i < 15 If i < 12 Then Myno = Mid$(GetNo, i + 1, 3) Else Myno = "0" + Mid$(GetNo, i + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (i = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (i = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (i = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If i = i + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur + " " + "لا غير" Else NoToTxt = ReMark + MyFraction + " " + MySubCur + " " + "لا غير" End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + " " + "لا غير" End If End Function وعليكم السلام، هذا الكود تضعه في موديل
ثم تكتب هذه المعادلة 
=NoToTxt(الرقم;العملة;أجزاء العملة)  

وعليكم السلام ورحمة الله وبركاته
يمكنك الاستعانة بهذا الكود في السطر الرابع تلغي تفعيل إظهار رؤوس الصفوف والأعمدة
والسلام عليكم

Private Sub Workbook_Open() ThisWorkbook.Application.WindowState = xlMaximized ThisWorkbook.Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False End Sub  

وعليكم السلام أخي الكريم
تفضل: في الخلية B1 قم بكتابة المعادلة التالية 
=IF(OR(A1="راسب";A1="غائب");0;IF(A1="ناجح";10;"")) بالتوفيق إن شاء الله

وعليكم السلام
بطريقة بسيطة إليك الحل أخي الكريم:
=IF(C4-C3>1;C3+1;"")
المصنف1.xlsx

حياكم الله
أخي الكريم تفضل أرجو أن ينال إعجابكم
 
 
 
Ex2.xlsx

السلام عليكم ورحمة الله وبركاته 💐
أخي الحبيب م. ياسر ❤️🌺
أولاً أعتذر عن التأخر في الرد بسبب ضغط العمل
ثانيا: حاولت أن أجمع لك كل ما طلبت في المشاركة الأولى وفي ملفك الذي أدرجته
أرجو أن تنتفع به سائلا إياكم الدعاء
والسلام عليكم ورحمة الله وبركاته 
Sales Commission.xlsx