目的就是 當 表里面這個函數：IF(Sheet2!$C14="RP25",Sheet2!D14,"0") 判別為否輸出0的時候能把整一行都去掉 但是這個代碼手打出0的時候可以 下拉的時候就會報錯 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 ThenIf Target.Value = "0" ThenTarget.EntireRow.Hidden = TrueEnd IfEnd IfEnd Sub
2 回答
白衣非少年
TA貢獻1155條經驗 獲得超0個贊
VBA中類型不匹配，有可能對比，或運算時使用了兩種不同的類型，導致無法匹配。
例如你拿一個object對象對比一個text文本，就無法匹配。
如在Excel中，一個工作表對象和一個數值相加，就會提示類型不匹配。
還有就是，你拿一個數字和一個文本相乘這樣的，也會提示錯誤。
好好檢查一下吧。對象都是有屬性的。例如你要比較一個對象的名稱是不是與一個文本相同，則可以使用對象屬性提取對象名稱再與文本比較。
例如
if object.name = "新建文件" then
……
end if
這樣是可以的。
如果object是個對象，你卻使用下邊的語句
if object = "新建文件" then
……
end if
這就是錯了，類型不匹配。
慕虎7371278
TA貢獻1802條經驗 獲得超4個贊
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tr = Target.Row
tc = Target.Column
If tc = 1 And Cells(tr, "A") = 0 Then
Rows(tr).Delete
End If
End Sub
公式，0就不要加 引號了嘛
=IF(Sheet2!$C14="RP25",Sheet2!D14,0)
或
Sub 刪除()
Dim i
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Cells(i, "A") = 0 Then
Rows(i).Delete
End If
Next
End Sub
- 2 回答
- 0 關注
- 247 瀏覽
添加回答
舉報
0/150
提交
取消