在VBA中设置查找值

问题描述

您好我正在尝试使用VBA在多个项目中设置场地，并且每个场景中的相同场地具有相同的IN或OUT值，因为我尝试记录它错过了查找中值的实际设置的步骤如何使用vba设置这些。

Hi i am trying to use VBA to set the feilds across multiple projects, the same feild in each one has the same value IN or OUT, as i try to record the steps it misses out the actual setting of the values in the lookup how do i set these using vba.

   ;  CustomFieldRename FieldID：= pjCustomTaskText6，NewName：=" Dep Type"

    CustomOutlineCodeEditEx FieldID：= pjCustomTaskText6，OnlyLookUpTableCodes：= True，OnlyLeaves：= False，LookupDefault：= False，SortOrder：= 0

    CustomOutlineCodeEditEx FieldID：= pjCustomTaskText6，OnlyLookUpTableCodes：= True，OnlyLeaves：= False，LookupDefault：= False，SortOrder：= 1

    CustomFieldPropertiesEx FieldID：= pjCustomTaskText6，Attribute：= pjFieldAttributeValueList，SummaryCalc：= pjCalcNone，GraphicalIndicators：= False，AutomaticallyRolldownToAssn：= False

    CustomFieldRename FieldID:=pjCustomTaskText6, NewName:="Dep Type"
    CustomOutlineCodeEditEx FieldID:=pjCustomTaskText6, OnlyLookUpTableCodes:=True, OnlyLeaves:=False, LookupDefault:=False, SortOrder:=0
    CustomOutlineCodeEditEx FieldID:=pjCustomTaskText6, OnlyLookUpTableCodes:=True, OnlyLeaves:=False, LookupDefault:=False, SortOrder:=1
    CustomFieldPropertiesEx FieldID:=pjCustomTaskText6, Attribute:=pjFieldAttributeValueList, SummaryCalc:=pjCalcNone, GraphicalIndicators:=False, AutomaticallyRolldownToAssn:=False

快速响应真的很感激。

Phil

Phil Monckton The Happy Planner

Phil Monckton The Happy Planner

推荐答案

首先是几个基本问​​题。您使用的是哪个版本的Project？是否使用最新的Service Pack进行了更新？

First a couple of basic questions. Which version of Project are you using? Is it updated with the latest service pack?

如果我理解您的问题，您希望有两个查找表值 - "IN"和"OUT"。如果是这种情况，那么为什么使用大纲代码而不仅仅是简单的查找表？或者，"IN"是"IN"。和"OUT"两个字段的自定义名称 - Text6和另一个
字段？

If I understand your question, you want to have two lookup table values - "IN' and "OUT". If that is the case, then why are you using outline codes instead of just a simple lookup table? Or, are "IN" and "OUT" the custom names of two fields - Text6 and another field?

现在是底线。你的最终目标是什么？

Now the bottom line. What is your end goal?

John

这篇关于在VBA中设置查找值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！