Application.SetMatchingField メソッド (Project)

選択されたタスクまたはリソースの中で、指定した条件を満たすタスクまたはリソースのフィールドに値を設定します。

構文

式。SetMatchingField (フィールド、 値、 CheckField、 CheckValue、 CheckTest、 CheckOperation、 CheckField2、 CheckValue2、 CheckTest2)

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

パラメーター

名前	必須 / オプション	データ型	説明
Field	必須	String	設定するフィールドの名前を指定します。
Value	必須	String	フィールドに設定する値を指定します。
CheckField	必須	String	確認するフィールドの名前を指定します。
CheckValue	必須	String	CheckField で指定されたフィールドの値と比較する値。
CheckTest	省略可能	String	CheckField と CheckValue の間で行われる比較の種類。 既定値は "と等しい" です。 比較文字列の 1 つを指定できます。
CheckOperation	省略可能	String	CheckField、CheckTest、CheckValue で確立された条件が、指定されている場合に 2 番目の条件とどのように関連するか。 CheckOperation 引数は、"And" または "Or" に設定できます。 既定値は "または" です。
CheckField2	必須	String	確認する 2 番目のフィールドの名前を指定します。
CheckValue2	必須	String	2 番目のフィールドに設定する値を指定します。
CheckTest2	オプション	バリアント型	CheckField2 と CheckValue2 の間で行われる比較の種類。 CheckTest と同じ比較文字列の 1 つ を指定できます。

比較文字列

比較文字列	説明
"と等しい"	引数 CheckField の値は、引数 CheckValue の値と等しい。
"と等しくない"	引数 CheckField の値は、引数 CheckValue の値と等しくない。
"より大きい"	引数 CheckField の値は、引数 CheckValue の値より大きい。
"以上"	引数 CheckField の値は、引数 CheckValue の値より大きいか等しい。
"より小さい"	引数 CheckField の値は、引数 CheckValue の値より小さい。
"以下"	引数 CheckField の値は、引数 CheckValue の値より小さいか等しい。
"の範囲内"	引数 CheckField の値は、引数 CheckValue の値の範囲内にある。
"の範囲外"	引数 CheckField の値は、引数 CheckValue の値の範囲外にある。
"を含む"	CheckField には CheckValue が含まれています。
"を含まない"	CheckField には CheckValue が含まれていません。
"と一致するものを含む"	CheckField には CheckValue が正確に含まれています。

戻り値

ブール型 (Boolean)

例

次の例では、タスク フィールド Nameの等価性をチェックし、値を に New Task Name変更し、名前を元のフィールドに戻します。

Sub Set_MatchingField() 
 
 Dim T As Task 
 Dim OldName As String 
 
 'Save the task name 
 Set T = ActiveProject.Tasks(3) 
 OldName = T.GetField(pjTaskName) 
 
 ViewApply Name:="&Gantt Chart" 
 'Change the field to "New Task's Name" 
 SetMatchingField Field:="Name", Value:="New Task Name", CheckField:="Name", CheckValue:=OldName, CheckTest:="equals" 
 ' Set the field to the old name 
 SetMatchingField Field:="Name", Value:=OldName, CheckField:="Name", CheckValue:="New Task's Name", CheckTest:="equals" 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。