エクセル　マクロを自動実行

Question

仕事で使っている書式で、Ａ１に「あいうえお」と入力すると、Ａ２「あ」、Ｂ２「い」、Ｃ２「う」、Ｄ２「え」、Ｅ２「お」とＭＩＤ関数で振り分け、入力後、Ａ行を「表示しない」と「再表示」するマクロをボタンで実行するようにしています。

そこで、

この書式には必ず入力しなければならない項目があるので（非表示しない行のセル）、この項目に入力したら行の非表示マクロを実行し、空白なら行の再表示マクロを実行出来るようにしたくて調べているのですが見つかりません。

１クリックの手間を省く方法をご存知の方ご教示ください。
宜しくお願いします。

hana-hana3 · Accepted Answer

記録マクロで作られた物ですね。
下記のようにしてください。


Sub とじるよ()
Range("25:25,32:32,38:38,45:45,52:52,59:59,66:66,70:70,74:74,78:78,85:85") _
.EntireRow.Hidden = True
Range("AL15:CE16").Select'選択不要ならこの行を削除
End Sub



Sub ひらくよ()
Rows("21:87").EntireRow.Hidden = False
Range("AL15:CE16").Select'選択不要ならこの行を削除
End Sub

'上記は標準モジュール
'下記はシート用のモジュールに入れてください。

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Target.Address = "$A$1" Then
If Target.Value = "" Then
Call ひらくよ
Else
Call とじるよ
End If
End If
Application.EnableEvents = True

End Sub

Wendy02 · Answer

こんにちは。Wendy02です。こんな風にしたらどうかな？ただし、$A$1などが複数存在している場合は、　Application.EnableEvents のコメントを外してください。 Private Sub Worksheet_Change(ByVal Target As Range) Dim ur As Range Dim flg As Boolean 　''ここを設定↓ 　If Target.Address <> "$A$1" Then Exit Sub 　'Application.EnableEvents = False 　If Target.Value <> "" Then 　flg = True 　Else 　flg = False 　End If 　rngRows ur 　ur.EntireRow.Hidden = flg 　Range("AL15:CE16").Select 　'Application.EnableEvents = True End Sub Private Function rngRows(ur As Range) Dim myRows As Variant Dim r As Variant 　myRows = Array(25, 32, 38, 45, 52, 59, 66, 70, 74, 78, 85) 　For Each r In myRows 　If ur Is Nothing Then 　　Set ur = Rows(r) 　Else 　 Set ur = Union(ur, Rows(r)) 　End If Next r End Function

Wendy02 · Answer

こんにちは。

私は、設問を何度も何度も読み返してみましたが、意味が良くわかりません。
それとも、私の読み違えなのかもしれません。

＞入力後、Ａ行を「表示しない」と「再表示」するマクロ
＞Ａ２「あ」、

「A行」？　「A列」振り分けた、文字列まで、表示しないのですか？

＞この項目(=A1のことだろうと思います）に入力したら行の非表示マクロを実行し、
＞空白なら行の再表示マクロを実行出来るようにしたくて
&
＞１クリックの手間を省く方法をご存知の方ご教示ください。

非表示にする側はA1に入れるから、そのイベントのトリガーになるものは分るけれども、A1（または、2行目）が「空白なら、行の再表示」という状態－非表示になったものに対して、再表示させるためのトリガーは分らないですね。（まったく出来ないわけではないけれども、特殊なコードになります。）

通常は、ワークシートのアクション（動作）に対して、トリガーになるのですから、A1の文字を消去した、というなら、ロジックは成り立ちますが、元を非表示にしたり、その消えている状態では、ロジックが成り立たないと思います。もちろん、シートをActivateしたというものに対しては、トリガーになりますが、そうすると、条件とは違ってきます。どこか、設問に間違いがあるのではないでしょうか？

1クリックの手間と言っても、結局は、何かに組み合わせるだけのことなのですね。その元がなくなったら、どうしようもありませんし、目の前から消えたものに対しては、動作しないわけです。

　　A　　　　B　　　　　C　　　　D　　　　E
1　あいうえお
2　あ　　　　い　　　　う　　　　え　　　お
　　↑
　　この列が非表示になると、残るものは、B2,C2,D2,E2 になります。A1,A2を非表示にするのですか？

hana-hana3 · Answer

シートタブを右クリックして「コードの表示」で開いた画面に下記を記入してください。

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
    
    'スイッチに使うセル名を絶対参照($A$1)で記入
    If Target.Address = "$C$3" Then
        If Target.Value = "" Then
'セルが空白の場合、Ａ列を表示
            Columns("A:A").EntireColumn.Hidden = False
        Else
            Columns("A:A").EntireColumn.Hidden = True
        End If
    End If

    Application.EnableEvents = True
    
End Sub

エクセル マクロを自動実行

記録マクロで作られた物ですね。

こんにちは。

こんにちは。

この回答への補足

シートタブを右クリックして「コードの表示」で開いた画面に下記を記入してください。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセル　マクロを自動実行