自动创建一个艾森豪威尔矩阵从任务列表

Question

我想在Excel中自动执行我的待办事项列表，使用VBA创建Eisenhower matrix。

我构建了我的待办事项列表以下列方式：

Task | Urgent | Important | done 
T1 | x | x  | 
T2 |  | x  | 
T3 | x |   | 
T4 |  |   | 

我能够过滤两个紧迫性和importancy我的任务列表，并排除其被表示为“完成”的行。

我想以这样的方式来创建我的矩阵，它看起来像这样：

__________|IMPORTANT|NOT IMPORTANT 
URGENT | T1 |  T3 
----------|---------|-------------- 
NOT URGENT| T2 |  T4 

我不知道怎么我的VBA这样的代码，它会选择我的过滤行，决定了矩阵将会变大，并相应地填充它。

我想在excel VBA中使用range.count()属性来计算行数，但我无法获得T2和T4对齐。此外，它还会每次复制'任务'标题。

我到目前为止的代码如下：

Sub populate_matrix() 
Dim i As Integer 

ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=5, Criteria1:="=" 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=2, Criteria1:="<>" 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=3, Criteria1:="<>" 

Range("A1").Select 
Range(Selection, Selection.End(xlDown)).Select 
i = Range(Selection).Count 
Selection.Copy 
Sheets("work matrix").Select 
Range("B2").Select 
ActiveSheet.Paste 

Sheets("tasks").Select 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=5, Criteria1:="=" 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=2, Criteria1:="<>" 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=3, Criteria1:="=" 

Range("A1").Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 
Sheets("work matrix").Select 
Range("B" & i).Select 
ActiveSheet.Paste 

Sheets("tasks").Select 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=5, Criteria1:="=" 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=2, Criteria1:="<>" 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=3, Criteria1:="=" 

Range("A1").Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 
Sheets("work matrix").Select 
Range("c2").Select 
ActiveSheet.Paste 

Sheets("tasks").Select 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=5, Criteria1:="=" 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=2, Criteria1:="=" 
ActiveSheet.Range("$A$1:$E$55").AutoFilter Field:=3, Criteria1:="=" 

Range("A1").Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Copy 
Sheets("work matrix").Select 
Range("C" & i).Select 
ActiveSheet.Paste 

末次

Answer 1

后OP的代码更新

你可以试试这个

Option Explicit 

Sub main2() 
    Dim EisenTable As Range 

    Set EisenTable = Worksheets("work matrix").Range("B2:C3") 
    With Worksheets("tasks") 
     With .Range("D1", .Cells(.Rows.Count, "A").End(xlUp)) 
      EisenTable.Cells(1, 1) = CountX(.Cells, 2, 3, "x", "x") 
      EisenTable.Cells(1, 2) = CountX(.Cells, 2, 3, "x", "<>x") 
      EisenTable.Cells(2, 1) = CountX(.Cells, 2, 3, "<>x", "x") 
      EisenTable.Cells(2, 2) = CountX(.Cells, 2, 3, "<>x", "<>x") 
     End With 
    End With 
End Sub 

Function CountX(rng As Range, col1 As Long, col2 As Long, crit1 As String, crit2 As String) As String 
    Dim cell As Range 
    Dim iVal As Long 

    With rng 
     .AutoFilter Field:=col1, Criteria1:=crit1 
     .AutoFilter Field:=col2, Criteria1:=crit2 
     If Application.WorksheetFunction.Subtotal(103, .Cells) > 1 Then 
      With .Resize(.Rows.Count - 1, 1).Offset(1).SpecialCells(xlCellTypeVisible) 
       ReDim vals(1 To .Count) As String 
       For Each cell In .Cells 
        iVal = iVal + 1 
        vals(iVal) = cell.Value 
       Next 
      End With 
      CountX = Join(vals, ",") 
     End If 
     .Parent.AutoFilterMode = False 
    End With 
End Function