强制用户输入

Question

我无法弄清楚如何在Microsoft Project 2013中引用列。

我需要的基本上是：

1. 每当活动项目发生变化时，列：=“文本6”的任务
2. 如果任务不是摘要而且新值不是0那么
3. 弹出窗口询问用户对任务花费的时间
的输入
4. 将用户输入放入列：=“工作”以执行相同的任务
5. 结束如果
6. End Sub

现在，如果它是Excel，我会使用类似下面的内容：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Work As String
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100")) Is Nothing And Target.Value <> 0 Then
    Work = InputBox("Enter time spent", "Time Spent")
    Target(1, 2) = Work
End If
End Sub