VBA MS項目。如何以編程方式移動可查找條目？

Question

我有一個問題。我正在開發MS Project 2013中的VBA宏，它可以自動填充和更改查找表，該查找表與項目專業人員中的本地自定義字段鏈接。我有這些代碼段上的VBA：

-adding項

Set objStateEntry = objOutlineCode.LookupTable.AddChild(entryName) 

- 改變項descrption

objStateEntry.Description = "some description" 

entires的 - 改變水平

objStateEntry.level = entryLevel 

但我做不到找不到如何以編程方式在查找表中上移/下移條目。換句話說，我需要使用編程方式在the screenshot按鈕中標記。請幫幫我。謝謝！

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 

古德勒克