امکان مخفی شدن یک ردیف پس از تکمیل شدن یک سل

**امين اسماعيلي** · 2013/04/28, 22:07

RE: امکان مخفی شدن یک ردیف پس از تکمیل شدن یک سل

با درود
چرا نشه خوبم میشه

خوب این کد رو من برای یه Command Button نوشتم.

Private Sub CommandButton1_Click()
For Each c In Sheet1.Range("C1:C10")
If c.Value <> "" Then
Rows(c.Row).Hidden = True
End If
Next c
End Sub

خوب واسه ضاهر شدنش یه سوال داشتم. شما میخواین که مثلا یه دکمه داشته باشیم و هر وقت زدیم هرچی مخفی بود ظاهر بشه یا یهinput box بیاد و شما شماره ردیفی رو که میخواین ظاهر بشه رو بزنین و اون ظاهر بشه.
کد بالا رو هم میشه تو change شیت نوشت با یه تغییر کوچیک که هر وقت اطلاعات وارد شد. خودکار hide بشه

**dove1355** · 2013/04/28, 23:04

RE: امکان مخفی شدن یک ردیف پس از تکمیل شدن یک سل

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

**امين اسماعيلي** · 2013/04/29, 01:29

RE: امکان مخفی شدن یک ردیف پس از تکمیل شدن یک سل

با درود

فایل دوستمون رو براتون اینجا میزارم . البته فایل خاصی نبود اما نحوه وارد کردن کد ها رو میخواستن

شاید کد ها بدرد کار دوستان بخوره البته شاید.

http://www.uplooder.net/cgi-bin/dl.cgi?key=73fcdaf94a6c8959f0095d2f2b40d63f

[hr]
با درود مجدد

اگرم بخوایم یه ردیف خاصی رو از hide در بیاریم از کد زیر برای یه دکمه میتونیم استفاده کنیم

On Error Resume Next
Application.ScreenUpdating = False
Dim Unhiderow
Unhiderow = InputBox("Please Enter the Number of row to unhide", "Unhide row ")
If Rows(Unhiderow).Hidden = True Then
Rows(Unhiderow).Hidden = False
End If

**~M*E*H*D*I~** · 2013/04/29, 18:38

RE: امکان مخفی شدن یک ردیف پس از تکمیل شدن یک سل

بجای استفاده از باتون میشه از event استفاده کرد مثل change یا BeforeDoubleClick

**امين اسماعيلي** · 2013/04/29, 21:38

RE: امکان مخفی شدن یک ردیف پس از تکمیل شدن یک سل

با درود
بله استاد صحیح میفرمایید. در فایلی که قرار دادم تو event. change به محض ورود سطر hide میشه. برای unhide دکمه گذاشتم و همچنین برای unhide مجدد .