اصلاح کد

[ali.b]

با سلام
این کد که تو انجمن هست برای مخفی کردن سلولی که حاوی عدد 0 هست بکار میره
اما این کد برای سلول هایی که شامل فرمول هستند و 0 می باشد، کار نمیکنه

مثلا یک سلول با دستور lower شده 0 با این کد نمیشه این ردیف شامل این سلول رو صفر کرد
چکارکنم؟

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 0 Then
Target.Offset(0, 1).EntireRow.Hidden = True
End If
End Sub 

[khakzad]

سلام
دوست عزیز، فرمول lower از فرمول های متنی هست و خروجی اون حروف انگلیسی کوچک هست
خروجی صفر هم اگر داشت (!) قبلش value بزنید و از کد استفاده کنید
فکر می کنم ج بده
موفق باشید

[ali.b]

دوست عزیز چطور value
ی جایی از سلول میشه صفر من با تابع lower اون رو تو یه سلول دیه نمایش دادم ی جور بازی با کد ها!!!
حالا میخوام اون سلولی که محتوی عدد 0 هست اما خود عدد صفر نیست
منظورم اینه سلوالی که با فرمول 0 میشه با این کد جواب نمیده باید خود عدد صفر باشه

[Ali Parsaei]

تا آنجايي که من امتحان کردم کد فوق در هر حالتي جواب مي دهد، خودم رو کشتم ولي نتونستم راهي پيدا کنم که کد فوق جواب نده!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
اگر مشکل پا برجا است لطفا" يک نمونه فايل بگذاريد ببينيم چکار کرده ايد.

[ali.b]

تا آنجايي که من امتحان کردم کد فوق در هر حالتي جواب مي دهد، خودم رو کشتم ولي نتونستم راهي پيدا کنم که کد فوق جواب نده!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
اگر مشکل پا برجا است لطفا" يک نمونه فايل بگذاريد ببينيم چکار کرده ايد.

این یه نمونه

ی کدی روش بزنین که اون ابی صفر بشه نه زرد

با کد فوق فقط زرد صفر میشه نه ابی

[Ali Parsaei]

بله متوجه شدم منظور تان چيست، خوب توضيح نداده بوديد
شما مي خواهيد هر تغييري که در محتواي فايل ايجاد شد، وقتي بعدش اينتر را مي زنيم خود به خود همه خانه ها را بررسي و آنهايي که مساوي صفر شده، سطرشان را hide کند.
ولي کد فوق فقط خانه اي که ويرايش شده را بررسي مي کند.
البته من وارد نيستم که بتوانم راهنمايي کنم ، ولي همين قدر مي دانم که شما بايد دقيقا" بگوييد که کدام خانه ها بايد بررسي شوند. وگر نه اگر قرار باشد همه خانه ها بررسي شود، پيش فرض کل خانه ها را صفر به حساب آورده و تقريبا" کل صفحه را hide خواهد کرد. براي امتحان کد فوق را نوشته و بعد يک خانه خالي را در حالت ويرايش قرار داده و بدون ورود اطلاعات در آن، اينتر را بزنيد. مي بينيد که آن سطر را مخفي خواهد کرد.