[英]VBA Conditional formatting subscript out of range
對VBA來說是非常新的知識,並且一直在嘗試解決下標超出范圍數小時的問題:.FormatConditions(1).Add Type:= xlCellValue,Operator:= xlLess,_ Formula1:=“ = 0.5”我是什么失蹤?
With ActiveSheet
Columns(4).Select
Range("D3").Activate
With Columns("D:D")
.FormatConditions.Delete
.FormatConditions(1).Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=0.5"
.FormatConditions(1).NumberFormat = "0.000"
.FormatConditions(1).StopIfTrue = False
.FormatConditions(2).Add Type:=xlCellValue, Operator:=xlGreaterEqual, _
Formula1:="=0.5"
.FormatConditions(2).NumberFormat = "#,##0.0"
.FormatConditions(2).StopIfTrue = False
ActiveSheet.Next.Select
End With
End With
End Sub
添加條件時語法出現問題。 您也可以省去我認為的精選。
With ActiveSheet.Columns("D:D")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=0.5"
.FormatConditions(1).NumberFormat = "0.000"
.FormatConditions(1).StopIfTrue = False
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, _
Formula1:="=0.5"
.FormatConditions(2).NumberFormat = "#,##0.0"
.FormatConditions(2).StopIfTrue = False
End With
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.