Відео

ممكن لينك تحميل الشيت

رابط الشيت الاكسل جزاك الله خير

شغل عالى اوى اوى ده يا كبير

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo ErrorHandler If Not Intersect(Target, Me.Range("A:L")) Is Nothing Then Call CalculateFIFO End If Application.EnableEvents = True Exit Sub ErrorHandler: Application.EnableEvents = True MsgBox "حدث خطأ: " & Err.Description End Sub Sub CalculateFIFO() On Error GoTo ErrorHandler Dim ws As Worksheet Dim lastRow As Long Dim i As Long, j As Long, currentRow As Long Dim itemCode As String Dim qtyToIssue As Double Dim totalCost As Double Dim remainingQty As Double Dim totalQtyAvailable As Double Dim supplyList As Object Set supplyList = CreateObject("Scripting.Dictionary") Set ws = ThisWorkbook.Sheets("Sheet1") If ws Is Nothing Then MsgBox "لم يتم العثور على الورقة المحددة." Exit Sub End If lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If lastRow < 2 Then MsgBox "لا توجد بيانات كافية في الورقة." Exit Sub End If ' تحضير الكميات Debug.Print "تحضير الكميات المتاحة" For j = 2 To lastRow If ws.Cells(j, "E").Value = "إضافة" Then itemCode = ws.Cells(j, "A").Value remainingQty = ws.Cells(j, "D").Value supplyList(itemCode & "_" & j) = Array(remainingQty, ws.Cells(j, "F").Value) Debug.Print "تمت إضافة: " & itemCode & " كمية: " & remainingQty & " بسعر: " & ws.Cells(j, "F").Value ' حساب إجمالي قيمة الشراء لكل عملية شراء ووضعها في العمود L ws.Cells(j, "L").Value = remainingQty * ws.Cells(j, "F").Value End If Next j ' تنفيذ عملية الصرف Debug.Print "تنفيذ عملية الصرف" For i = 2 To lastRow If ws.Cells(i, "E").Value = "صرف" Then itemCode = ws.Cells(i, "A").Value If IsNumeric(ws.Cells(i, "D").Value) And ws.Cells(i, "D").Value > 0 Then qtyToIssue = ws.Cells(i, "D").Value Else qtyToIssue = 0 End If totalCost = 0 totalQtyAvailable = 0 ' حساب الكميات المتاحة For Each Key In supplyList.Keys If InStr(1, Key, itemCode) > 0 Then totalQtyAvailable = totalQtyAvailable + supplyList(Key)(0) End If Next Key ' التحقق من توفر الكمية الكافية Debug.Print "الصنف: " & itemCode & " | الكمية المطلوبة: " & qtyToIssue & " | الكمية المتاحة: " & totalQtyAvailable If qtyToIssue > totalQtyAvailable Then MsgBox "الرصيد غير كافي للصرف للصنف: " & itemCode ws.Cells(i, "G").Value = "N/A" ws.Cells(i, "M").Value = "N/A" Debug.Print "الصنف: " & itemCode & " الرصيد غير كافي للصرف." GoTo NextRow Else For Each Key In supplyList.Keys If InStr(1, Key, itemCode) > 0 Then currentRow = Val(Mid(Key, InStrRev(Key, "_") + 1)) remainingQty = supplyList(Key)(0) If remainingQty > qtyToIssue Then totalCost = totalCost + qtyToIssue * supplyList(Key)(1) supplyList(Key)(0) = remainingQty - qtyToIssue qtyToIssue = 0 Else totalCost = totalCost + remainingQty * supplyList(Key)(1) qtyToIssue = qtyToIssue - remainingQty supplyList.Remove Key End If Debug.Print "معالجة الصنف: " & itemCode & " | التكلفة الإجمالية: " & totalCost & " | الكمية المصروفة: " & qtyToIssue & " | الكمية المتبقية: " & remainingQty End If If qtyToIssue = 0 Then Exit For Next Key If ws.Cells(i, "D").Value > 0 Then ws.Cells(i, "G").Value = totalCost / ws.Cells(i, "D").Value Else ws.Cells(i, "G").Value = 0 End If ' عرض التكلفة الإجمالية في العمود M ws.Cells(i, "M").Value = totalCost Debug.Print "الصف: " & i & " | الصنف: " & itemCode & " | التكلفة الإجمالية: " & totalCost & " | السعر المحسوب: " & ws.Cells(i, "G").Value End If End If NextRow: Next i Exit Sub ErrorHandler: Application.EnableEvents = True MsgBox "حدث خطأ أثناء الحساب: " & Err.Description End Sub

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

مفيد جدا نتمني مزيد من الفيديوهات بارك الله فيك

نريد تصميم برنامج دورة المشتريات تمر بعده مراحل مثلا الجهة للطالبه(طلب صرف مواد) من القسم مثلا قسم الكهرباء او الميكانيك او الشئون او اي قسم في المصنع يعمل طلب صرف مواد إلي المخازن والمخازن تحوله إلي طلب شراء ثم إلي الإدارة والإدارة بتعمل التعميد أو التأجيل او الإيقاف او اللغاء في حاله التعميد يتم طلب عروض أسعار من مندوبين المشتريات وعند توفر العروض ترجع إلي الجهة الطالبة ومن ثم الي المخازن لتعميد ثم إلي المدير يعمد العرض ثم ترجع إلي مندوب المشتريات (امر توريد) ثم المورد ثم المخازن يتم جرد الاصناف وتوقيع على صورة الفواتير والاستلامها وارسالها إلي مسئول المشتريات لكي يتحاسب من الماليه واذا في مرتجع يعمل مترجع كله يدوي هذا #ملاحظه الاصناف المشتره تقيد بالبرنامج وتعتبر أسعار مخزنيه مستقبلا ثانيا ١-تسجيل الاصناف داخل الشيت او البرنامج مع السعر والتفاصيل ٢-تسجيل عروض الاسعار وعمل مقارنه العروض حسب الصنف اوتوماتيك #التقارير حسب الصنف حسب القسم حسب المورد حسب التاريخ يعني البرنامج ليس فيه بيع وشراء وإنما متابعه طلبات المشتريات المحلية والتقليل من عروض الاسعار في كل شهر يخزن العروض وتعتبر سعر مخزني وشكرا

شكرا على تعبك بس ياريت تبقى تخلى بالك من الصوت انا فتحت فيديو تانى ليك لقيت الصوت ماشاء الله واضح

ربنا يباركلك ف صحتك واسال الله لك دوام الصحه والعافيه ❤❤

بارك الله فيكم وزادكم من فضله وكرمه

انت من الأشخاص المحترم جدآ

يعني البالته

الله ينور يا أ محمد الله يباركلك مجهود محترم وشغل محترم مشكور عليه