我有模具编号(Text5)列,我想自动为产品名称(Text2)添加文本例如如果模具编号(Text5)= 111,则将自动创建产品名称(Text2)“ Trapez”这是我的代码
Sub AddProductName()
Dim Name As String
Dim tsk As Task
For Each tsk In ActiveProject.Tasks
Select Case True
Case (tsk.Text5 Like "*111*"): Name = "Trapez"
Case Else: Name = vbNullString
End Select
If Len(Name) > 0 Then
On Error Resume Next
If Err.Number <> 0 Then
tsk.Text2 = Name
End If
End If
Next tsk
End Sub
定制字段适合于一小部分值。使用以下公式自定义Text2字段:Switch([Text5] Like "*1111*","AA",[Text5] Like "*1234*","AB",[Text5] Like "*1233*","BB",[Text5] Like "*1232*","BA",True,"")
要在Text5字段中获取大量可能的值,请使用这样的宏。使用宏的不利之处在于,在运行宏之前,对Text5字段的更改将不会反映在Text2字段中。 (注意:与Excel在单元格级别具有Change事件的Excel不同,Project没有任务级的change事件。)
Sub AddProductName()
Dim ProductName As String
Dim tsk As Task
For Each tsk In ActiveProject.Tasks
If Not tsk Is Nothing Then
Select Case True
Case (tsk.Text5 Like "*1111*"): ProductName = "AA"
Case (tsk.Text5 Like "*1234*"): ProductName = "AB"
Case (tsk.Text5 Like "*1233*"): ProductName = "BB"
Case (tsk.Text5 Like "*1232*"): ProductName = "BA"
Case Else: ProductName = vbNullString
End Select
tsk.Text2 = ProductName
End If
Next tsk
End Sub