[英]Clear contents of cell based on value in other cell
我需要一些幫助使我的VBA代碼正常工作。 它隱藏某些行的第一部分有效,但是當我嘗試根據另一個單元格中的值清除單元格的內容時,我似乎無法使其正常工作。
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)`
Dim c As Range
On Error Resume Next
If Target.Address = "$H$5" Then
Rows("10:109").EntireRow.Hidden = False
Select Case Target.Value
Case "1"
Rows("30:109").EntireRow.Hidden = True
End Select
Select Case Target.Value
Case "2"
Rows("50:109").EntireRow.Hidden = True
End Select
Select Case Target.Value
Case "3"
Rows("70:109").EntireRow.Hidden = True
End Select
End If
If Target.Address = "$H$6" Then
Select Case Target.Value
Case "1"
Range("C18:D23").Cells.ClearContents
End Select
Select Case Target.Value
Case "2"
Range("C19:D23").Cells.ClearContents
End Select
Select Case Target.Value
Case "3"
Range("C20:D23").Cells.ClearContents
End Select
End If
End Sub
也許
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
On Error Resume Next
If Target.Address = "$H$5" Then
Application.EnableEvents = False
Rows("10:109").EntireRow.Hidden = False
Select Case Target.Value
Case "1"
Rows("30:109").EntireRow.Hidden = True
Case "2"
Rows("50:109").EntireRow.Hidden = True
Case "3"
Rows("70:109").EntireRow.Hidden = True
End Select
Application.EnableEvents = True
End If
If Target.Address = "$H$6" Then
Application.EnableEvents = False
Select Case Target.Value
Case "1"
Range("C18:D23").Cells.ClearContents
Case "2"
Range("C19:D23").Cells.ClearContents
Case "3"
Range("C20:D23").Cells.ClearContents
End Select
Application.EnableEvents = True
End If
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.