[[20120514135015]]　『非表示の範囲を1列ずつ表示していくマクロ』（初心者M）　ページの最後に飛ぶ

『非表示の範囲を1列ずつ表示していくマクロ』（初心者M）

 お世話になっております。
 すみませんが、標記の件で質問させてください。

過去ログで『非表示の範囲を一行ずつ表示していくマクロ』
を見つけましたが、これを一列ずつ表示するマクロに
変えてみようとしましたがうまく出来ません

 Private Sub SpinButton1_SpinDown()
  Dim i As Integer
     For i = 20 To 27
       If Rows(i).Hidden = True Then
          Rows(i).Hidden = False
          Exit Sub
       End If
     Next i
 End Sub

 Private Sub SpinButton1_SpinUp()
  Dim i As Integer
     For i = 27 To 20 Step -1
       If Rows(i).Hidden = False Then
          Rows(i).Hidden = True
          Exit Sub
       End If
     Next i
 End Sub

E列からK列まで非表示にしています。

 どなたかコードをご教示いただけますか？
 何とぞ宜しくお願い致します。

[[20080909161542]]　『非表示の範囲を1行ずつ表示していくマクロ』（みさT）

 Private Sub SpinButton1_SpinDown()
  Dim i As Integer
     For i = 5 To 11
       If Me.Columns(i).Hidden = True Then
          Me.Columns(i).Hidden = False
          Exit Sub
       End If
     Next i
 End Sub

 Private Sub SpinButton1_SpinUp()
  Dim i As Integer
     For i = 11 To 5 Step -1
       If Me.Columns(i).Hidden = False Then
          Me.Columns(i).Hidden = True
          Exit Sub
       End If
     Next i
 End Sub

(みやほりん)(-_∂)b

(みやほりん)さん
早速、ご教示をいただき感謝です。
助かりました!!
ほんとうにありがとうございましたm(_　_)m
（初心者M）

コメント返信：

[ 一覧(最新更新順) ]

[[20120514135015]] 『非表示の範囲を1列ずつ表示していくマクロ』（初心者M） ページの最後に飛ぶ

[[20120514135015]]　『非表示の範囲を1列ずつ表示していくマクロ』（初心者M）　ページの最後に飛ぶ