大家好，我们今天继续讲解VBA数据库解决方案，今日讲解的是第80讲:工作表数据与UserForm窗口的交互过程中：如何对显示的记录进行编辑和保存。在前几讲中，我们实现了将工作表的数据传给UserForm窗口，实现的开始记录、下一条记录最后记录的显示，我们今日继续讲解如何实现编辑和保存记录。前几讲是查找与显示，查找的目的是为了编辑。
思路：①在UserForm窗口上，设置显示编辑和保存按钮，用于指令的下达。
②在弹出UserForm窗口后，EXCEL文件要隐藏。
③要考虑到按钮之间的作用，此按钮要在开始按钮按过之后才可以响应动作。同时窗口上可以显示的按钮还有"显示下一条记录"和"显示最后记录"按钮
下面我们首先实现UserForm窗体：在上一讲的基础上我这次增加的是"编辑"和"保存"按钮：
下面看代码的实现：
1 从EXCEL窗口进入人机交互窗口：
Sub mynzRecords_80() '将工作表数据变成记录集，并实现编辑和保存
Application.Visible = False
UserForm1.Show
End Sub
代码解释：上述代码完成从EXCEL界面到人机交互UserForm窗体，这时的Application.Caller是5.
2 窗体加载时设置相关的属性代码：If Right(Application.Caller, 1) = 5 Then '显示编辑记录
UserForm1.CommandButton1.Enabled = False '下一条记录
UserForm1.CommandButton4.Enabled = False '最后一条记录
UserForm1.CommandButton5.Enabled = False '编辑记录
UserForm1.CommandButton7.Enabled = False '查找记录
UserForm1.CommandButton8.Enabled = False '删除记录
UserForm1.CommandButton6.Enabled = False '保存记录
UserForm1.CommandButton9.Enabled = False '录入记录
UserForm1.TextBox1.Enabled = False
UserForm1.TextBox2.Enabled = False
UserForm1.TextBox3.Enabled = False
End If
代码解释：上述代码设置了各个按钮的必要属性，大家要注意，由于涉及到保存记录，这里的TextBox 的Enabled属性设置为False.
3 "编辑"按钮响应代码：
Private Sub CommandButton5_Click() '编辑
MsgBox ("请修改记录！")
UserForm1.TextBox2.Enabled = True
UserForm1.TextBox3.Enabled = True
UserForm1.CommandButton6.Enabled = True '保存记录
End Sub
代码解释： 点击"编辑"按钮后弹出对话框，要求和用户确认，得到认可后把TextBox2.Enabled，TextBox3.Enabled， CommandButton6.Enabled的属性修改为True，这时就用户可以编辑了与保存了。
4 "保存"按钮响应代码：
Private Sub CommandButton6_Click() '保存
If UserForm1.TextBox1.Value = "" Or UserForm1.TextBox2.Value = "" Or UserForm1.TextBox3.Value = "" Then MsgBox "信息有空值，请确认！": Exit Sub
If MsgBox("是否要保存记录？

	

工作中遇到要做一些excel模板，让用户编辑时候，可以很好的避免脏数据的产生，比如开始时间、结束时间的时间格式的控制，结束时间应该大于开始时间。这个时候我们通常都会用数据有效性来控制。下面我做了个列为分数的例子说明，分数通常应该在0-100分之间，那么通过数据有效性很容易控制。
那么问题来了，等用户准备把先前录入的表格数据复制粘贴在这一列时，发生了什么事，下面视频为了方便看，复制后面一列数据演示。
 呃，bug出现了，复制粘贴让数据有效性失效了，那么要解决这个问题，希望实现能对复制粘贴这种操作也弹框提醒，避免录入脏数据的情况。实现下面这样的效果。怎么做呢，看视频演示步骤：
打开开发工具---->VB编辑器，双击sheet1，将VBA代码复制进去，保存。取消单元格锁定，将工作表设为保护工作表，即可实现。
那么，对这个小技巧感兴趣的小伙伴关注公众号发送“20201128”，即可获得下载链接。

Excel、Word、PowerPoint作为最常用的办公软件，常常只会一种是不够用的，三者之间经常相互联系使用，使得办公更得力高效。今天让我们来看看如何将Excel与Word两个相互使用。
在网上发布Excel生成的图形
Excel的重要功能之一就是能快速方便地将工作表数据生成柱状、圆饼、折线等分析图形。
要想在Web发布这类以及用于报表装饰示意类图形，首先单击“工具→选项”命令，在“常规”中选择“Web选项”，选择是否采用便携网络图形格式(PNG)存储文件，以加快下载速度和减少磁存储空间，但要注意这一格式图形文件将要求浏览器支持，并非对所有浏览器都合适。
如果未选择PNG图形格式，Excel会自动选择并转换为GIF、JPG格式文件，并创建名为“文件名files”的子文件夹来保存转换过的图形。
例如，如果文件名为“dog.htm”，则Excel将创建名为“dog/files”的子文件夹。Excel也会支持文件指定文件名，例如“image01.jpg”和“image02.jpg等。
若在Web发布时选中图表的“选择交互”选项框，则生成的Web页面将保留Excel的图形与表格数据互动的功能，即页面中显示数据表格和对应分析图形，用户如果改变表格中的数据，则对应图形随之发生改变。但要注意的是，这一交互并不能刷新存放在服务器端的数据表数据，如果你需要刷新或修改服务器端的数据，则须利用VB等编制脚本程序。 
创建图表连接符
当你绘制了一些基本图表以后，经常需要用直线、虚线和箭头来连接它们，并说明图表中的关系。
Excel 2002提供了真正的图表连接符，这些线条在基本形状的预设位置保持连接，当你移动基本形状时，连接符与它们一起移动，而不需要你手工绘制它们。
要创建连接符，可按以下步骤进行:首先绘制需要连接的基本性状。在“绘图”工具栏上单击“自选图形”按钮，选择“连接符”，并选中需要使用的连接符类型。
鼠标指针将变成带有4条放射线的方形，当鼠标停留在某个形状上，形状上预先定义的连接点将变成边界上彩色的点，单击希望连接符连接的点。然后在另一形状的连接点上重复这个过程。 
将Excel单元格转换成图片形式插入到Word中 
假如要把Excel中某些单元格区域转换成图片形式，可先选中要进行转换的单元格区域，然后按住Shift键，单击“编辑→复制图片”命令，在弹出的“复制图片”对话框中，可选择“如屏幕所示”和“如打印效果”两种显示方式（图1），如果选择“如屏幕所示”，还可以进一步选择“图片”和“位图”两种格式。在这里选择“如屏幕所示”和“图片”单选按钮，单击“确定”按钮。然后进入Word中，单击“编辑→粘贴”命令，即可将选中的Excel单元格区域以图片形式粘贴过来。 如果用户没用添加表格框线，那么选择“如打印效果”后，在进行“粘贴图片”操作后图片中没有边框;如果选择“如屏幕所示”选项，“粘贴图片”操作后，图片会有和屏幕显示一样的边框。
将Word内容以图片形式插入到Excel表格中 
如果要把Word中的某一段内容以图片形式插入到Excel表格中，可按照下步骤进行:首先在Word中选中要复制的内容，然后单击“编辑→复制”命令，进入Excel中，按住Shift键，单击“编辑→粘贴图片”命令，即可将刚才复制的内容以图片格式插入到Excel表格中，而且在该图片上双击，还可进行文字修改。利用这种方法也可以把“记事本”等其他程序中的内容以图片格式粘贴到Excel中。 
将Word中的内容作为图片链接插入Excel表格中 
首先在Word中选中要复制的内容，然后单击“编辑→复制”命令，进入Excel中，按住Shift键，单击“粘贴→选择性粘贴→图片（增强型图元文件）”命令可将选中内容作为一个图片链接插入Excel中。

大家好，我们今天继续讲解VBA数据库解决方案，今日讲解的是第80讲:工作表数据与UserForm窗口的交互过程中：如何对显示的记录进行编辑和保存。在前几讲中，我们实现了将工作表的数据传给UserForm窗口，实现的开始记录、下一条记录最后记录的显示，我们今日继续讲解如何实现编辑和保存记录。前几讲是查找与显示，查找的目的是为了编辑。
思路：①在UserForm窗口上，设置显示编辑和保存按钮，用于指令的下达。
      ②在弹出UserForm窗口后，EXCEL文件要隐藏。
      ③要考虑到按钮之间的作用，此按钮要在开始按钮按过之后才可以响应动作。同时窗口上可以显示的按钮还有“显示下一条记录”和“显示最后记录”按钮
下面我们首先实现UserForm窗体：在上一讲的基础上我这次增加的是“编辑”和“保存”按钮：
下面看代码的实现：
1 从EXCEL窗口进入人机交互窗口：
Sub mynzRecords_80() '将工作表数据变成记录集，并实现编辑和保存
Application.Visible = False
UserForm1.Show
End Sub
代码解释：上述代码完成从EXCEL界面到人机交互UserForm窗体，这时的Application.Caller是5.
2 窗体加载时设置相关的属性代码：
If Right(Application.Caller, 1) = 5 Then '显示编辑记录
   UserForm1.CommandButton1.Enabled = False '下一条记录
   UserForm1.CommandButton4.Enabled = False '最后一条记录
   UserForm1.CommandButton5.Enabled = False '编辑记录
   UserForm1.CommandButton7.Enabled = False '查找记录
   UserForm1.CommandButton8.Enabled = False '删除记录
   UserForm1.CommandButton6.Enabled = False '保存记录
   UserForm1.CommandButton9.Enabled = False '录入记录
     UserForm1.TextBox1.Enabled = False
     UserForm1.TextBox2.Enabled = False
     UserForm1.TextBox3.Enabled = False
End If
代码解释：上述代码设置了各个按钮的必要属性，大家要注意，由于涉及到保存记录，这里的TextBox 的Enabled属性设置为False.
3 “编辑”按钮响应代码：
Private Sub CommandButton5_Click() '编辑
MsgBox ("请修改记录！")
UserForm1.TextBox2.Enabled = True
UserForm1.TextBox3.Enabled = True
UserForm1.CommandButton6.Enabled = True '保存记录
End Sub
代码解释： 点击“编辑”按钮后弹出对话框，要求和用户确认，得到认可后把TextBox2.Enabled，TextBox3.Enabled， CommandButton6.Enabled的属性修改为True，这时就用户可以编辑了与保存了。
4 “保存”按钮响应代码：
Private Sub CommandButton6_Click() '保存
If UserForm1.TextBox1.Value = "" Or UserForm1.TextBox2.Value = "" Or UserForm1.TextBox3.Value = "" Then MsgBox "信息有空值，请确认！": Exit Sub
If MsgBox("是否要保存记录？", vbOKCancel, "提示") = vbCancel Then Exit Sub
Dim cnADO, rsADO As Object
Dim strPath, strSQL As String
Dim myData() As Variant
    Set cnADO = CreateObject("ADODB.Connection")
    Set rsADO = CreateObject("ADODB.Recordset")
    strPath = ThisWorkbook.FullName
    cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=0';" _
    & "data source=" & strPath
     strSQL = "SELECT * FROM [数据7$]"
     rsADO.Open strSQL, cnADO, 1, 3
     If UserForm1.TextBox1.Enabled = False Then '编辑的保存
     If rsADO.RecordCount > 0 Then rsADO.MoveFirst
     Do While Not rsADO.EOF
         If Trim(rsADO.Fields(0)) = UserForm1.TextBox1.Value Then
         rsADO.Fields(1) = UserForm1.TextBox2.Value
         rsADO.Fields(2) = UserForm1.TextBox3.Value
         rsADO.Update
         GoTo 100
         End If
     rsADO.MoveNext
     Loop
100:
     UserForm1.TextBox1.Enabled = False
     UserForm1.TextBox2.Enabled = False
     UserForm1.TextBox3.Enabled = False
     UserForm1.CommandButton6.Enabled = False
     MsgBox ("保存OK！") 
Else '录入的保存 
      If rsADO.RecordCount > 0 Then
       Do While Not rsADO.EOF
         If Trim(rsADO.Fields(0)) = UserForm1.TextBox1.Value Then MsgBox "员工编号重复，请确认！": GoTo 110
         rsADO.MoveNext
       Loop
    End If
    rsADO.AddNew
         rsADO.Fields(0) = UserForm1.TextBox1.Value
         rsADO.Fields(1) = UserForm1.TextBox2.Value
         rsADO.Fields(2) = UserForm1.TextBox3.Value
    rsADO.Update
110:
     UserForm1.TextBox1.Value = ""
     UserForm1.TextBox2.Value = ""
     UserForm1.TextBox3.Value = ""
     UserForm1.TextBox1.SetFocus
      MsgBox ("保存OK！")
  End If
    rsADO.Close
    cnADO.Close
    Set rsADO = Nothing
    Set cnADO = Nothing
End Sub
代码解释：保存的时候有两种情况：一个是后面讲到的的录入数据后的保存；一个是修改记录的保存，两者的有所区别，这里是用TextBox1.Enabled的属性作为判断的依据，保存的代码是rsADO.Update
.这里要特别注意的是数据库在连接时的设置：imex=0。
4  在“开始”按钮中相关代码：
If Right(Application.Caller, 1) = 5 Then  '编辑记录
    UserForm1.CommandButton1.Enabled = True
    UserForm1.CommandButton4.Enabled = True
    UserForm1.CommandButton5.Enabled = True
End If
代码解释： 当按下“开始”按钮后的按钮1、4、5才能响应动作。
下面看代码的截图：
代码的运行：
 在工作表数据与UserForm窗口的交互中，如何实现记录的编辑和保存
今日内容回向：
1  如何实现记录的编辑和保存？
2  连接ADO连接EXCEL中，为了实现编辑和保存要进行什么设置？