Excel VBA質問箱 IV

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

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


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

42179 / 76735

←次へ　｜　前へ→


	【39627】Re:折りたたみをきっかけにマクロ実行

sin - 06/6/27(火) 18:50 -


	引用なし

	パスワード

▼ひげくまさん：
こんにちは。

>実際には、3行ごとのグループがいくつかあって、そのグループの1行目の最左列のセルをクリックしたら、2行目と3行目の状態を見て、折りたたまれていたら展開する、展開されていたら折りたたむ、というものを求めています。
>この場合でしたら、監視しなくても済むんですよね？それとも、やはり監視する必要はありますか？
最初の質問とはだいぶ違うような気がしますが・・・
対象のセルがA1、A4、A7・・・、と3行ごとなら

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　With Target
　　　　If .Column = 1 And .Row Mod 3 = 1 Then
　　　　　　TRow = .Row + 1 & ":" & .Row + 2
　　　　　　With Cells.Rows(TRow).EntireRow
　　　　　　　　If .Hidden = False Then
　　　　　　　　　　.Hidden = True
　　　　　　　　Else
　　　　　　　　　　.Hidden = False
　　　　　　　　End If
　　　　　　End With
　　　　End If
　　End With
End Sub

0 hits

▼

【39586】折りたたみをきっかけにマクロ実行 ひげくま 06/6/27(火) 8:56