پرسش ضروری بودن پر کردن یک فیلد در شرایط خاص

[zdesign]

با سلام خدمت شما .
در این تاپیک دوستان لطف کردن و به من کمک کردن مشکلم برطرف شد .
[حل شده] سوال فنی - صفحه 2
حالا من میخواستم ببینم چطور میتونم در صورتی که یکی فقط یکی از گزینه های لیست انتخاب شد یکی از فیلد هایی که میخوام حتما ضروری باشه . یعنی کاربر یا توش یه چیزی بنویسه یا یه هشداری چیزی بهش بده که همینجوری نره فیلد بعد .
این خیلی برام مهمه که بدونم چطوری میتونم این کار رو انجام بدم .

[iranweld]

نمونه فایل خود را ضمیمه کنید بهتر میشود راهنمایی کرد

[zdesign]

فایل نمونه پیوست شد .
ببینید من میخوام اگر مثلا گزینه تست1 رو زدم ستون ضروری که نوشتم حتما پر بشه .
اما توجه داشته باشید که اکسل من هزارتا رکورد داره و برای اون ست بشه .
ممنون میشم از شما که راهنمایی لازم رو انجام دهید .

[iranweld]

در ستون ضروری چند تا سلول باید دیتا وارد بشه؟

یا فقط کلمه ضروری باید نوشته بشه؟

[zdesign]

ببینید من میخوام اون ستون پر بشه حتما .
دیتاش متفاوته .

[rjfri]

دوست عزیز تا اونجا که از سوال شما متوجه شدم و در صورتی که تعداد ستونهای تست همین چهار مورد باشه به نظر بنده از if استفاده کنید راحتتر باشه
البته اگر درست متوجه خواسته شما شده باشم

[zdesign]

ممنون از شما اما خدمتتون عرض کردم که رکورد های اکسل من 1000 تا برای هر هفته هست و متغیر هم هست .
من میخوام اگر مثلا تست 1 انتخاب شد و گزینه هاش رو زدند , اون ستون هم پر کردنش ضروری بشه . حالا اینکه توش چی باشه مهم نیست , حتی با زدن یه نقطه یا فاصله هم مشکلی نیست .
فقط میخوام یادش بندازه که اون ستون هم باید پر بشه .
بذارید یک توضیح کلی بدم :
من دیتا هام رو دسته بندی کردم و وقتی اون گروه رو انتخاب میکنه حتما باید یه دیتای دیگه هم توی اون ستون وارد بشه . اکثرا یادشون میره و من هم بعدا با مشکل مواجهم .
حالا من میخوام یه اخطاری چیزی بهش بده که حتما اونجارو هم پر کنه .
فکر کنم کامل توضیح دادم :دی
بعد این اکسلی که شما دادید رو من متوجه نمیشم . هیچ عکس العملی رو نشون نمیده!

[amir_ts]

حالا من میخوام یه اخطاری چیزی بهش بده که حتما اونجارو هم پر کنه .

با سلام
میتونید از رویدادها استفاده کنید برای نمونه کد زیر پیغامی را در صورت انتخاب گزینه تست1 میدهد.

[LEFT]
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("H11")) Is Nothing Then Exit Sub
        If Target.Value = "ÊÓÊ1" Then
            MsgBox ("áØÝÇ ãæÇÑÏ ÖÑæÑí ÓÊæä ÒÑÏ Ñä ÑÇ Ñ ˜äíÏ.")
        End If

End Sub
[/LEFT]

[zdesign]

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

[amir_ts]

ابتدا کد ها رو با محدوده اطلاعات تنظیم کنید و بعد در شیت مورد نظر قرار بدید.
Alt+F11 رو فشار بدید از سمت چپ بر روی شیت مورد نظر کلیک کنید و بعد کد ها رو در سمت راست قرار بدید.

[zdesign]

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

[amir_ts]

اگر منظور شما اثر گذاری دو رنج در ارسال پیغام هست کد رو اینطور تکمیل کنید.علاوه بر سلول h11 اگر سلول f11 هم تست1 بود پیغام ظاهر میشود.

 If Intersect(Target, Range("H11,F11")) Is Nothing Then Exit Sub 

[zdesign]

نه میخوام اون تست 1 هم تغییر کنه .
یعنی در رنج دیگه یک کلید واژه دیگه باشه .

[amir_ts]

دوست عزیز تست1 در لیست هست وقتی فرضا انتخاب بشه یک پیغام نمایش داده میشه....
منظورشما رو از کلید واژه متوجه نمیشم.
اگر تست1 انتخاب شد در سلول خاصی متنی نوشته بشه؟