Question

我对VBA很新，我一直在寻找解决问题的方法，却没有找到正确的答案。我的目标是在完成后将项目行移动到我命名为“已完成项目”的列表

我将一组单元格"Project_list"-$A$42:$AH$57和另一组单元格定义为"Completed_Projects"-$A$59:$AH$65。我想将Project（与行相关联）从Project_list移动到Completed_Projects列表的末尾。宏需要检查在我的选择中我在列O和S中计算的单元格中有正确的信息（O（项目的状态）单元格=“已关闭”和S（项目的结束日期）＆lt;＆gt;“”）。

如何根据我选择的行对我的宏进行宏检查？

Answer 1

我一直试图找到一个解决方案，可能已经改变了我设置所有内容的方式，但这里是我的立场：

Sub Archive2()
  Dim Status As Range
  Dim EndDate As Range
  Dim ActiveCell As Range
 With Active.Selection = Selection

Set Status = Intersect(Selection, Columns("O:O"))
Set EndDate = Intersect(Selection, Columns("S:S"))
 End With

我正在努力使我的选择是我的设置行和列O和S是我的列，我需要检查我的参数。

If Status.Value = "Closed" And EndDate.Value <> "" Then

'still looking at where I will compute the row. probably another Worksheet.

Else: Status.Value = InputBox("ComputeDATA1") _
And EndDate.Value = InputBox("ComputeDATA2")

End If

End Sub

VBA - 将所选行移动到已定义的列表

1 个答案: