Application.FieldNameToFieldConstant 方法 (Project)

會傳回 Long 值為本機自訂欄位或企業自訂欄位名稱。

語法

expression. FieldNameToFieldConstant( _FieldName_, _FieldType_ )

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
FieldName	必要	String	本機或企業自訂欄位的名稱。
FieldType	選用	Long	欄位的類型。 可以是下列 PjFieldType 常數之一： pjProject 、 pjResource 或 pjTask 。 預設值為 pjTask 。

傳回值

Long

註解

如果 FieldName 引數為本機自訂欄位，則傳回的值可以是 PjField 常數。 如果 FieldName 為企業自訂欄位，傳回的值不符合 PjField 常數因為很企業自訂欄位數目不受限制。

注意事項

[!注意事項] 基於可用性及效能考量，企業自訂欄位的數目應該限制在數百個以下。

您可以透過 ProjectSummaryTask 屬性來存取專案自訂欄位。

範例

下列範例會顯示 FieldNameToFieldConstant 方法及 FieldConstantToFieldName 方法之間的差異：

1. 若要使用範例，請使用 Project Web App 來建立名為 TestEntProjText 的企業專案文字自訂欄位。

2. 使其包含新的自訂欄位重新啟動Project與 Project Server 設定檔。

3. 使用 [專案資訊] 對話方塊，建立一個專案並為 TestEntProjText 欄位設定某值。

4. TestEnterpriseProjectCF 巨集會使用 FieldNameToFieldConstant 方法來尋找 projectfield 數字，例如，190873618。

5. 巨集會使用 GetField 方法，在訊息方塊中顯示數字和文字值。

6. 巨集會使用 FieldConstantToFieldName 方法來取得欄位名稱、 使用 SetField 方法，來設定新的值，然後另一個訊息方塊中顯示的欄位名稱和新的值。

Sub TestEnterpriseProjectCF() 
    Dim projectField As Long 
    Dim projectFieldName As String 
    Dim message As String 
 
    projectField = FieldNameToFieldConstant("TestEntProjText", pjProject) 
 
    ' Show the enterprise project field number and old value. 
    message = "Enterprise project field number: " & projectField & vbCrLf 
    MsgBox message & ActiveProject.ProjectSummaryTask.GetField(projectField) 
 
    ActiveProject.ProjectSummaryTask.SetField FieldID:=projectField, Value:="This is a new value." 
 
    ' For a demonstration, show the field name from the field number, and verify the new value. 
    projectFieldName = FieldConstantToFieldName(projectField) 
    message = "New value for field: " & projectFieldName & vbCrLf 
    MsgBox message & ActiveProject.ProjectSummaryTask.GetField(projectField) 
End Sub

支援和意見反應

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