Excel VBA質問箱 IV

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

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


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

33925 / 76734

←次へ　｜　前へ→


	【48024】Re:行の高さが0のまま表示/非表示

ichinose - 07/3/30(金) 22:46 -


	引用なし

	パスワード

>
>Excel97を使っている人がこのマクロを使うかもしれないのですが、それだとこのやり方をしないほうが良いんですよね？
97を使ったことがない私にとっては、想定外のことです。

では、フラグとしてIDではなく、名前でも使ったらいかがですか？

'===========================================
Sub set_rowheight_0(ByVal rng As Range)
　　Dim crng As Range
　　For Each crng In rng.Rows
　　　 crng.Name = "rheight" & crng.Row
　　　 Next
　　rng.RowHeight = 0
End Sub
'===============================================
Sub set_hidden(ByVal rng As Range, ByVal myvalue As Boolean)
　　Dim crng As Range
　　Dim nm As String
　　rng.Rows.Hidden = myvalue
　　If myvalue = False Then
　　　 On Error Resume Next
　　　 For Each crng In rng.Rows
　　　　　Err.Clear
　　　　　nm = crng.Name.Name
　　　　　If Err.Number = 0 Then
　　　　　　 crng.RowHeight = 0
　　　　　　 End If
　　　　　Next
　　　 On Error GoTo 0
　　　 End If
End Sub
'===============================================
Sub set_id_clear(ByVal rng As Range)
　　Dim crng As Range
　　For Each crng In rng.Rows
　　　 crng.Name = ""
　　　 Next
End Sub

尚、testは同じです。

4 hits

▼

【48017】行の高さが0のまま表示/非表示 ひげくま 07/3/30(金) 16:31