نجوم المشاركات

السلام عليكم برنامج مبيعات ./. برنامج حركات مالية كيف يتم هذا ؟ يجب علينا تصور وتخيل العملية اين محل الصناديق والبنك في جدول البيع والشراء ؟ هل يتم رصد اسم الصندوق في جدول المبيعات عند حركة البيع؟ حتى يفهم منه ان المال دخل الى الصندوق الفلاني ام انه يتم ايداع أو صرف وتحويل المبالغ بعمليات وجداول مستقلة ؟ اذا صحيح .. فجداول المبيعات لا محل لها من الاعراب هنا عرض جميل ومثال اجمل لدي ملاحظة بل اثنتان 1- ما اقتبسته اعلاه ليس له محل في جداول العمليات المالية .. الا ان قصدت بالخصم ما يتم داخل الاستعلامات 2- رأيي ان نضم البنوك الى الصناديق في جدول واحد .. وفي جدول الحركة يكفي حقلان (من / الى) واللذان يمثلان المعرف

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

وعليكم السلام ورحمة الله وبركاته .. محاولتي معك حسب ما مررت به من مشاريع بهذا الخصوص . اعتقد انه سيلزمك عدة جداول تخص كل ما كرت تقريباً ، مثل :- جدول الصناديق النقدية :- ويضم على سبيل المثال الحقول ( معرف الصندوق ، اسم الصندوق ، الرصيد الحالي للصندوق ، متاح ( حقل Yes/No ) جدول البنوك :- ويضم على سبيل المثال الحقول ( معرف البنك ، اسم البنك ، رقم الحساب ، الرصيد الحالي - اختياري - ، متاح ( حقل Yes/No ) جدول أنواع التحويلات :- ويضم على سبيل المثال الحقول ( معرف نوع التحويل ، نوع التحويل = من صندوق لبنك ، من بنك لصندوق ، من صندوق لصندوق ، من بنك لبنك ) كأمثلة طبعاً جدول التحويلات الرئيسي :- ويضم على سبيل المثال الحقول ( رقم التحويل ، تاريخ التحويل ، نوع التحويل ، مصدر التحويل ( صندوق او بنك مثلاً ) ، معرف مصدر التحويل ( رقم الصندوق أو البنك المصدر ) ، وجهة التحويل ( صندوق او بنك ) ، معرف الوجهة ( رقم الصندوق أو البنك الوجهة ) ، المبلغ ، رقم المرجع ( كرقم أيصال التحويل أو رقم الحركة البنكية ... إلخ ) ، وصف التحويل أو كملاحظات ، المستخدم للنظام . كآلية العمل على سبيل المثال ، عند إدخال تحويل جديد :- يتم التحقق من وجود رصيد كافي في المصدر يتم خصم المبلغ من المصدر يتم إضافة المبلغ إلى الوجهة يتم تسجيل العملية في سجل التحويلات عند حدوث أي خطأ لا بد من أن :- يتم التراجع عن العملية بالكامل يتم إعلام المستخدم بالخطأ وهذا ملف كمثال على ما سبق Qathi.accdb

تحديث واجهة الأداة بشكل جذري عن النسخة الأولى التجريبية 👍 توسيع الأداة لتشمل عدة تنسيقات إضافة الى التحويل من PDF إلى صور ، بحيث تم إضافة :- التحويل من صور إلى ملفات مستندات Word التحويل من صور إلى PDF ( العكس من الفكرة الرئيسية 😁 ) التحويل أيضاً من ملفات المستندات Word إلى ملفات PDF تجزئة وتقسيم ملفات الـPDF إلى صفحات ( كل صفحة في ملف منفصل ) الأداة الآن تعمل بميزة جديدة وهي السحب والإفلات ؛ وهذه صورة للجزء المنفذ لهذه الإضافة الجديدة . إمكانية اختيار مجلد الحفظ والإستخراج ، أو الاعتماد على المجلد( OutFolder ) الذي يتم انشاؤه عند فتح الأداة . 1️⃣ في قسم التحويل من الصور إلى مستندات Word ، تم تمكين المستخدم من :- تحديد اتجاه الصفحة ( رأسي - أفقي ) . تحديد الهوامش الأربعة كما في Word تماماً . تحديد حجم الورقة ( A3 , A4 , A5 , Letter , Legal ) . أيضاً تحديد محاذاة الصور في الورقة ( يمين - وسط - يسار ) . في الزر ، سيتم فتح واجهة لتعديل الإعدادات بشكلها التالي :- 2️⃣ في قسم التحويل الصور أو ملفات Word إلى PDF يتم التعامل مع الصور بضغطها وإزالة كافة إعدادات مايكروسوفت word لتقليل حجم الملف الناتج . 3️⃣ الأداة مستقلة وغير قابلة للدمج الداخلي في أي مشروع ، إلا من خلال الإستدعاء كأداة خارجية . ملف التحديث بالنسختين :- نسخة 64 :- Convert 64.zip نسخة 32 :- Convert 32.zip

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

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

أحسنت بارك الله فيك وزادك الله من فضله

وعليكم السلام أهلا وسهلاً بك بالمنتدى , كان لابد من رفع ملف لتوضيح المطلوب بكل دقة وتجنباً لإهدار وقت كل من يود مساعدتك .. ولكن عموماً بإفتراض ان الرقم المراد تقسيمه الى سنوات وشهور وأيام موجود بالخلية A2 فستكون المعادلات كالتالى =INT(A2/360) 'الشهور =INT(MOD(A2,360)/30) 'الأيام =MOD(A2,30)

هذه فقط تظهر معك لعدم ضبط اللغة العربية لديك , فعليك بضبطها وأوضحنا هذا من قبل كثير جداً

المعادلة تعمل بالفعل وشغالة تمام بملفك وشوف بنفسك

وعليكم السلام-تفضل هذا الكود Sub ColorPaletteDialogBox() Dim lcolor As Long If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then 'user pressed OK lcolor = ActiveWorkbook.Colors(10) ActiveCell.Interior.Color = lcolor Else 'user pressed Cancel End If End Sub

بارك الله فيك وزادك الله من فضله -جمعة مباركة ان شاء الله

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

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

بارك الله فيك وزادك الله من فضله هدية قيمة أحسنتم

البقاء لله وان لله وان اليه راحعون اللهم اسكنه فسيج جناتك واغفر له وارحمه ةالهم اللهم اهله الصبر والسلوان على هذه المصيبة واجعله يا الله من أرباب جنات الفردوس الأعلى واحشره مع الصديقين والمرسلين والشهداء وحسن أولئك رفيقاً

السلام عليكم -يمكنك ذلك بإستخدام هذه المعادلة داخل Data Validation =YEAR($C2)<=2000 عدم قبول ادخال تاريخ قبل سنة معينة.xlsx

وعليكم السلام -يمكنك استخدام هذه المعادلة =IFERROR(INDEX(ورقة1!B2:B270,MATCH(0,COUNTIF($A$1:A1,ورقة1!B2:B270),0)),"") تلخيص1.xlsx

2,1/ هذا جزء أساسى بالمعادلة لإستخراج أخر عملية ولا تصلح المعادلة بدون هذه الجزئية وهذا الكود لطلبك الأخر ورجاءاً لابد من غلق المشاركة فلا يمكن ان يكون هناك أكثر من طلب بالمشاركة الواحدة ..فإنت أردت طلبات أخرى لابد من عمل مشاركة جديدة بالطلبات الجديدة ولكم جزيل الشكر Sub RowDeleter() On Error Resume Next Application.ScreenUpdating = False Range("E1:E" & Range("E" & Rows.Count).End(3)(1).Row).AutoFilter 1, 0 Range("E4:E" & Range("E" & Rows.Count).End(3)(1).Row).SpecialCells(12).EntireRow.Delete ActiveSheet.AutoFilterMode = False Application.ScreenUpdating = True End Sub Aziz3.xlsb

وعليكم السلام-ياريت تقوم بتغيير عنوان المشاركة ليصبح ( معادلة IF متعددة الشروط) وهذه المعادلة تفى بالغرض وشكراً =IF(AND($C4<>"غ",$B4="ذكر"),"ناجح",IF(AND($C4<>"غ",$B4="أنثي"),"ناجحة",IF(AND($C4="غ",$B4="ذكر"),"ناجح بحكم القانون",IF(AND($C4="غ",$B4="أنثي"),"ناجحة بحكم القانون","")))) معادلة IF.xlsx

تفضل لك ما طلبت ان يكون التقرير بصفحة منفصلة .. لكن لما كل هذا التأخير عند الرد ؟!!! افرض كنت مشغول !!!! وأعتقد ان المعادلة سهلة ولا تحتاج شرح =LOOKUP(2,1/(ورقة1!$A$3:$A$440=$B4),ورقة1!$D$3:$D$440) فالجزء الأول من المعادلة ورقة1!$A$3:$A$440=$B4 يقصد به العمود A الموجود بصفحة ورقة1 والذى يخص أسماء أولياء الأمور ثم =الخلية B4 ,والتى بها اسم ولى الأمر الموجود بصفحة التقرير المراد البحث به ثم بعد ذلك النطاق ورقة1!$D$3:$D$440 وهذا هو النطاق الموجود به نتائج البحث وهو عمود رقم السند الموجود بصفحة ورقة1 ..ومعادلة تاريخ السند مثل رقم السند بالضبط مع اختلاف عمود النتيجة بدلاً من العمود D سيكون العمود E ولكم جزيل الشكر أتمنى ان يكون الأمر سهل لك Aziz2.xlsx

وعليكم السلام -تفضل لك ما طلبت .. وكان لابد من رفع الملف بدون ضغط , طالما حجم الملف صغير وذلك تجنباً لإهدار الوقت وشكراً Aziz1.xlsx

وعليكم السلام-تفضل هذه المعادلة تخص اللون الأخضر =COUNTIFS($G$5:$G$700,">=9",$G$5:$G$700,"<=10") أما اللون الأحمر فيكفيك هذه المعادلة ...وشكراً =COUNTIF($G$5:$G$700,"<=4") فرق بين تاريخين.xlsx

وعليكم السلام لا يمكن فتح أى ملف اكسيل يحتوى على أكواد VBA على الموبيل وشكراً !

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

السيد المهندس / محمد حسن المحمد تحية طيبة وبعد تم مراجعة الشيت فكرة ممتاذة جدا وهو المطلوب مرفق شيت أرجو النظر إليه وتقبل فكرتى لو أمكن ويوجد ملحوظة بسيطة لو لها حل بالنسبة للمندوب لو حقق مثلا 84.5 % بيعطى عمولة صفر وأيضا لو حقق 90.5% أو 90.7 أ 90.9 مثلا يعطى صفر وهل يمكن عمل معادلة واحدة IF تقوم بجميع الشروط وتستعين بخانة النسبة المحققة فى الشيت المرفق ( دون الإستعانة بجدول إضافة لتحقيق شروط النسب المشروطة ) تقبل خالص تحياتى وتقديرى لشخصكم الكريم Sales Commission.xlsx

وعليكم السلام ..بسيطة وسهلة , بما انك لم تقم بوضع القيمة صفر فى الأعمدة فكان لزاماً عليك تغيير الصفر بالفراغ داخل المعادلة "" لتصبح المعادلة هكذا وشكراً =COUNTIFS($C$1:$C$2400,"<>"&"",$A$1:$A$2400,$J4) Countifs الحل1.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته نفضل اخي Private Sub CommandButton2_Click() Dim wbNew As Workbook Dim MH As String, ws As Worksheet Dim val As String Dim shape As Excel.shape MH = CStr(Sheets("الفاتورة").Range("B1")) val = Worksheets("الفاتورة").Range("a14") Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("الفاتورة").Select Worksheets("الفاتورة").Copy Set wbNew = ActiveWorkbook With Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("a3").Select End With For Each shape In ActiveSheet.Shapes shape.Delete Next Range("h4:h12").ClearContents Range("c4:c12").ClearContents Range("f4:f12").ClearContents Range("A14").Value = val ActiveWorkbook.SaveAs Filename:= _ "C:\Users\edb3\Desktop\" & MH & "-" & "فاتورة رقم" & ".xlsx", FileFormat:=51 ActiveWorkbook.Close Sheets("الفاتورة").Activate Range("b1").Value = Range("b1").Value + 1 Range("h4:h12").ClearContents Range("c4:c12").ClearContents Range("f4:f12").ClearContents Range("a14").Formula = "=NumtoTxt(R[-1]C[6],""جنيهاً"",""قرشاً"")" Range("a3").Select Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Private Sub CommandButton3_Click() Range("b1").Value = Range("b1").Value + 1 Application.Dialogs(xlDialogPrinterSetup).Show ThisWorkbook.Sheets("الفاتورة").PrintOut copies:=1 Range("h4:h12").ClearContents Range("c4:c12").ClearContents Range("f4:f12").ClearContents End Sub حفظ فاتورة.xlsm

وعليكم السلام كان عليك لزاما استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك فقد تم تناول هذا الموضوع مرات عدة ومنها ربط الصورة بالإسم وهذا فيديو أيضاً للشرح ويمكنك تحميل ملف الشرح أسفل الفيديو استدعاء صورة الموظف من مجلد بالاكسيل Vlookup Picture VBA بعد كل هذا فقمت بحل طلبك بدالة معرفة ... فيمكنك وضع هذه المعادلة ابتداءا من الخلية B2 سحباً للأسفل =IF(A2="","",VLOOK_Pic1($A2)) وهذا هو كود الدالة Function VLOOK_Pic1(PicName) Dim CurrentCel As Range, Pic As Shape PicName = PicName: MyPath = ThisWorkbook.Path & "\Data\": PicName = MyPath & PicName: ChkPic = Array(".jpg", ".bmp", ".gif", ".png") Set CurrentCel = Application.Caller Set CurrentCel = CurrentCel.MergeArea For Each Pic In ActiveSheet.Shapes If Pic.Type = msoLinkedPicture Then If Pic.Top >= CurrentCel.Top And Pic.Top < CurrentCel.Top + CurrentCel.Height Then Pic.Delete Exit For End If End If Next For X = LBound(ChkPic) To UBound(ChkPic) If Not Dir(PicName & ChkPic(X), vbDirectory) = vbNullString Then Set Pic = ActiveSheet.Shapes.AddPicture(PicName & ChkPic(X), True, False, CurrentCel.Left, CurrentCel.Top, CurrentCel.Width, CurrentCel.Height): VLOOK_Pic1 = "" Exit For Else VLOOK_Pic1 = "لا توجد صورة" End If Next End Function khalid.rar

تفضل هذه المعادلة Option Explicit Option Compare Text Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now _ , Optional Y_M_D As String = "Y_M_D", Optional MyCalendar As Boolean) Dim Mydate As Date, KH_Calendar As Integer Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, D As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then Mydate = Mydate_Now Else Mydate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(Mydate) Then KH_Calendar = Calendar If MyCalendar = True Then Calendar = 1 Else Calendar = 0 D_1 = Day(Mydate): D_2 = Day(Mydate_Birth) M_1 = Month(Mydate): M_2 = Month(Mydate_Birth) Y_1 = Year(Mydate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then D = D_1 - D_2: M = 0 Else D = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D <> "Y" Or Y_M_D <> "M" Or Y_M_D <> "D" Then kh_count_y_m_d = Y & "y-" & M & "m-" & D & "d" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = D Calendar = KH_Calendar End If End Function kh_count.xlsm

بارك الله فيك استاذ حسين وبعد اذن حضرتك ولإثراء الموضوع ,يمكنك ايضا استخدام هذا الكود فى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c4")) Is Nothing Then For Each opb In ActiveSheet.OptionButtons If opb.Caption = [C4].Value Then opb.Value = 1 opb.Interior.Color = RGB(255, 204, 153) Else If opb.Caption <> [C4].Value Then opb.Interior.Color = xlNone End If Next opb End If End Sub ربط القائمة المنسدلة مع زر الاوبشن.xlsm

تفضل ربط القائمة المنسدلة مع زر الاوبشن.xlsm

اليك هذا النموذج عما تريده نسخ القيم فقط.rar

احسنت بارك الله فيك وجزاك الله كل خير طلب اخير والسموحه منك استاذي الكريم في حقل الاجراء المتخذ - not يكون IS NULL يعني البلاغ الذي خلصه ما يعده ويعد فقط الذي لا يزال مطلوب فيه فقط مثال الاسم البلاغ السنه الاجراء المتخذ محمد علي 77 2025 100 2022 20 2025 انتهت اجراءاته 80 2024 1 2925 قام بالمراجعه في الحاله هذه يحسب لمحمد علي ثلاثه بلاغات فقط لانه قد خلص بلاغين مع العلم انه مسموح تتكرر كل البيانات ماعدى الاسم لا اريده يتكرر لان البلاغ الواحد نفسه قد يمكن يتكرر ثلاث او اربع مرات لان كل مره يكون فيه اجراءا مختلف واسف على الاطاله واحسن الله لك ولوالديك