[[20080909161542]]　『非表示の範囲を1行ずつ表示していくマクロ』（みさT）　ページの最後に飛ぶ

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

 いつもお世話になっております。
 初心者なのに申し訳ないのですが、標記の件で質問させてください。

 1ページの申請書のようなものを作成しています。
 商品を表示する箇所が7行目から27行目までありますが、普段は19行目まで表示して
 20行目～27行目までは非表示にしています。

 この非表示の20～27行目の部分は、必要に応じて表示させていきたいので、
 ボタンを押すと1行ずつ表示されていく･･という状態にしたいのです。

 どなたかその為のコードをご教示いただけますか？
 わかりづらい説明ですみません。
 説明不足でしたら、すぐに補足いたします。
 何とぞ宜しくお願い致します。

 コントロールツールボックスのスピンボタンを
 シート上に配置し、下記のマクロを登録して下さい。

 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
　
（純丸）(o^-')b

 純丸さま

 ありがとうございます！すぐに出来ちゃいました!
 何時間も掛けて、考えてもできなかったのに･･･

 勉強します！
 ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20080909161542]] 『非表示の範囲を1行ずつ表示していくマクロ』（みさT） ページの最後に飛ぶ

[[20080909161542]]　『非表示の範囲を1行ずつ表示していくマクロ』（みさT）　ページの最後に飛ぶ