我在確認指定范圍內的任何單元格是否包含任何值方面遇到了麻煩。希望有人能在語法上幫助我。
謝謝您的幫助
For i = 1 To DataRange.Rows.Count
CheckCells = If(Qow > 0 And WS1.Range("Sheet1! A" & i & ":Sheet1!Z" & i).Value <> ", "HasValue", "NoValue")
Next i
uj5u.com熱心網友回復：
你可以迭代單元格來檢查每一個單元格：
你可以迭代單元格來檢查每一個單元格。
Dim r = xl.Range("A1"/span>, "D4"/span>)
Dim nCells = r.Cells.Count
Dim isAllBlank = True
For i = 1 To nCells
If DirectCast（r.Cells(i), Excel.Range）。 Value IsNot NothingThen
isAllBlank = False Then
退出 為
結束 If
下一步 下一步
checkCells = If(isAllBlank, "NoValue"/span>, "HasValue"/span>)
其中xl.Range是你需要檢查的范圍。
我試圖使用range.SpecialCells(Excel.XlCellType.xlCellTypeBlanks)，但它是一個有點情緒化的東西。
uj5u.com熱心網友回復：
我通過使用以下代碼實作了我想要的東西。
For i = 1 To DataRange.Rows.Count
If xlApp.WorksheetFunction.CountA(WS.Range("Part! Z" & R & ":Parts!AI" & R)) > 0 Then
CheckCells = "HasValue"/span>
Else
CheckCells = "NoValue"
End If
Next i
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/308314.html
標籤：