[[20050415092522]]　『セルの行・列の表示･非表示を設定するボタン』（koya）　ページの最後に飛ぶ

『セルの行・列の表示･非表示を設定するボタン』（koya）
エクセルを用いて、個人の仕事をアイテムごとに日程管理するシートを作っています。
縦に個人の名前と仕事のアイテム、横に日付という形です。
アイテムごとに完了次第非表示にして列をつめ、ひと月ごとくらいの頻度で行をつめています。
この行･列を縮小、展開することができるボタンを設定したいのですが、
どのようにすればよいでしょうか？

 マクロの記録でできませんか？
 マクロが自動作成されたら、フォームのボタンを配置して登録しては？
  (INA)

VBAマクロコードは知っていますか？

  どこかの空き列に非表示しする行にマーク（たとえば 数字の1）を入れておきます。

 そして、マクロで、この列のセルを上から末尾まで調べ、セルの値が1であれば
 非表示にします。末尾まで行います。
  表示は上から全て表示指示をだせばＯＫです。
     たとえば、10列目（J列）とすれば、下記のようになります。

 Sub 非表示実行()
 lastrow = Cells(Rows.Count, 10).End(xlUp).Row
 For i = 1 To lastrow
 If Cells(i, 10) = 1 Then
 Rows(i).Hidden = True
 End If
 Next
 End Sub

 Sub 全表示戻し実行()
 Cells.Select
    Selection.EntireRow.Hidden = False

 Cells(1, 10).Select
 End Sub

 一般のアウトライン機能では足りませんか？
（る～）

 名前無しで投稿しているのは誰？
   (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20050415092522]] 『セルの行・列の表示･非表示を設定するボタン』（koya） ページの最後に飛ぶ

[[20050415092522]]　『セルの行・列の表示･非表示を設定するボタン』（koya）　ページの最後に飛ぶ