Question

我有一个仪表板，其中包含一个数据库，该数据库包含最多三年的数据和几张数据，这些数据表使用的数据来自数据库。每次，我更新，向数据库添加新数据我也必须手动将其添加到工作表。我做了单元链接，但它不适用于添加数据。无论如何，每次我将数据添加到数据库中的某个范围时，它都应该自动添加到受影响的工作表中。我以前使用过此代码，但最近用户告诉我他不想丢失任何数据。是否有任何修改可以做到这一点？我需要帮助，因为我已经尝试了很多方法。这是代码

Sub update()


MsgBox "Please ensure that the headers of the table are not selected when updating."

    Dim oselect As Range, vUndo As Variant
    On Error Resume Next
    Set oselect = Application.InputBox("Range?", , Selection.Address, , , , , 8)
    On Error GoTo 0

    If TypeName(oselect) <> "Range" Then
            Exit Sub
        Else
        oselect.Select
        vUndo = oselect
       Selection.Value = Selection.Offset(0, 1).Value

    If MsgBox("Save Changes?", vbYesNo) = vbNo Then
     oselect = vUndo
     End If

     End If

    End Sub

Answer 1

一个解决方案（Excel 2010）将创建一个名称（公式＆gt;定义名称），然后将以下内容放入＆＃34;参考＆＃34;文本框：=OFFSET('yourSheetName'!$F$6,0,0,COUNTA('yourSheetName'!$F:$F),1)。

在此示例中，每次在F列中添加数据时，您的名称都将自动更新。您可以对此特定名称进行操作。

数据库更新应在具有从数据库检索的数据的其他工作表中自动更新

1 个答案: