vba - Excel VBA : How to push data to an exclusive range on another sheet?

Question

我使用下面的子程序作为另一个子程序的一部分，该子程序进行错误检查并保存成绩表。在整个类(class)中，将至少生成 39 张成绩单。每个事件可能会完成多次 - 天气取消或学生失败。

FindEmptyInsertData 子程序从成绩表中获取三个最重要的数据(日期、成绩、状态)，并将它们添加到名为 Index 的表中。然后，索引对已完成的事件进行运行记录...仅基于“错误检查和保存”宏的输出。

我的问题更多的是一个逻辑问题，而不是针对特定代码(尽管它会有所帮助)。 FindEmptyInsertData 效果非常好。但是，无论用户单击“错误检查并保存”表单控制按钮多少次，数据都会被推送并添加到索引中。我希望每个成绩表只推送一次...问题/挑战是用户可能需要返回并更改成绩表(错误的日期、不同的状态...等)。

索引如下所示:

    Event   ABC-1   ABC-2   DEF-1   DEF-2
    Date    dd-mmm  dd-mmm  dd-mmm  dd-mmm
    Grade     1        2      2       3
    Status    WX      EFF    EFF     EFF
            ----    ----    ----    ----
    Date    dd-mmm
    Grade     3
    Status   EFF

我认为我的解决方案在于每天只尝试/完成一项事件。因此...如果成绩单的日期与索引中的日期匹配，则不要再次推送数据...除非成绩或状态发生变化。哎呀，我的脑子好痛!

提前致谢!

Sub FindEmptyInsertData()

Dim ws As Worksheet
Dim gsDate As Date
Dim gsWorking As String
Dim gsMsnNum As String
Dim colNum As Integer

gsWorking = ActiveWindow.ActiveSheet.Name
gsDate = ActiveSheet.Range("S3")
gsGrade = ActiveSheet.Range("D40")
gsStatus = ActiveSheet.Range("O7")
gsMsnNum = ActiveSheet.Range("D3")

Application.ScreenUpdating = False


    'Opens up the INDEX (Sheet4) and finds the first empty cell
        Sheet4.Activate
        Sheet4.Unprotect

    'Finds the sortie name column in INDEX
        For Each Cell In ActiveSheet.Rows(5).Cells
        If Cell = gsMsnNum Then Cell.Select: Exit For
        Next Cell

    'Takes the active column number and assigns it to the variable
        colNum = ActiveCell.Column

    'Finds the first open cell in that column
        For Each Cell In ActiveSheet.Columns(colNum).Cells
        If Len(Cell) = 0 Then Cell.Select: Exit For
        Next Cell

    ActiveCell.Value = gsDate 'Prints the Date from the GS into the first empty cell
    ActiveCell.NumberFormat = "dd-mmm"

        Selection.Offset(1, 0).Select 'Moves One Cell Down

    ActiveCell.Value = gsGrade 'Prints the Grade from the GS

        Selection.Offset(1, 0).Select 'Moves One Cell Down

    ActiveCell.Value = gsStatus 'Prints the Status from the GS
    ActiveCell.Borders(xlEdgeBottom).Weight = xlMedium 'Adds a bottom border

    'Protects the Index Page
    Sheet4.Protect



    'Returns to the Previously open GS
    Worksheets(gsWorking).Activate


End Sub

Answer 1

在没有看到您的索引和其他涉及的代码的情况下，这是我能提出的最佳建议。

从概念上讲，就简单的数据库设计而言，您可能会受益于为事件序列添加第五行。将整数变量添加到查找序列以及为事件分配数据时的代码中。将事件数据添加到索引时将其加 1。如果您讨厌消耗整行的想法，您也可以告诉您的代码隐藏该行。

这样您就可以根据需要拥有包含相同或不同数据的任意多个条目。默认情况下，您可以选择接受“事件”和“序列”的最高编号作为最终提交的成绩。

Event   ABC-1   ABC-2   DEF-1   DEF-2
-------------------------------------
Seq       1        1      1       1    ' <--- Pull data by Event Name & Sequence
Date    dd-mmm  dd-mmm  dd-mmm  dd-mmm
Grade     1        2      2       3
Status    WX      EFF    EFF     EFF
         ----    ----    ----    ----
Seq       2                            ' <--- Pull data by Event Name & Sequence
Date    dd-mmm
Grade     3
Status   EFF

<小时/>

此外，您可以向索引添加另一行，其中包含已推送到成绩表的事件事件的数据。

Event   ABC-1   ABC-2   DEF-1   DEF-2
-------------------------------------
Seq       1        1      1       1   ' <--- Pull data by Event Name & Sequence
Date    dd-mmm  dd-mmm  dd-mmm  dd-mmm
Grade     1        2      2       3
Status    WX      EFF    EFF     EFF
Active    0        1      1       1
         ----    ----    ----    ----
Seq       2                            ' <--- Pull data by Event Name & Sequence
Date    dd-mmm
Grade     3
Status   EFF
Active    1