Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63726 / 76738

←次へ　｜　前へ→


	【17606】行の非表示マクロについて

phoo - 04/9/3(金) 11:28 -


	引用なし

	パスワード

複数行を一度に非表示にするマクロを作成しているのですが。

まず、Ｃ列を検索し、＊のある行をワーク領域に格納しています。
その後に、ワーク領域に格納したデータで行を一度で非表示にしたいのですが、
エラーが発生します。
エラー内容：実行時エラー'1004'
　　　　　　アプリケーション定義またはオブジェクト定義のエラーです。

どーも、ワーク領域に格納したデータ長が256を超えると
エラーが発生しているので、
現状、複数回に分けて、非表示にしています。
どーすれば、一度で非表示にできますか？
よろしくお願いします。
'--------------------------------------------------------------------
Private Sub cmd_非表示_Click()

　　Dim I　　　　　 As Long
　　Dim Count　　　 As Integer
　　Dim ST, ED　　　As Date
　　Dim WK_A, WK_C　As String
　　Dim WK_B()　　　As String
　　
　　ST = Now()
　　Count = 0
　　Application.ScreenUpdating = False
　　For I = 1 To 65536 Step 1
　　　　If Range("C" & I) = "" Or Range("C" & I) = vbNullString Then
　　　　Else
　　　　　　If Range("C" & I) = "end" Then
　　　　　　　　Exit For
　　　　　　End If
　　　　　　If InStr(Range("C" & I), "*") <> 0 Then
　　　　　　　　ReDim Preserve WK_B(Count)
　　　　　　　　WK_B(Count) = I & ":" & I
　　　　　　　　Count = Count + 1
　　　　　　End If
　　　　End If
　　Next I
　　WK_A = Join(WK_B, ",")
　　Range(WK_A).Select '←ここで、エラーが発生する！
　　Selection.EntireRow.Hidden = True
　　Range("A1").Select
　　Application.ScreenUpdating = True
　　Set ActiveSheet.HPageBreaks(1).Location = Range("A110")
　　ED = Now()
　　'MsgBox "End" & vbCr & "Time=" & Format(ED - ST, "hh:mm:ss")
　　
End Sub

0 hits

▼

【17606】行の非表示マクロについて phoo 04/9/3(金) 11:28

≪