شمارش و مقایسه یک محدوده از سلول با سلول های دیگر

[eyou]

شیت 3 فایل پیوستی را ملاحظه کنید به محض ورود عدد 1 پیغامی مبنی بر نوشتن عدد یک در محدوده مشخص داده میشود.

واقعا ازتون ممنونم که برای من وقت می گذاشتین نمیدونم چطور باید تشکر کنم
الان شما فرمودید که به محض ورود عدد 1 پیغام میده
عدد یک بر اساس فرمول قبلی که فرموده بودید توی اون سلول وارد میشه

=if(and(f8=""؛countblank(g8:m8)>0؛countblank(g8:m8)<7)؛1؛"") 

الان فرومول که بر میدارم بطور دستی 1 میزارم پیغام میاد ولی فرمول که میزارم نمیاد

[eyou]

ببخشید من دونه به دونه سوال میپرسم چون کاری که دارم انجام میدم مرتبت به هم دیگس

[amir_ts]

ببینید به دلیل اینکه از رویداد change استفاده کردیم باید اون سلول تغییر کنه که دستور اجرا بشه.حالا چون سلول حاوی فرمول داخل تغییر میکنه باید سلول رو انتخاب کنیم تا دستور اجرا بشه.
به خط اول عبارت Selection رو اضافه کنید و بعد بر روی سلولی که عدد یک هست کلیک کنید.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

[eyou]

ببینید به دلیل اینکه از رویداد change استفاده کردیم باید اون سلول تغییر کنه که دستور اجرا بشه.حالا چون سلول حاوی فرمول داخل تغییر میکنه باید سلول رو انتخاب کنیم تا دستور اجرا بشه.
به خط اول عبارت Selection رو اضافه کنید و بعد بر روی سلولی که عدد یک هست کلیک کنید.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

ارور داد بازم اجرا نشد

[amir_ts]

شیت 3 را ملاحظه کنید.

[eyou]

شیت 3 را ملاحظه کنید.

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

[eyou]

اگر بخوام همین شرط رو برای ردیف های پایینی هم اعمال بشه چکار باید بکنم ؟

[amir_ts]

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

[ATTACH=CONFIG]12585[/ATTACH]

بدلیل اینکه سلول های q7:q12 رو merge کردید.
از حالت merge خارج کنید و نتیجه را ملاحطه کنید.

[eyou]

بدلیل اینکه سلول های q7:q12 رو merge کردید.
از حالت merge خارج کنید و نتیجه را ملاحطه کنید.

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

به نظرتون چکار کنم ؟

[amir_ts]

اگر بخوام همین شرط رو برای ردیف های پایینی هم اعمال بشه چکار باید بکنم ؟

If Intersect(Target, Range("Q7:Q426")) Is Nothing Then Exit Sub 

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

به نظرتون چکار کنم ؟

تا حد امکان از merge کردن سل ها باید خودداری کرد اگر اصرار به merge کردن سل دارید باید ازدکمه (Button) برای اجرا استفاده کنید.