شمارش

[Amir Ghasemiyan]

با درود ما هم یه جواب درخور مغز خودمون میزاریم روش ها جالب بود - نکته اول اینکه اگر با تابع میخواین جاش اینجا نیست . دوم اینکه روش امیر خان خوبه ولی ایرادی که من بهش میگیرم اینه که یه چیزی کم داره امیر اونم اینه که کاربر منوط میشه به همون ستون خاص مثلا اگر ستون ها شد 4 تا دسش بستس یا اگر خواست ستون 1 و 2 فقط باشه بازم باید بره تو کده . اگر میشد که اینو هم بهش فهموند که تا چند تا افست برو جلو و اینو تو تابع میگونجوندی عالی بود. این روش هم من میزارم به نظرم بد نیومد شما هر ستونیو که خواستی انتخاب کن واسه برسی و اینکه برای سریعتر انجام شدن محدوده رو انتخاب کن نه کل ستون چون ارایه ای عمل میکنه به نحوه فرمول نوشتن توجه کن که ارایه ای هستش.

مرسي امين جان. آره عزيز از اول ميخواستم همين كار رو بكنم ولي گفتم اول با تك ستون به نتيجه برسونم بعد درستش كنم كه يادم رفت
نكات خيلي جالبي از كدت ياد گرفتم. مرسي
فقط ميشه اين خط آخر رو برام توضيح بدي چي شد؟علت استفاده از else چيه؟

If Count Then UniqueItems = NumUnique Else UniqueItems = Unique

[sohrabahmadi]

سلام و تشکر از همه دوستان عزیز .موضوع تقریباً برای من حل شده است ولی یه ایراد کوچکی برام باقی مونده اونم اینه که وقتی داخل سلی که جناب اسماعیلی لطف کردن فرمولش رونوشتن دوبار کلیک میکنی value# ظاهر میشه .اگه لطف کنن دلیلشو بگن ممنون میشم

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

با درود

دلیلش اینه دوست گلم ذوباره باید shif+ctrl+enter بزنین تا دوباره ارایه ای بشه- گفتم که فرمول ارایه ای هست-( امیر خانcount که در واقع همون count=true هستش و به تابع داره مقدار میده در اخر محاسبه .)که اگر این خط رو حذف کنیم انگار اصلا کاری نکردیم البت میشه جور دیگه و ساده ترم نوشت که در حین محاسبه عدد بگیره . یه جور بازیابی ذخیره هاست. در ضمن این کدو قبلا جایی استفاده کردم و دیدم با تلفیقش میشه کار ایشونو راه انداخت با یه & ساده ) همشم کار من نیست. ترکیبیه

[sohrabahmadi]

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

[Amir Ghasemiyan]

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

چيزي كه خدمت شما ارائه شد كدنويسي vba بود ديگه. اگر كليدهاي تركيبي alt+f11 رو بزنين كدها رو ميتونين ببينين

[sohrabahmadi]

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

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

با درود

اگر به سل میخواستی ارجاع بدی مثلا


میشد

Cells(1, 7).FormulaArray = "=TRANSPOSE(UniqueItems(B1:B20&C1:C20&D1:D20))"

وبعد از نتیجه اون سل تو label.caption استفاده میکردی. اما خوب اگر میخوای مستقیم استفاده کنی . من الان چیزی به ذهنم نمیرسه - بعدش چرا حلقه به کار بردی .