Saya membuat kuesioner di mana pertanyaan tertentu disembunyikan atau ditampilkan tergantung pada tanggapannya.

Saya telah mengatur ini untuk perubahan sel individual.

Masalah yang saya alami adalah jika 5 pertanyaan dijawab dengan nilai "Tidak" maka baris tertentu tidak disembunyikan.

Jadi jika sel K20,K22,K24, K30 dan K32 semuanya berubah menjadi "No" maka tampilkan row 34

Saya sudah mencoba membuat sel rumus yang membaca semua nilai dan mengeluarkan "Ya" jika 5 pertanyaan adalah "Tidak" tetapi saya pikir nilai sel tidak berubah karena rumusnya bukan nilai.

Bantuan apa pun akan sangat dihargai karena saya baru mengenal VBA dan melawan waktu.

Salam Hormat, :)

Berikut kodenya.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "S32" And Target.Value = "Yes" Then
      Call PQShowQ7
       Else
End If

End Sub

Yang mengaktifkan Modul ini

Sub PQShowQ7()

With Sheets("Initial Scoping - WIP")

    Sheets("Initial Scoping - WIP").Unprotect ("xxx")

        .Range("A34", "A35").EntireRow.Hidden = False

    Sheets("Initial Scoping - WIP").Protect ("xxx")

        .Range("J34").Value = "Please Select:"

    End With

    Sheets("Initial Scoping - WIP").Protect ("xxx")

End Sub
0
Basics B 14 Agustus 2019, 12:21

1 menjawab

Jawaban Terbaik

Alih-alih Melakukan Rumus dan memeriksanya, Anda dapat mengubahnya menjadi

Private Sub Worksheet_Change(ByVal Target As Range)


If Range("K20") = "No" And Range("K22") = "No" And Range("K24") = "No" And Range("K30") = "No" And Range("K32") = "No" Then

      Call PQShowQ7

End If

End Sub
1
Mikku 14 Agustus 2019, 10:38