Excel宏隱藏行

Question

我不知道如何在Excel中編寫宏，但我想我已經在您的網站上找到了答案，可以讓我更加接近所需。 這是我的情況：

If cell K23 = cell T20 then do nothing.  
If cell K23 = cell (T21:T23) then hide rows 25:65

這是我到目前為止的宏：

Sub HIDE()
    If Range(K23) = Range(T20) Then nil = True
    Else
    If Range(K23) = Range("T21:T23") Then Rows("25:65").EntireRow.Hidden = True

    End If: End If:

End Sub

我收到一個錯誤消息：“否則，如果沒有”

請告訴我我做錯了什么。

謝謝。

Answer 1

您需要將“ nil = true”放在單獨的行上； 如果您要在與“ if”相同的行上執行該語句，則Excel VBA會將其視為“ if”語句的結尾。

因此，您需要執行以下操作：

Sub HIDE()
    If Range(K23) = Range(T20) Then 
        nil = True
    Else
        If Range(K23) = Range("T21:T23") Then 
            Rows("25:65").EntireRow.Hidden = True
        End If
    End If
End Sub

用這種方式閱讀也容易一些。 如對您的問題的評論所述，您需要提供更多詳細信息，以便我們幫助您使函數實際完成您需要做的事情。

Answer 2

單程...

Sub tgr()

    Range("25:65").EntireRow.Hidden = (WorksheetFunction.CountIf(Range("T21:T23"), Range("K23").Text) > 0)

End Sub