質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.82%

VBA セルの値をDelete 特定の行を表示

受付中

回答 1

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 423

donguri7488

score 15

前提・実現したいこと

I20のセルを"無"にしたとき65行目を非表示にし、「I20のセルにそれ以外の値を入れたとき」と「I20のセルが空欄のとき」に65行目を表示にしたいです。
セルの値をDeleteしたときにもマクロが起動するようにしたいです。

発生している問題・エラーメッセージ

I20のセルを"無"にしたとき65行目を非表示にした後(65行目が非表示の状態)、I20のセルの値をDeleteすると65行目が非表示になったままとなる。

該当のソースコード

Private Sub CheckBox1_Click()
    With Me
        a1 = Cells(140, "A").Value
        a2 = Cells(141, "A").Value

        If .CheckBox1.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox11_Click()
    With Me
        a1 = Cells(170, "A").Value
        a2 = Cells(171, "A").Value

        If .CheckBox11.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox12_Click()
    With Me
        a1 = Cells(173, "A").Value
        a2 = Cells(174, "A").Value

        If .CheckBox12.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox13_Click()
    With Me
        a1 = Cells(176, "A").Value
        a2 = Cells(177, "A").Value

        If .CheckBox13.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox14_Click()
    With Me
        a1 = Cells(179, "A").Value
        a2 = Cells(180, "A").Value

        If .CheckBox14.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox15_Click()
    With Me
        a1 = Cells(182, "A").Value
        a2 = Cells(183, "A").Value

        If .CheckBox15.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox16_Click()
    With Me
        a1 = Cells(185, "A").Value
        a2 = Cells(186, "A").Value

        If .CheckBox16.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox17_Click()
    With Me
        a1 = Cells(188, "A").Value
        a2 = Cells(189, "A").Value

        If .CheckBox17.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox18_Click()
    With Me
        a1 = Cells(191, "A").Value
        a2 = Cells(192, "A").Value

        If .CheckBox18.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox2_Click()
    With Me
        a1 = Cells(143, "A").Value
        a2 = Cells(144, "A").Value

        If .CheckBox2.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox3_Click()
    With Me
        a1 = Cells(146, "A").Value
        a2 = Cells(147, "A").Value

        If .CheckBox3.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox4_Click()
    With Me
        a1 = Cells(149, "A").Value
        a2 = Cells(150, "A").Value
        a3 = Cells(149, "H").Value

        If .CheckBox4.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
            .Rows(a3).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
            .Rows(a3).Hidden = True
        End If
    End With

    With Me
        rg = Range("I7").Value = 500 Or Range("I7").Value = 1000 Or Range("I7").Value = "500+2500" Or Range("I7").Value = "1000+2500"

        If .CheckBox4.Value = True And rg Then
            .Rows(49).Hidden = False
        Else
            .Rows(49).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox5_Click()
    With Me
        a1 = Cells(152, "A").Value
        a2 = Cells(153, "A").Value

        If .CheckBox5.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
            .Rows(69).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
            .Rows(69).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox6_Click()
    With Me
        a1 = Cells(155, "A").Value
        a2 = Cells(156, "A").Value

        If .CheckBox6.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox7_Click()
    With Me
        a1 = Cells(158, "A").Value
        a2 = Cells(159, "A").Value

        If .CheckBox7.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox8_Click()
    With Me
        a1 = Cells(161, "A").Value
        a2 = Cells(162, "A").Value

        If .CheckBox8.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub CheckBox9_Click()
    With Me
        a1 = Cells(164, "A").Value
        a2 = Cells(165, "A").Value

        If .CheckBox9.Value = True Then
            .Rows(a1 & ":" & a2).Hidden = False
        Else
            .Rows(a1 & ":" & a2).Hidden = True
        End If
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$I$17" Then
        If Range("I17").Value = "無" Then
            Rows(56).Hidden = True
            Rows(62).Hidden = True
            Rows(63).Hidden = True
        Else
            Rows(56).Hidden = False
            Rows(62).Hidden = False
            Rows(63).Hidden = False
        End If
    End If

    If Target.Address = "$I$20" Then
        If Range("I20").Value = "無" Then
            Rows(64).Hidden = True
        Else
            Rows(64).Hidden = False
        End If
    End If

    If Target.Address = "$I$51" Then
        If Range("I51").Value = "不要" Then
            Rows(52).Hidden = True
            Rows(53).Hidden = True
        Else
            Rows(52).Hidden = False
            Rows(53).Hidden = False
        End If
    End If

    If Target.Address = "$I$81" Then
        If Range("I81").Value = "無" Then
            Rows(82).Hidden = True
        Else
            Rows(82).Hidden = False
        End If
    End If

    If Target.Address = "$I$91" Then
        If Range("I91").Value = "無" Then
            Rows(92).Hidden = True
        Else
            Rows(92).Hidden = False
        End If
    End If

    If Target.Address = "$I$126" Then
        If Range("I126").Value = "契約工期" Then
            Range("O126").Value = "~"
            MsgBox "契約工期を記入してください"
        ElseIf Range("I126").Value = "" Then
            Range("N126").Value = ""
        Else
            Range("N126").Value = ""
        End If
    End If

    If Target.Address = "$I$128" Then
       If Range("I128").Value = "有" Then
            Rows(129).Hidden = True
            Rows(130).Hidden = True
            Rows(131).Hidden = True
            Rows(132).Hidden = True
            Rows(133).Hidden = True
        Else
            Rows(129).Hidden = False
            Rows(130).Hidden = False
            Rows(131).Hidden = False
            Rows(132).Hidden = False
            Rows(133).Hidden = False
        End If
    End If

        If Target.Address = "$I$7" Then
            With Me
                rg = Range("I7").Value = 500 Or Range("I7").Value = 1000 Or Range("I7").Value = "500+2500" Or Range("I7").Value = "1000+2500"
                If rg Then
                    .Rows(65).Hidden = False
                Else
                    .Rows(65).Hidden = True
                End If
            End With

            With Me
                If .CheckBox4.Value = True And rg Then
                    .Rows(49).Hidden = False
                Else
                    .Rows(49).Hidden = True
                End If
            End With
        End If
End Sub
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • donguri7488

    2019/04/23 14:56

    実現したいこと以外の動作は問題ありません。
    質問に記載しているPrivate Sub Worksheet_Changeイベントだけの場合、動作に問題ありません(実現したいことも動作します)。
    しかし、Private Sub CheckBox○_Click()のコードを入れると実現したいことの動作に問題があります。
    また、Worksheet_SelectionChangeイベントは使用しておりません。

    Private Sub CheckBox○_Click()がPrivate Sub Worksheet_Changeに影響しているのでしょうか。
    ちなみにPrivate Sub CheckBox○_Click()に65行目を操作するコードは含まれていません。

    キャンセル

  • ttyp03

    2019/04/23 14:58

    CheckBox○_Click()があると問題が発生するとわかっているのになぜそのコードを提示しないのか。

    キャンセル

  • donguri7488

    2019/04/23 17:18

    質問のコードを更新致しました。
    Private Sub CheckBox○_Click()が影響している可能性があることは皆様からのご指摘から気づきましたので、また何かあればご指摘をお願い致します。

    キャンセル

回答 1

0

提示のコードを試すことはしてませんが、
別のイベントプロシージャが影響しているらしいということなので、

それぞれのイベントプロシージャの先頭に、

Application.EnableEvents = False

最後に、

Application.EnableEvents = True

を挿入して、イベント発生を抑制したらどうでしょうか。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.82%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る