VBA MS 项目。如何以编程方式移动查找表的条目？

Question

我有一个问题。我正在研究 MS Project 2013 中的 VBA 宏，它可以自动填充和更改查找表，它与项目专业中的本地自定义字段链接。我在 VBA 上有这些代码部分：

-添加条目

Set objStateEntry = objOutlineCode.LookupTable.AddChild(entryName)

-改变条目的描述

objStateEntry.Description = "some description"

-改变整体水平

objStateEntry.level = entryLevel

但我找不到如何以编程方式在查找表中向上/向下移动条目。换句话说，我需要以编程方式使用屏幕截图按钮中的标记。请帮我。谢谢！

Answer 1

试试这样的：

Private Sub SpinButton1_SpinDown()
On Error Resume Next
If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub
 With Me.ListBox1
     .ListIndex = .ListIndex + 1
 End With
End Sub


Private Sub SpinButton1_SpinUp()
On Error Resume Next
If ListBox1.ListIndex = 0 Then Exit Sub
  With Me.ListBox1
       .ListIndex = .ListIndex - 1
  End With
 End Sub  

祝你好运