تبدیل sub به function

**Amir Ghasemiyan** · 2019/07/31, 18:52

سلام دوست عزیز
از تبدیل sub به function چه انتظاری دارید؟ به چه منظور میخواهید این تبدیل رو انجام بدین؟

**reza_1001** · 2019/07/31, 20:43

با سلام
خدمت آقای قاسمیان عرض کنم که راستشو بخواهید یه برنامه محاسباتی دارم که همه محاسبات رو بوسیله توابع انجام میدم و فقط این یکی ساب هستش و میخوام این روهم تبدیل به تابع کنم

**Amir Ghasemiyan** · 2019/07/31, 21:08

نوشته اصلی توسط reza_1001

با سلام
خدمت آقای قاسمیان عرض کنم که راستشو بخواهید یه برنامه محاسباتی دارم که همه محاسبات رو بوسیله توابع انجام میدم و فقط این یکی ساب هستش و میخوام این روهم تبدیل به تابع کنم

اگه فقط این دلیل تبدیل هست که کافیه بجای sub بنویسید function

**reza_1001** · 2019/07/31, 21:26

آقای قاسمیان دقیقا همین کار رو خواستم بکنم ولی ورودی تابع باید دوتا باشه در حالی که در این ساب ورودی ظاهرا فقط یکیه (البته اون for 1 to 30 رو که استاد شمس العلما نوشته اند ورودی هستش) در کل نمیتونم ، آقای قاسمیان خواهشا کمک کن

**Amir Ghasemiyan** · 2019/07/31, 21:47

نوشته اصلی توسط reza_1001

آقای قاسمیان دقیقا همین کار رو خواستم بکنم ولی ورودی تابع باید دوتا باشه در حالی که در این ساب ورودی ظاهرا فقط یکیه (البته اون for 1 to 30 رو که استاد شمس العلما نوشته اند ورودی هستش) در کل نمیتونم ، آقای قاسمیان خواهشا کمک کن

sub که استاد شمس نوشتند که ورودی نداره. شما کافیه sub رو پاک کنید بنویسید function و هر جا خواستید استفاده کنید اینطوری بنویسید:

کد:

a=m()

**reza_1001** · 2019/07/31, 22:28

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

**Amir Ghasemiyan** · 2019/07/31, 23:50

فایل پیوست رو ملاحظه بفرمایید

فایل های پیوست شده

فایل نمونه.zip (14.5 کیلو بایت, مشاهدات 10)

**reza_1001** · 2019/08/01, 06:40

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

**iranweld** · 2019/08/01, 08:40

با سلام

لطفا بفرمایید ورودی فانکشن جدید کدام آیتم ها میباشد
احتمالا اولی سلول b3 هستش؟

**reza_1001** · 2019/08/01, 11:51

سلام
بله ، البته اگه شما میتونید بصورتی بنویسید که ورودی همیشه b3 نباشه ومثل بقیه توابع باشه که شخص یه بار a رو ورودی قرار میده و یه بار b رو یعنی بستگی به کاربر داره

توضیح تابع :
2 تا ستون دارم یکی ستون A (عدد) و دیگری ستون B (متن)
ستون اعداد یک سری اعداد هستند که 30تایی هستند یعنی از 1تا30 از 30 تا 60 الی....
حالا میخوام زمانی که در 30 تای اول قبل از اولین متن در ستون B ، در ستون c مثلا با عدد1 پر بشه و بعد از اولین متن در ستون B چیزی نوشته نشه
وهمچنین در 30 تای اول بعد از آخرین متن در ستون B ، تا عدد 30 تموم میشه در ستون c مثلا با عدد 2 پر بشه .
ودر بقیه اعداد از 30 تا 60 الی .... همینجوری عمل کنه .

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

**Amir Ghasemiyan** · 2019/08/01, 13:49

کد:

[B]=m($B$3,A4,20)من منظور شما رو اشتباه متوجه شدم.
اين فانكشن رو بررسي بفرماييد لطفا:

	کد:
	Function m(rng As Range, rng2 As Range, Optional count As Integer = 30)
Dim p, n, i
p = Int((rng2.Row - rng.Row - 1) / count) * count
n = 0

For i = 1 + p To count + p
    If rng.Offset(i, 0).Value <> "" Then
        If n = 0 Then n = rng.Offset(i, 0).Row
        n2 = rng.Offset(i, 0).Row
    End If
Next

If rng2.Value <> "" And n <> 0 Then
    If rng2.Row < n2 Then m = 0
    If rng2.Row <= n Then m = 1
    If rng2.Row >= n2 Then m = 2
End If
End Function
براي استفاده هم اين فرمول رو وارد كنيد و درگ كنيد

	کد:
	=m($B$3,A4)
اگر خواستيد بجاي بچ هاي 30 تايي از يك مقدار دلخواه استفاده كنيد كافيه آرگومان سوم تابع رو مقدار بديد. به اين صورت:

[/B]

کد:

[COLOR=#0000CD][COLOR=#0000CD][B][/B][/COLOR][/COLOR]

**reza_1001** · 2019/08/01, 14:14

سلام آقای قاسمیان ، خیلی اذیتتون کردم ببخشید
این تابعی که نوشتید اشتباه عمل میکنه براتون عکساشومیذارم

**Amir Ghasemiyan** · 2019/08/01, 16:49

نوشته اصلی توسط reza_1001

سلام آقای قاسمیان ، خیلی اذیتتون کردم ببخشید
این تابعی که نوشتید اشتباه عمل میکنه براتون عکساشومیذارم
[ATTACH=CONFIG]19547[/ATTACH]
[ATTACH=CONFIG]19548[/ATTACH]

من چك كردم اشتباه عمل نميكنه. با اون ستوني كه نوشته بوديد دستي چك كردم يكسان هست. فايل پيوست رو مشاهده كنيد

فایل های پیوست شده