سلام فرمولی میخوام که اگر سلول a1 خالی بود سلولهای b1 تا e7 به حالت انتخاب شده در بیاد ممنون میشم زودی راهنمایی کنید
انتخاب خاص
Collapse
این تاپیک قفل است.
X
X
-
select
سلام
با ضبط یک ماکرو ساده و یک تغییر در آن، اینکار شدنی است:
کد PHP:Sub selection()
If Range("a1").Text = "" Then
Range("B1:E7").Select
End If
End Sub
فایل های پیوست شده[CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
[/FONT][/B][/CENTER]
[CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
[/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
[/FONT][/B][/FONT][/SIZE]
[/CENTER] -
ممنون از پاسختان بنده یک ماکرو ساختم اگر امکان داره کد بالا را که دادین در اخر ماکرو بنده قرار دهید که در لحظه اخر همان پرسش بالا اجرا شود ممنونفایل های پیوست شدهکامنت
-
بدون استفاده از کدنویسی این کار شدنی نیست.
تنها پیشنهاد این است که محدوده مورد نظر را با استفاده از کاندشنال فرمتینگ نمایان کنید.
در ضمن،
لزومی نداره سؤالتون رو در چند موضوع عنوان کنید چرا که موضوعات تکراری شما حذف خواهند شد.
مانند این سؤال تکراری:
شرط در سلول
[CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
[/FONT][/B][/CENTER]
[CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
[/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
[/FONT][/B][/FONT][/SIZE]
[/CENTER]کامنت
-
ElseIf
سلام
کد ماکرو بصورت زیر تغییر می کنه؛ یعنی اگر سلول مورد نظر خالی بود یک محدوده و در غیر اینصورت محدوده دیگر رو در حالت انتخاب قرار میده:
کد PHP:Sub selection()
If Range("a1").Text = "" Then
Range("B1:E7").Select
ElseIf Range("a1").Text <> "" Then
Range("A1:E7").Select
End If
End Sub
فایل های پیوست شده[CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
[/FONT][/B][/CENTER]
[CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
[/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
[/FONT][/B][/FONT][/SIZE]
[/CENTER]کامنت
کامنت