0

重複の可能性:
行を非表示にする VBA コード n-maximum

現在、このコードを使用して、Excel VBA で行を 200 から最大まで非表示にしていますが、機能していないようです。何が問題なのですか？

すでに 1 ～ 200 行にデータがあります。

Sub HideEm()
Dim ws As Worksheet
Dim rng1 As Range
Set ws = Sheets("main")
Set rng1 = ws.Cells.Find("*", ws.[a1], xlValues, , , xlPrevious)
If Not rng1 Is Nothing Then
    If rng1.Row > 200 Then ws.Rows("200:" & rng1.Row).Hidden = True
End If
End Sub
4

1 に答える 1

-1

これを試して

xlsRange = xlsSheet.Range("A0", "B999") 'select your range, probably need a way to specify from row 200 to maximum, i'm too lazay to do this
xlsRange.EntireRow.Hidden = True

これらの記事は、VBA でダイナミック レンジを作成するのに役立ちます。

http://social.msdn.microsoft.com/Forums/en-IE/isvvba/thread/ef1f8134-f6fc-4f1a-8405-418d4817b0c3

http://www.ozgrid.com/News/excel-dynamic-ranges-vba.htm

于 2012-10-27T14:17:28.013 に答える