如果另一列具有“不”，我该如何复制特定列的值在里面？

Question

非常具体的问题。我有一个学习VBA的任务，但我真的找不到任何问题。

project中的外观

基本上是“ sammelvorgang”列，请说“ nein”，列“ Text7”应包含“ NR”的值。该行

浏览了VBA的基础知识，但我找不到针对特定列或特定行的解决方案。

Sub schedule_Number()

Dim tsk As Task

For Each tsk In ActiveProject.Tasks
    
    If Not (tsk Is Nothing) Then
    
        If (tsk.Sammelvorgang.Value = "Nein") Then
        
        tsk.Text7 = tsk.Nr
                    
        End If
        
    End If
    

Next tsk

End Sub

感谢您的帮助

Answer 1

显示的值（始终是字符串）和存储的值（日期，字符串，数字等）之间存在差异。在VBA中，使用存储值更简单。在这种情况下，sammelvorgang是一个布尔值的摘要（我相信），因此可以按这样的代码编写代码：

Sub schedule_Number()

Dim tsk As Task
For Each tsk In ActiveProject.Tasks
    
    If Not (tsk Is Nothing) Then
        If Not tsk.Summary Then
            tsk.Text7 = tsk.ID
        End If
    End If
    
Next tsk

不幸的是，在vba中，对象名称，属性，方法全部使用英语。可能可以使用应用对象的方法从本地语言字段名称派生字段ID。 （但是，我没有任何非英语版本可以对此进行测试）。

然后使用字段ID， getfield 方法可用于返回 display value（string）。

---

这是英语语言文档：和 getfield 。