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

问题描述

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

由于某些数据没有更改，因此我们不知道工程师是否没有查看数据或值没有更改。我要实现的是某种“确认”按钮，因此我们知道显示的值实际上已经确认。

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

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

我目前有一些代码可将Excel数据保存在Access中，但它不能以当前形式运行：

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行保存“数据确认”。

解决方法

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

首先，在标准模块中，输入以下代码以创建超链接。大概是将其嵌入到提取数据的代码中。

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