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

[bizarcher]

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

درخواست فرمول من
قصد من اینه فرمولی باشه که بتونه قرعه کشی کنم یا یک عدد تصادفی انتخاب بشه
فرض کنید من تعدادی فروشنده دارم که هرکدام مقدار محصول میفروشن
مثلا a 500
b 1000
c 2000
هر عدد 100 تا ( یا هر 100 عدد بطورمثال a که 500 هست میشه 5 تا 100 ) یک عدد داشته باشه
و بعد ازبین این اعداد بین همه افراد که درکل تکراری نباشد یه عدد انتخاب شود ...


امیدوارم تونسته باشم منظورمو برسونم
ممنونم میشم راهنمایی کنین

[میثم مقدم نیا]

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

درخواست فرمول من
قصد من اینه فرمولی باشه که بتونه قرعه کشی کنم یا یک عدد تصادفی انتخاب بشه
فرض کنید من تعدادی فروشنده دارم که هرکدام مقدار محصول میفروشن
مثلا a 500
b 1000
c 2000
هر عدد 100 تا ( یا هر 100 عدد بطورمثال a که 500 هست میشه 5 تا 100 ) یک عدد داشته باشه
و بعد ازبین این اعداد بین همه افراد که درکل تکراری نباشد یه عدد انتخاب شود ...


امیدوارم تونسته باشم منظورمو برسونم
ممنونم میشم راهنمایی کنین

سلام
ببینید فایل پیوست به کارتون میاد

[bizarcher]

درود بر شما
فرمول خیلی خوبی برای قرعه کشی بود
ولی جسارتا کمک من فرمول دیگری بود
من توی مثال عرض کردم :

فرض کنید من تعدادی فروشنده دارم که هرکدام مقدار محصول میفروشن
مثلا علی 500
عباس 1000
حسن 2000
میخام ابتدا 100تا 100تا جداکنه ، (مثلا علی 500 امتیاز داره پس میشه 5تا 100 و برای هر کدامش یه عدد برای قرعه کشی بده
بازم بیشتر توضیح میدم یعنی علی با 500 امتیاز میشه 5 شانس وعدد منحصربفرد داره که توی قرعه کشی انجام بشه

و بعد ازبین این اعداد بین همه افراد که درکل تکراری نباشد یه عدد انتخاب شود ...


امیدوارم تونسته باشم منظورمو برسونم
ممنونم میشم راهنمایی کنین

[M_ExceL]

درود بر شما
فرمول خیلی خوبی برای قرعه کشی بود
ولی جسارتا کمک من فرمول دیگری بود
من توی مثال عرض کردم :

فرض کنید من تعدادی فروشنده دارم که هرکدام مقدار محصول میفروشن
مثلا علی 500
عباس 1000
حسن 2000
میخام ابتدا 100تا 100تا جداکنه ، (مثلا علی 500 امتیاز داره پس میشه 5تا 100 و برای هر کدامش یه عدد برای قرعه کشی بده
بازم بیشتر توضیح میدم یعنی علی با 500 امتیاز میشه 5 شانس وعدد منحصربفرد داره که توی قرعه کشی انجام بشه

و بعد ازبین این اعداد بین همه افراد که درکل تکراری نباشد یه عدد انتخاب شود ...


امیدوارم تونسته باشم منظورمو برسونم
ممنونم میشم راهنمایی کنین

سلام،
فایل زیر رو بررسی کنید.
توضیح : ابتدا ماکرو را فعال کرده سپس روی باتن 1 کلیک کنید.

Sub test()

Dim n As String
Dim lstr, d, i, p, sn As Long
    Range("d:f").Interior.ColorIndex = 0
    Range("d1:f1").Interior.Color = 5296274
    Range("d:f").ClearContents
    Range("d1") = "r"
    Range("e1") = "code"
    Range("f1") = "name"
    lstr = Cells(Rows.Count, 1).End(3).Row
    d = 1
    sn = 10001
        
        For i = 2 To lstr
            n = Cells(i, 1)
            p = Cells(i, 2)
                Do While p >= 100
                    p = p - 100
                    d = d + 1
                    Cells(d, 4) = d - 1
                    Cells(d, 5) = sn
                    Cells(d, 6) = n
                    DoEvents
                Loop
            sn = sn + 1
        Next
    
    Range("h2") = WorksheetFunction.RandBetween(1, d - 1)
    rbr = Range("h2").Value
    
        For i = 2 To d
            If Cells(i, 4) = rbr Then
            
                Range("d" & i & ":f" & i).Interior.ColorIndex = 15
            
            End If
        Next

End Sub

[bizarcher]

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

یه فرمول دیگه ای هم میخام
و اونم اینه که میخام وقتی یه عدد میدم در یک سلول
به ترتیب در سه ستون بمن بده
در اولین ستون ، اون عدد رو تقسیم بر 6 کنه
در دومین ستون ، باقیمانده اولین ستون رو تقسیم بر 2 کنه
در ستون سوم ، باقیمانده دومین ستون رو بده

ممنون از راهنماییتون
جسارتا من حاظرم حق الزحه بدم ، چون مخم ترکید اینقد اینور اونور کردم