if و هاید کردن یک سطر

[arashmahooti]

سلام
سوالی دارم در مورد اینکه چهطور میتونم به اکسل دستوری بدم که مثلا وقتی خانه a1 مساوی 0 است سطر A را هاید و پنهان کن/؟
با تشکر از اساتید

[~M*E*H*D*I~]

در کد زیر در هر سلولی که عدد 1 وارد کنید ستون کناری هاید خواهد شد.

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

[arashmahooti]

سلام
متاسفانه قادر به انجام فرمول نشدم . میشه کاملتر توضیح بدید.
منظور من اینه که :
اگر در یک خانه معلوم به عدد 0 برسم آن سطر را هیدن کند.
این رو واسه برنامه فاکتور دستی میخام . واسه محصولات با تعداد معلوم.

[حسام بحرانی]

با سلام ، دوست عزیز ، با فرمول جناب آقای وطن پرست ( همانطور که توضیح داده اند ) ، با وارد کردن عدد 1 در هر سلول ، ستون کناری آن Hide می شود . با این دستور نیز ، با ورود عدد 0 در هر سلول ، آن سطر کلاً Hide می شود . با عنایت به این دو دستور و با کمک گرفتن از مثال های متعدد سایت ، انتظار می رود ؛ پاسخ خود را دریابید . مگر اینکه دستور خود را در جایی دیگر نوشته باشید !

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

با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ

[~M*E*H*D*I~]

سلام
متاسفانه قادر به انجام فرمول نشدم . میشه کاملتر توضیح بدید.
منظور من اینه که :
اگر در یک خانه معلوم به عدد 0 برسم آن سطر را هیدن کند.
این رو واسه برنامه فاکتور دستی میخام . واسه محصولات با تعداد معلوم.

وارد محیط VBA editor شیت مورد نظر بشید و کدی که جناب بحرانی زحمت کشیدند کپی کنید در صورتی که در یکی از سلول ها عدد صفر وارد کنید ردیف پایینی هاید خواهد شد ، صورت کلی کد به همین شکل هست اگر اشنایی دارید با کدنویسی در اکسل بنا به نیاز خودتون تغییرش بدید

[arashmahooti]

سلام
دقیقا یه چیزی که میخاستم !
فقط مشکل من اساسی تر از این حرف هستش.
این کد رو دقیقا کجای اکسل وارد کنم ؟ اکسل ورژن 2003

[~M*E*H*D*I~]

Alt+F11 رو بزنید ، بعد بر روی اسم شیتی که میخواید این کار رو انجام بدید دابل کلیک کنید و کد رو کپی کنید