نحوه اختصاص نتيجه يك فرمول به يك متغير در vb

[misammisam]

با سلام

وقتي در vb يك كد رو به يك متغير اختصاص ميدي ، كل كد رو به متغير اختصاص ميده ، من ميخوام فقط نتيجشو به متغير انتقال بدم .

مثلا :

Sub Macro1()
Count = "=COUNTIF(aston1,1)"
ActiveCell.FormulaR1C1 = Count
End Sub 

نتيجه ميشه در محدوده مورد نظر اعداد رو نسبت به شرط ميشمره و در سلول اكتيو قرار ميده ، من ميخوام فقط عدد محاسبه شده رو ببره داخل سلول مورد نظر نه فرمول زير رو

=COUNTIF(aston1;1) 

با تشكر

[امين اسماعيلي]

با درود خوب چرا اینجوری از کد زیر استفتده کن

ActiveCell.Value = Application.WorksheetFunction.CountIf(Range("A1:A10"), 1)

شبیه همین عمل کن . حل میشه - چرا متغییر چرا لقمه دور سر - سری که درد نمیکنه دسمال چرا

[misammisam]

با درود خوب چرا اینجوری از کد زیر استفتده کن

ActiveCell.Value = Application.WorksheetFunction.CountIf(Range("A1:A10"), 1)

شبیه همین عمل کن . حل میشه - چرا متغییر چرا لقمه دور سر - سری که درد نمیکنه دسمال چرا

ممنون ، البته اين درسته ، من اونطوري نوشتم كه سوالم مفهوم باشه ، ولي مشكل من يه چيز ديگست ، مثلا اگه بخوام از تابع RANDBETWEEN استفاده كنم چطوري بايد عمل كنم كه فقط مقدار رو بهم بده . ميدوني اين تابع در اكسل 2010 به بعد تو vb اكسل هست ، فايلم اينطوري تو ورژناي پايينتر اكسل به مشكل ميخوره .

[امين اسماعيلي]

با درود
خب برای اینکه این تابع تو ورژن های پایین تر عمل کنه باید Analysis ToolPak add-in رو نصب کنن تو اون ورژن ها مثلا به طریق زیر :برای 2003

• On the Tools menu, click Add-Ins.
• In the Add-Ins available list, select the Analysis ToolPak box, and then click OK.

[امين اسماعيلي]

با درود
راه بهترش هم استفاده از فرمول زیر هستش که در واقع همون Rand between هستش مثلا

=INT((upperbound - lowerbound + 1) * RAND() + lowerbound)

که Upperbound در واقع مرز بالا و Lowerbound مرز پایین میباشد
حالا مثلا اگر بخواهیم بین 5 و 10 به ما همون Randbetween بده میشه

=INT((10 - 5+ 1) * RAND() + 5)

حال اگر بخواهیم که همین فرمول رو در vba بنویسیم میشه

ActiveCell.Value = Int((10 - 5 + 1) * Rnd() + 5)

[misammisam]

با درود
راه بهترش هم استفاده از فرمول زیر هستش که در واقع همون Rand between هستش مثلا

=INT((upperbound - lowerbound + 1) * RAND() + lowerbound)

که Upperbound در واقع مرز بالا و Lowerbound مرز پایین میباشد
حالا مثلا اگر بخواهیم بین 5 و 10 به ما همون Randbetween بده میشه

=INT((10 - 5+ 1) * RAND() + 5)

حال اگر بخواهیم که همین فرمول رو در vba بنویسیم میشه

ActiveCell.Value = Int((10 - 5 + 1) * Rnd() + 5)

ممنونم امين جان ، از راهنماييهاي دقيقي كه هميشه ميدي .
بله اين كد خيلي بهتره ، همه جا جواب ميده .

[امين اسماعيلي]

با درود

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