Resource.MaterialLabel 屬性 (Project)

取得或設定材料資源的標籤。 讀取/寫入的 String。

語法

expression。 MaterialLabel

表達 代表 Resource 物件的變數。

註解

MaterialLabel 屬性不會傳回任何非材料資源，例如人員或機器的有意義的資訊。 設定值會傳回可截獲的錯誤 (錯誤代碼 1101年) 套用至非材料資源時。

範例

此範例會在目前專案的資源清單中尋找，並將所有材料資源的材料標籤設定為「pallet」(此範例中錯誤捕捉機制旨在說明如何處理預期的例外狀況。 在實際使用的案例中，您可能需要包含一個測試，如下所示：

If InStr(R.Name, "bricks") <> 0 Then...

測試可確保只將材料標籤分派給鋪路磚和紅磚 (包含「bricks」)...等等)。

Sub FixLabels() 
 Dim R As Resource 
 
 On Error GoTo ErrTrap: 
 
 For Each R In ActiveProject.Resources 
 If R.MaterialLabel <> "pallet" Then R.MaterialLabel = "pallet" 
 Next R 
 
 Exit Sub 
 
ErrTrap: 
 If Err.Number = 1101 Then 
 Err.Clear 
 Resume Next 
 Else 
 MsgBox Err.Description, vbExclamation, "Error" 
 End If 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。