ممنون از پاسخت با کلی جستجو تو گوگل هم یه نمونه پیدا گردم
کد:Sub sbUnHideRows() Rows("4:204").EntireRow.Hidden = False End Sub
ممنون از پاسخت با کلی جستجو تو گوگل هم یه نمونه پیدا گردم
کد:Sub sbUnHideRows() Rows("4:204").EntireRow.Hidden = False End Sub
آقا مبین به یه مشکلی بر خوردم .
توی کدی که زحمتشو کشیدین ستون b1 تاb204 رو چک میکنه اگه هر جای خالی بود از اون ردیف به بعد رو hide میکنه.
میشه یه ستون دیگه رو هم چک کنه (در بعضی مواقع اون ستون اطلاعاتش بیشتر)
به این فایل یه نگاه بندازید بی زحمت منظورمو متوجه میشید.
دوست عزیز باسلام.
از نظر شدن میشه. اما شما همیشه یکی از ستونهای فایلتون حاوی اطلاعات هست و به نظر بنده نیازی به اجرای این کار نیست.
یک سوال ؟
دلیل اینکه ردیف های خالی در فایلتون وجود داره چی هست ؟؟؟ چرا باید ردیفی ایجاد بشه که بعدش بخواد مخفی بشه؟؟؟
دلیلش اینه که من از تاریخ 1 تا 6 فروردین 10 تا چک دارم در صورتیکه تو همون تاریخ 20 تا چک دادم
و کد بر اساس ستون 10 تا چک عمل میکنه
اگه باز هم منظورمو متوجه نشدید فایل نمونه بزارم
ممنون
با سلام
کد hide را بدین صورت اصلاح کنید
به روش دیگرکد PHP:
Sub Hide()
Application.ScreenUpdating = False
Dim A As Range
z1 = Sheets("فرم").Cells(Sheets("فرم").Rows.Count, "b").End(xlUp).Row
z2 = Sheets("فرم").Cells(Sheets("فرم").Rows.Count, "f").End(xlUp).Row
If z1 >= z2 Then
With ActiveSheet.Range("B1:B126")
Do
Set A = .Find("", LookIn:=xlValues, LookAt:=xlWhole, _
MatchCase:=False)
If A Is Nothing Then Exit Do
A.EntireRow.Hidden = True
Loop
End With
Else
With ActiveSheet.Range("f1:f126")
Do
Set A = .Find("", LookIn:=xlValues, LookAt:=xlWhole, _
MatchCase:=False)
If A Is Nothing Then Exit Do
A.EntireRow.Hidden = True
Loop
End With
End If
Application.ScreenUpdating = True
End Sub
کد PHP:
Sub Hide()
Application.ScreenUpdating = False
Range("A4").Select
Do Until ActiveCell.Offset(1, 0) = ""
ActiveCell.Offset(1, 0).Select
Loop
Z1 = ActiveCell.Row+1
Range("E4").Select
Do Until ActiveCell.Offset(1, 0) = ""
ActiveCell.Offset(1, 0).Select
Loop
Z2 = ActiveCell.Row+1
If Z1 >= Z2 Then
Rows(Z1 & ":" & Z1).Select
Range(Selection, Cells(250, 1)).Select
Selection.EntireRow.Hidden = True
Else
Rows(Z2 & ":" & Z2).Select
Range(Selection, Cells(250, 1)).Select
Selection.EntireRow.Hidden = True
End If
Rows("251:256").EntireRow.Hidden = False
Range("F256").Select
Application.ScreenUpdating = True
End Sub
ویرایش توسط iranweld : 2016/01/04 در ساعت 13:28
ba drod
babate adame dastresi be keyboard farsi mazerat,
ye moredi ke to code nevisia say konin royat konin ine ke az name code sheet ha estefade konin , masalan agar be tore sahvi name sheet morede nazar dar mesale yad shode avaz beshe be moshkel bar mikhorin.
mahigiri o yad bedin na mahiiiiiiiiiiiiii, ghobone dasteton , fadaye hameye zahmai ke mikeshin
movafagh va piroz bashin
در پناه خداوندگار ایران زمین باشید و پیروز
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)