我有這個代碼：
If Sheets("CM").Cells(a, b).Value = "" Then
Sheets("CM").Cells(a, b).Value = shouldBeValue
End If
我想將它重構為這個：
c = Sheets("CM").Cells(a, b)
If c.Value = "" Then
c.Value = shouldBeValue
End If
但是我在 If 行收到錯誤“預期物件”，我不明白為什么。
uj5u.com熱心網友回復：
創建物件參考
Set statement
' To create references to objects you need to use the 'Set' keyword.
Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet1")
Dim cell As Range: Set cell = ws.Cells(a, b)
If Len(CStr(cell.Value)) = 0 Then ' blank i.e. empty, ="", ', ...
'If IsEmpty(cell) Then ' empty
cell.Value = shouldBeValue
End If
uj5u.com熱心網友回復：
物件變數Set在分配其目標物件時需要使用關鍵字：
Set c = Sheets("CM").Cells(a, b)
但是您還應該考慮隱式物件參考的優點：
With Sheets("CM").Cells(a, b)
If .Value = "" Then .Value = shouldBeValue
End With
使用該With陳述句允許封閉的代碼參考指定的物件，而無需進一步直接參考。換句話說，隱含的。Cells(a, b)在此示例中，代碼使用兩次隱式參考該物件.Value。這種技術消除了對單獨物件變數的需要；它使代碼更容易閱讀，更短更清晰；它通常比詳細的物件參考執行得更快。
With 陳述句可以嵌套，但一次只能激活一個。
uj5u.com熱心網友回復：
另外，請注意，在重構形式中，您只是將單元格 (a, b) 的值復制到單獨的變數“c”上，但單元格 (a, b) 根本不會受到影響。在原始形式中，如果單元格為空，則將變數 'sholdBeValue' 的值放入單元格 (a, b) 中。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/475481.html
上一篇：AlgoExpert：驗證子序列，不通過所有測驗用例
下一篇：使用帶有變數的excel內置函式