پروژه اکسل ,,(98016)

---

شرح پروژه

پروژه  اکسل 

سلام خسته نباشید

من میخواستم قیمت اکسل  بروز کنم 

با شرکتی که مشارکت می کنیم هر روز فایل بروز قیمت می‌فرسته می‌خوام قیمت بروز  روی قیمت فروش خودم قرار بدم

این فایل برای ال سدی گوشی من می‌خوام قیمت این بروز کنید طبق قیمت روز فروش  طبق دلار جدید و بهم هم یاد بدید

من می‌خوام قیمت هام  طبق  قیمت روز بروز باشه

ال سدی 

من با نرم افزار ساز حساب کار می کنم قابلیت دلار دار

من در جایی کار میکنم قطعات موبایل 

که با نرم افزار ساز حساب کار می کنم 

من می‌خوام قیمت کالا همیشه بروز باشه 

دیگه نیازی نباشه به شرکت زنگ بزنیم

می‌خوام قیمت طبق بورس بازار جهانی کالا بروز باشه

این خروجی اکسل گرفتم از ال سدی ها

سایت مرتبط مثل شرکت آریا تیم با سفیر با الماس این قیمت ال سدی سوم بروز

. میشه به افزونه تو اکسل ساخت که قیمت از سایت دیجیکالا یا سایت دیگه بگیر بهت بده

البته من گردش کالا هامو گرفتم می‌خوام حداقل موجودی بزارم طبق گردش کالا چی کار باید انجام بدم

این فایل گردش کالا هام

شما نظری بابت بروز کردن قیمت دارید

من دوتا کار می‌خوام 

یک اینکه گردش یه نوع کالا به اکسل میدم بیاد برسی کنه ببینه چند تا فروختیم چند تا موند آیا نیاز به خرید هست یا نه 

دوم قیمت بروز کنه

 من این فرمول طراحی کردم 

Sub گزارش_پیشرفته_سفارش_پیشرفته()

    Dim wsData As Worksheet, wsReport As Worksheet

    Dim dict As Object, cell As Range

    Dim lastRow As Long, i As Long, کالا As String

    Dim تاریخ As Date, فروش As Double, موجودی As Double

    Dim فروش_کل As Double, موجودی_اول As Double, موجودی_پایان As Double

    Dim گردش As Double, وضعیت As String, سفارش As String, اولویت As String

    Dim ماه_گذشته As Integer

    ماه_گذشته = InputBox("چند ماه گذشته بررسی شود؟", "تنظیم بازه", 3)

    If ماه_گذشته <= 0 Then Exit Sub

    Set wsData = ThisWorkbook.Sheets("Sheet1")

    Set wsReport = ThisWorkbook.Sheets.Add

    wsReport.Name = "گزارش پیشرفته سفارش"

    Set dict = CreateObject("Scripting.Dictionary")

    lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow

        کالا = wsData.Cells(i, 1).Value

        تاریخ = wsData.Cells(i, 2).Value

        فروش = wsData.Cells(i, 3).Value

        موجودی = wsData.Cells(i, 4).Value

        If تاریخ >= DateSerial(Year(Date), Month(Date) - ماه_گذشته, 1) Then

            If Not dict.exists(کالا) Then

                dict.Add کالا, Array(0, موجودی, موجودی)

            End If

            dict(کالا)(0) = dict(کالا)(0) + فروش

            dict(کالا)(2) = موجودی

        End If

    Next i

    wsReport.Range("A1:H1").Value = Array("نام کالا", "فروش", "موجودی اول", "موجودی پایان", "گردش کالا", "وضعیت", "نیاز به سفارش", "اولویت")

    i = 2

    For Each کالا In dict.Keys

        فروش_کل = dict(کالا)(0)

        موجودی_اول = dict(کالا)(1)

        موجودی_پایان = dict(کالا)(2)

        گردش = IIf((موجودی_اول + موجودی_پایان) > 0, فروش_کل / ((موجودی_اول + موجودی_پایان) / 2), 0)

        If فروش_کل = 0 Then

            وضعیت = "راکد"

        ElseIf گردش >= 1 Then

            وضعیت = "گردش بالا"

        Else

            وضعیت = "گردش پایین"

        End If

        If وضعیت = "راکد" Or موجودی_پایان < 5 Then

            سفارش = "نیاز به سفارش"

        Else

            سفارش = "نیاز نیست"

        End If

        If سفارش = "نیاز به سفارش" And وضعیت = "گردش بالا" Then

            اولویت = "فوری"

        ElseIf سفارش = "نیاز به سفارش" Then

            اولویت = "متوسط"

        Else

            اولویت = "کم"

        End If

        wsReport.Cells(i, 1).Value = کالا

        wsReport.Cells(i, 2).Value = فروش_کل

        wsReport.Cells(i, 3).Value = موجودی_اول

        wsReport.Cells(i, 4).Value = موجودی_پایان

        wsReport.Cells(i, 5).Value = Round(گردش, 2)

        wsReport.Cells(i, 6).Value = وضعیت

        wsReport.Cells(i, 7).Value = سفارش

        wsReport.Cells(i, 8).Value = اولویت

        i = i + 1

    Next کالا

    wsReport.Range("A1:H1").AutoFilter

    MsgBox "گزارش پیشرفته با تحلیل گردش کالا آماده شد!", vbInformation

End Sub

حالا بگید من چگونه استفاده کنم

این پروژه شامل 4 فایل مهم است، لطفا قبل از ارسال پیشنهاد حتما نسبت به بررسی این فایل اقدام فرمایید.

مهارت ها و تخصص های مورد نیاز

---

---