فرمول نويسي همانند conditional formatting

**~M*E*H*D*I~** · 2013/05/19, 16:29

RE: فرمول نويسي همانند conditional formatting

درود

لینک زیر کمک میکنه

http://forum.exceliran.com/showthread.php?tid=2747

**hamidreza313** · 2013/05/19, 18:37

RE: فرمول نويسي همانند conditional formatting

با سلام خدمت استاد وطن پرست
اما منظور من با اين لينك تطابق نداره.
من ميخوام كه اگر سلولي در محدوده مدنظر پر بود كه هيچ اما به محض اينكه خالي شد يك خط تيره داخل سلول درج بشه .
من خط تيره رو به صورت نمايشي نميخوام بلكه براي بخشي از كارم به اين خط تيره جهت استفاده از فرمولهام نياز دارم.
بنابراين ميخوام كه وقتي سلولي در اون محدوده خالي است ، خط تيره بخورد و اگر پر شد و مجدد خالي شد بازهم چون خالي هست خط تيره بخورد.
درواقع اگر طبق conditional formatting بخواهيم جلو بريم بايد بگوييم كه سلول هاي خالي را رنگي كن اما نكته همين جاست كه من به جاي رنگي كردن ميخوام كه خط تيره درج شود.
باز هم ممنون كه وقت گذاشتيد و جواب داديد.

**امين اسماعيلي** · 2013/05/20, 00:55

RE: فرمول نويسي همانند conditional formatting

با درود
خدمت شما با vba
تذکرات تو فایل هستش

http://uplod.ir/g49679gamc0q/khat_tire.xlsm.htm

**Amin_D** · 2013/05/20, 07:59

RE: فرمول نويسي همانند conditional formatting

نوشته اصلی توسط امين اسماعيلي

با درود
خدمت شما با vba
تذکرات تو فایل هستش

http://uplod.ir/g49679gamc0q/khat_tire.xlsm.htm

با سلام
خدمت استاد گرامی جناب آقای اسماعیلی
با تشکر از اینکه برای پاسخ دادن به سوالات وقت میگذارید ولی با عرض پوزش یه پیشنهادی میخواستم در این خصوص بهتون بدم:
اگر ممکنه در خصوص این کدهایی که برای نوشتن برنامه تان استفاده می کنید توضیحاتی نیز ارائه بفرمائید. متاسفانه در قسمت آموزش بحث ویژوال غیر فعال است و و فقط قسمت پرسش و پاسخ فعال است و دوستان (از جمله خودم) نیازشون رو مطرح میکنند و شما اساتید بزرگوار زحمت اون رو میکشید ولی به نظرم اگر در خصوص کد ها توضیحاتی بدهید شاید بنده بتونم در این خصوص برای کارم به نوعی از این کدها استفاده کنم.
موفق و پایدار باشید

**hamidreza313** · 2013/05/20, 13:44

RE: فرمول نويسي همانند conditional formatting

با سلام خدمت دوست عزيز امين جان
احسنت ، آقا دستت درد نكنه دقيقا هموني هست كه ميخواستم.
اما دوستان دقيقا درست ميگن اگه لطف كنيد و آموزش مختصري در خصوص كدهاي ايجادي ارائه نمائيد واقعا عالي ميشود. :D:P

**Amirsayyafi** · 2013/05/20, 19:26

RE: فرمول نويسي همانند conditional formatting

به نظر من خودتونو اذیت نکنید. به صورت پیش فرض تمام سلولهای محدوده تون رو خط تیره در نظر بگیرید طبیعتاً هر کدوم رو که اطلاعات بدید عوض میشن.

**امين اسماعيلي** · 2013/05/20, 22:40

RE: فرمول نويسي همانند conditional formatting

با درود
در ابتدا ما بحثمون سر تغییرات در شیت هستش پس باید توی event ای که sheet change باشه کد نویسی خودمون رو انجام بدیم. خوب اول توضیح کد زیر :
If Not Intersect(Target, Range("A1:C5")) Is Nothing Then
وقتی بخواهیم تغییرات target هدف رو توی یه محدوده استفاده کنیم از یه شرطی شبیه بالا استفاده میکنیم. در واقع میگیم که اگر توی این محدوده بود عمل بکنه. بعدش :
If Target.Value = "" Then
این داره میگه که اگر هدف ما که توی اون محدوده هستش مقدارش هیچی نبود (خالی بود)
Target.Value = "-"
ارزششو برابر خط تیره "-" قرار بده و در ادامه کد در غیر این صورت else هیچی
همونطور که هممنونم میدونیم هر if ای به یه end if باید ختم بشه.
خط زیر رو هم که در ابتدا گذاشتیم برای اینه که اگر اروری بوجود اومد اونو در نظر نگیره
on error resume next

کد حلقه for هم همینطوره تغریبا با این تفاوت که برای زمانی نوشته شده بود که شیت ما deactivate میشه. یعنی به یه شیت دیگه میریم. که اگه اینو هم نزاریم مشکلی پیش نمیاد

[hr]
اگرم محدودهی ما پیوسته نبود از یه همچین چیزی بهره میبریم
If Not Intersect(Target, Range("A1,C1,E1")) Is Nothing Then