Resource.MaterialLabel プロパティ (Project)

取得または数量単価型リソースのラベルを設定します。 読み取り/書き込みが可能な String です。

構文

式。 MaterialLabel

式Resource オブジェクトを表す変数。

注釈

MaterialLabel プロパティは、人や機械などの、数量単価型以外のリソースについては具体的な情報を表しません。 数量単価型以外のリソースに適用されると、トラップ可能なエラー (エラー コード 1101) を返します。

例

次の使用例は、現在のプロジェクトにある数量単価型リソースの数量単位を "パレット" に設定します (この例のエラー トラッピングは、予期される例外をどのように取り扱うかのみを示しています。 実際のコードでは、

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

のような条件を加え、数量単位が舗道レンガ、赤レンガなどのレンガにのみ割り当てられるようにすることをお勧めします)。

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 のサポートおよびフィードバックを参照してください。