با سلام .
برای Hidden کردن ردیف از کد زیر استفاده می کنم :
Sheet1.Rows.EntireRow.Hidden = True
حالا می خوام ردیفهای که حاوی اطلاعات هستن unHidden بشن وبقیه Hidden برای این کار هم از کد زیر استفاده کردم :
Dim n
n = Application.WorksheetFunction.Count(Sheet1.Range(" a1:a100"))
Sheets1.Rows("1:n").EntireRow.Hidden = False
ولی ارور می ده . اگر بجای n عدد بزارم جواب میده ولی با کد فوق نه.
فایل پیوست رو هم می تونین مشاهده کنین .
ممنون از توجه شما.
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)