我的意思是如果我做一个窗体界面的话，可以添加一个删除按钮，当选中某一条记录的时候，单击删除按钮可以调用ADO或者用SQL删除掉数据库中的记录，但是我现在的数据显示界面是EXCEL界面，在EXCEL中提供了删除一行的命令，但是这条命令只是删除了工作表中的行，怎样才能自动的把数据库中对应的记录也删除掉呢？下面是我的存储数据的子函数
Public Function 存储数据() As Boolean
Dim myData As String, myTable As String
Dim WB As Workbook, WS As Worksheet
Dim i As Long, j As Long, n As Long, 列标 As Long
Dim strSQL As String
Dim rs As ADODB.Recordset
存储数据 = True
'设置保护
ActiveSheet.Protect contents:=True
myData = ThisWorkbook.Path & "\公交考勤.mdb"
myTable = strWorkSheetName
'临时添加在此处的函数调用，将来在主函数中调用此函数
'Call 连接数据库
'检查数据库是否存在，如果存在再继续
If Dir(myData) = "" Then
MsgBox "数据库不存在"
Exit Function
Else
Set WB = ThisWorkbook
Set WS = WB.Sheets(strWorkSheetName)
'---开始向数据表中添加数据-----
'frm保存数据.Show
n = WS.Range("a65536").End(xlUp).Row    '  获得要保存的记录的记录数(行数)
'添加一个函数确定要查找的卡号的列数
For i = 1 To WS.Range("IV1").End(xlToRight).Column
If WS.Cells(1, i).Value = Trim("卡号") Then
列标 = i
End If
Next i
For i = 2 To n
'在状态栏显示处理的进度
Application.StatusBar = "共计" & n - 1 & "条记录；正在处理第" & i - 1 & "条记录；还剩余" & n - i & "条记录"
'查询记录是否存在
strSQL = "select * from " & myTable & " where 卡号='" & WS.Cells(i, 列标).Value & "'"
Set rs = New ADODB.Recordset
rs.Open strSQL, CNN, adOpenKeyset, adLockOptimistic
If rs.EOF And rs.BOF Then
'如果不记录存在则添加
rs.AddNew
For j = 1 To rs.Fields.Count
rs.Fields(j - 1) = WS.Cells(i, j).Value
Next j
rs.Update
Else
'如果记录存在则更新
For j = 1 To rs.Fields.Count
rs.Fields(j - 1) = WS.Cells(i, j).Value
Next j
rs.Update
End If
Application.StatusBar = False
DoEvents
Next i
'应该在此处添加语句使excel的界面变成灰色的
'frm保存数据.Hide
MsgBox "数据保存完毕！", vbInformation
'取消保护
ActiveSheet.Unprotect
rs.Close
Set WB = Nothing
Set WS = Nothing
End If
Exit_Function:
Exit Function
Err_Handle:
存储数据 = False
MsgBox Err.Number & Err.Description
End Function

智能添加报表边框
如图所示为某企业的入库登记表。为了使报表更加美观，要求当入库行记录或备注列信息增加时，单元格边框自动扩展至新增的数据区域，可以通过条件格式配合公式实现，方法如下。
单击【工作表全选按钮】选定入库登记表的所有单元格区域。
在【开始】选项卡中依次单击【条件格式】→【新建规则】命令，如图所示。
在弹出的【新建格式规则】对话框中单击【使用公式确定要设置格式的单元格】按钮，
在 【 为 符 合 此 公 诗 的 值 摄 置 歌 诗 】 文 本 框 中 输 如"=($A1＜＞"")*(A$1＜＞"")"如图所示。
单击【格式】按钮。
在弹出的【设置单元格格式】对话框中单击【边框】选项卡，选择【颜色】为"蓝色"，选择一种线条样式，选择【外边框】，单击【确定】按钮，如图 所示。
返回【新建格式规则】对话框后，单击【确定】按钮，如图 所示。
设置完成后，当入库登记表行记录或列标题增加时，单元格边框自动扩展，如图所示。
公式解析：
全选工作表后当前活动单元格为A1，用"($A1＜＞"")"实现报表行记录增加时边框自动扩展，用"(A$1＜＞"")"实现报表列字段增加时边框自动扩展，"=($A1＜＞"")*(A$1＜＞"")"灵活运用混合引用实现当前单元格所在行的 A 列单元格及所在列的第一行同时不为空时显示边框，从而实现了智能添加报表边框。
就分析到这里吧，你学会了吗，如还想学习其他的知识点可以点击如：Excel视频教程可以学习更多的办公技能