在数据拉线上显示命令按钮

Question

我们每 3 个月为我们的工程师提供一次文件。 此 Excel 文件，从 Access 文件中提取数据并以 Excel 格式显示。

由于其中一些数据没有改变，我们不知道工程师是否没有查看它，或者值是否没有改变。我正在尝试实现的是某种“确认”按钮，因此我们知道显示的值实际上已确认。

我要做的是在我们的访问文件中输入一个额外的列，称为“确认”。 当我们在我们的 excel 文件中提取这些数据时，我试图找到一种方法将“确认字段”转换为命令按钮，因此每当提取数据时，每行都会显示一个命令按钮。每当单击按钮时，数据都会保存在我们的 Access 文件中，因此我们知道该行实际上已被确认。

也许还有其他一些更简单的方法可以做到这一点？

我目前有一些代码可以在 Access 中保存 excel 数据，但它不能以当前的形式工作：

Sub S_SaveDataToDB()

If ActiveSheet.Name = "Estimate" Then
    ViKey = 1
Else
    ViKey = 2
End If
For i = 1 To ActiveSheet.ListObjects("TB_ACC" & ViKey).ListRows.Count
   VsData = "SET [BE] = '" & F_FilterData(ActiveSheet.Cells(7 + i, 17)) & "', [PO STATUS] = '" & F_FilterData(ActiveSheet.Cells(7 + i, 18)) & "', [REMARKS] = '" & F_FilterData(ActiveSheet.Cells(7 + i, 19)) & "', [LOGDATE] = '" & Now() & "', [LOGID] = '" & Environ("Username") & "' WHERE [PO item] = '" & ActiveSheet.Cells(7 + i, 9) & "'"
   
    If Len(F_FilterData(ActiveSheet.Cells(7 + i, 16))) + Len(F_FilterData(ActiveSheet.Cells(7 + i, 17))) + Len(F_FilterData(ActiveSheet.Cells(7 + i, 18))) > 0 Then Call S_UpdateDataInDB(VsData)
Next i

MsgBox "Data has been saved"

和

Sub S_UpdateDataInDB(VsData)
Dim cnDB As New ADODB.Connection

VsDBPath = ThisWorkbook.Sheets("Settings").Range("B2").Value
VsTable = "KCD"
cnDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & VsDBPath & ";" & "Jet OLEDB:Engine Type=5;" & "Persist Security Info=False;"
cnDB.Execute ("UPDATE  " & VsTable & " " & VsData)
cnDB.Close

结束子 这里的区别是： 我只想为该特定单元格保存文本（“数据已确认”）。 因此，如果要确认第 8 行的数据并单击“数据确认”。它应该只在访问中保存第 8 行的“数据确认”。

Answer 1

通常，当我尝试向列中的每一行添加功能时，我会使用超链接。它可以整齐地放入单元格中，可以锚定到特定的单元格，并且还可以显示何时被跟踪（颜色发生变化）。我以一些代码为例进行了模拟；尝试使其适应您的应用程序，如果您需要帮助，请告诉我。

首先，在标准模块中，输入以下代码来创建超链接。据推测，您已将其嵌入到提取数据的代码中。

Sub PullData()
    Dim sh As Worksheet
    Dim lastRow As Long
    
    'Pull the data
    ' DO STUFF
    
    'Identify the range of the pulled data
    Set sh = Sheets("PulledData")
    lastRow = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
    
    'Loop from row 2 through last row
    For i = 2 To lastRow
        'Assuming the 'save' option is in Column c
        sh.Cells(i, "C").Hyperlinks.Add Anchor:=sh.Cells(i, "C"), Address:="", _
        SubAddress:="", TextToDisplay:="Click To Save"
    Next i
End Sub

接下来，在包含数据的工作表的工作表代码中，输入以下代码。这告诉应用程序在单击超链接时要做什么。我创建了一个假函数，旨在模拟保存数据。您可以根据需要更改此设置，或者如果它更适合您的需要，则使用其他设计。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    'Confirm that this is a hyperlink in column 3

    If Not Intersect(Target.Range, Columns(3)) Is Nothing Then
        MsgBox SaveData(Target.Range)
    End If
    
End Sub

Private Function SaveData(rng As Range) As Boolean
    Debug.Print rng.Address & " has been saved."
    SaveData = True
End Function