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は同じです。
5 hits

【48017】行の高さが0のまま表示/非表示 ひげくま 07/3/30(金) 16:31 質問
【48019】Re:行の高さが0のまま表示/非表示 ton 07/3/30(金) 19:42 回答
【48020】Re:行の高さが0のまま表示/非表示 ichinose 07/3/30(金) 20:02 発言
【48023】Re:行の高さが0のまま表示/非表示 ひげくま 07/3/30(金) 21:32 質問
【48024】Re:行の高さが0のまま表示/非表示 ichinose 07/3/30(金) 22:46 発言
【48025】Re:行の高さが0のまま表示/非表示 ひげくま 07/3/30(金) 23:50 お礼

33925 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free