کمک برای نوشتن یک فرمول

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • bizarcher

    • 2014/09/07
    • 19
    • 4.00

    [حل شده] کمک برای نوشتن یک فرمول

    درود و خداقوت به حرفه ای های اکسل
    من واقعا لذت میبرم که جمعی از حرفه ای ها دورهم هستند و به دیگران کمک میکنند و البته بی منت!!!

    درخواستی برای توشتن فرمولی داشتم که از نوشتنش عاجز شدم (البته این به سطح اکسل بنده برمیگرده که دارم رویش کارمیکنم)
    لطفا کمکم کنید:

    من 12سلول دارم که معنای 12ماه هست
    و یکسری بازاریاب هستند که هرماه درحال امتیازجمع کردن هستند
    من میخام وقتی جمع امتیازهربازاریاب به عدد6 رسید یه امتیازطلایی بهش بدم(امتیازطلایی مترادف عدد1)
    خب ممکن است این بازاریاب در ماه دوم به امتیاز6برسد و ممکن است در ماه 6ام و شایدم هرماه امتیاز6 بگیرد
    من میخام اگر اولین 6کرفت یک امتیازطلایی و بترتیب 6بعدی گرفت یه امتیازطلایی
    اما مشکل اینجاست که من نمیدانم که کدوم ماه به امتیاز6 میرسد چون بازاریابها زیادهستند و بسیارزمانبر هست دونه دونه بررسی کرد
    درضمن هرماه امتیاز ماه قبل و ماه جاری باهم جمع میشه ، چون این تشویقی رو گذاشتم که اگرماه قبل یا دوماه قبل هم به امتیاز6 نرسیدید باهم امتیازها جمع میشه تابه عدد6 برسید

    سوال و درخواستم اینه فرمولی باشه که خودش اولین ستون ، اولین6 رو از کل امتیازها نشان بده با هر علامتی و در دومین ستون ،دومین6رو از کل امتیازها نشان بده با هرعلامتی
    و نکته اینجاست که امتیازها در یک ستون جمع میشه

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

    • 2018/04/23
    • 677

    #2
    سلام،
    ببینید منظورتون رو درست متوجه شدم؟
    کد:
     =if(b2>=6,1,"")
    فایل های پیوست شده
    [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
    [/CENTER]

    کامنت

    • حسام بحرانی

      • 2013/09/29
      • 2065
      • 72.00

      #3
      Quotient

      سلام
      البته شاید با تابع
      quotient بهتر به نتیجه برسند.
      موفق باشید.
      [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
      [/FONT][/B][/CENTER]
      [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
      [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
      [/FONT][/B][/FONT][/SIZE]
      [/CENTER]

      کامنت

      • bizarcher

        • 2014/09/07
        • 19
        • 4.00

        #4
        درود برشما


        خیلی لطف کردین
        جسارتا یکم منظورمو شاید درست نرسوندم

        من میخام وقتی در اولین ماه یا دومین ماه (فرقی نمیکنه تازمانی که به امتیاز6 برسد) امتیازها رو جمع کنه و بعداز رسیدن به عدد 6 امتیازطلایی(مترادف عدد1) بدهد
        اما بعد از گرفتن امتیازطلایی دوباره روز ازنو و روزی ازنو
        یعنی میخام باز همین روال درادامه رخ بدهد
        بطورمثال علی در ماه اول 2 امتیاز درماه دوم 0 امتیاز درماه سوم 3 امتیاز و درماه چهارم 2 امتیاز پس یک امیتیازطلایی چون به عدد6 رسیده
        حالا علی در ماه پنجم4 ماه ششم2 دوباره علی به عدد6رسید و دوباره یک امتیازطلایی و باز همین منوال ...
        درواقع جمع امتیاز علی شده 13 امتیاز و دوامتیازطلایی دارد در ماه ششم ، اما در ماه پنجم جمع امتیاز علی شده 11 اما فقط یک امتیاز طلایی برده و دومین امتیازطلایی را نبرده و نمیخام اسمش مشخص بشه
        یعنی هر وقت بازاریابی به عدد6 امتیاز رسید در یکماه یا درچندماه پشت سرهم اونوقت یه کارت طلایی بگیرد و بعدش دوباره همه هچیز از نو شروع بشه
        همانطور که گفتم من برای 12ماه یا ماه به ماه

        ممنونم
        این دیگه برایم من سخت سخت شد ، ازپسش برنمیام

        - - - Updated - - -
        Last edited by bizarcher; 2019/12/10, 17:38.

        کامنت

        • bizarcher

          • 2014/09/07
          • 19
          • 4.00

          #5
          یه فایل اکسل همینجوری ذرست کردم بدون فرمول
          فایل های پیوست شده

          کامنت

          • M_ExceL

            • 2018/04/23
            • 677

            #6
            نوشته اصلی توسط bizarcher
            یه فایل اکسل همینجوری ذرست کردم بدون فرمول
            سلام،
            از کد زیر استفاده کنید :
            کد:
            Sub M_excel()
            
            Dim endrow, d_row As Long
            Dim column_e, column_t As Long
            Dim col, E_value As Byte
            
            endrow = Cells(Rows.Count, 1).End(3).Row
            
                For col = 4 To 19 Step 3
                    Range(Cells(2, col), Cells(endrow, col)).ClearContents
                Next
            
            For d_row = 2 To endrow
                E_value = 0
                column_e = 2
                column_t = 4
                    Do Until column_e = 20
                        E_value = E_value + Cells(d_row, column_e).Value
                            If E_value >= 6 Then
                                Cells(d_row, column_t) = 1
                                E_value = 0
                            End If
                        column_e = column_e + 3
                        column_t = column_t + 3
                    Loop
            Next
            
            
            End Sub
            توضیح :
            در فایل پیوست بعد از اجرای فایل، ماکرو را فعال کرده سپس روی باتن قرار داده شده کلیک کنید.
            فایل های پیوست شده
            [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
            [/CENTER]

            کامنت

            • bizarcher

              • 2014/09/07
              • 19
              • 4.00

              #7
              زنده باد
              اقا عالی بود

              جسارت نباشه چون کار منو راه انداختی ، میتونم از خجالتتون دربیام!!!

              کامنت

              چند لحظه..