根据不同的工作簿进行排序

Question

我不是一个VBA宏程序员，但我只知道一点点。请在这个问题上帮助我。

有两个工作簿，WorkBookA和WorkBookB。

WorkbookA:

​

​

WorkBookB:

​

​

浏览选项卡是浏览WorkBookA，其他工作簿whisch类似于WorkBookA，但内容不同。刷新按钮将更新CheckButton的“选中”或“未选中”状态。

Answer 1

不太清楚..。如果只希望复制检查过的数据，可以编写这样的子程序：

Sub UpdateCheck()
    Dim e, i As Integer

    i = 1
    If CheckBox1.Value Then
        Range("J" & i).Value = CheckBox1.Caption
        i = i + 1
    End If
    If CheckBox2.Value Then
        Range("J" & i).Value = CheckBox2.Caption
        i = i + 1
    End If
    If CheckBox3.Value Then
        Range("J" & i).Value = CheckBox3.Caption
        i = i + 1
    End If
    If CheckBox4.Value Then
        Range("J" & i).Value = CheckBox4.Caption
        i = i + 1
    End If
    If CheckBox5.Value Then
        Range("J" & i).Value = CheckBox5.Caption
        i = i + 1
    End If
    If CheckBox6.Value Then
        Range("J" & i).Value = CheckBox6.Caption
        i = i + 1
    End If
    If CheckBox7.Value Then
        Range("J" & i).Value = CheckBox7.Caption
        i = i + 1
    End If
    If CheckBox8.Value Then
        Range("J" & i).Value = CheckBox8.Caption
        i = i + 1
    End If

    For e = i To 8
        Range("J" & e).Value = ""
    Next

End Sub

此示例位于同一页上，但只需在范围内添加引用即可

Sheets(2).Range ...

您可以直接在Sheet2中的按钮中调用子UpdateCheck。或者您可以自动添加代码：

Private Sub CheckBox1_Click()
   UpdateCheck
End Sub

对于工作表中的每一个复选框。

如果您想要从更大的数据中复制或用于筛选器，这会稍微复杂一些.

我不明白浏览按钮的用途..。