excel图表制作制作具有数据导航功能的用户窗体
设计用户窗体
在VBE中，插入一个用户窗体，在其中添加文本框、按钮、标签等控件，如下图1所示。
图1
这个用户窗体中的控件及相应的名称如下：
用户窗体名称：ufEmployee用户窗体标题：员工记录在用户窗体中，从上至下，从左至右，创建下面的控件：员工ID文本框名称：tbxEEIDTag：Field0姓氏文本框名称：tbxLastNameTag：Field1名字文本框名称：tbxFirstNameTag：Field2出生日期文本框名称：tbxBirthDateTag：Field3雇用日期文本框名称：tbxHireDateTag：Field4命令按钮名称：cmdFirstCaption： <<Tag：ButtonFirst命令按钮名称：cmdPrevCaption： Tag：ButtonNext命令按钮名称：cmdLastCaption：Tag：ButtonLast
编写代码
下面，编写代码来管理这个用户窗体，即处理数据和用户窗体中的控件。
这个用户窗体需要6个事件：Initialize（当用户窗体打开时）、QueryClose（当用户窗体关闭时），以及每个命令按钮的单击事件。
需要使用事件代码将记录集的当前记录显示在文本框中、以及阻止用户错误操作，例如当处于第一条记录时单击命令按钮cmdPrev（<）。
在用户窗体模块中，声明两个模块级的变量：
Dim mADOCon As ADODB.ConnectionDim mADORs As ADODB.Recordset
使用模块级变量的原因是：当用户窗体开启时，Connection和Recordset对象在作用域内。
下面的过程使用记录集中当前记录的数据填充文本框。
Private Sub FillTextBoxes()Dim cTxtBx As ControlDim lFldNo As LongFor Each cTxtBx In Me.ControlsIf cTxtBx.Tag Like “Field*”ThenlFldNo = Mid(cTxtBx.Tag, 6)cTxtBx.Text = mADORs.Fields(lFldNo)End IfNext cTxtBxEnd Sub
记得前面在设计用户窗体时给文本框设置的Tag属性吗？接下来看看我们为什么设置这个属性。
上面的程序代码遍历用户窗体中所有的控件，如果控件具有像Field0、Field1、Field2等形式的标签（tag），就从记录集中获取与标签相同名称字段的数据来填充相应的文本框。当打开用户窗体或者单击任一按钮时，需要改变文本框来响应事件。因此，Initialize事件和四个按钮中任一按钮的单击事件都将调用上面的程序。在调用上面的程序之前，这些事件将首先设置当前记录。
上述程序代码的一个好处是，你可以添加和删除文本框，而无须修改代码。前提是只要正确填写了Tag属性，就会正确填充文本框。然而，不会检查来确保字段实际存在。例如，如果设置一个Tag为Field10，但记录集仅有9个字段，那就会弄混淆。在示例代码中，为了简单起见，我们不会创建这样明确的错误检查代码。
下面的程序代码控制命令按钮（CommandButtons）。假如已经到达第一条记录，我们不想提供给用户到达第一条记录或者前一条记录的按钮选项，因为已经是第一条记录，没有更前一条记录了。同样地，当前记录是最后一条记录时，禁用最后一条记录和下一条记录按钮。每次触发一个事件时，都要确保按钮响应当前的状态。
Private Sub DisableButtons(ParamArray aBtnTags() As Variant)Dim i As LongDim ctl As ControlFor Each ctl In Me.Controlsctl.Enabled = TrueFor i = LBound(aBtnTags) To UBound(aBtnTags)If ctl.Tag = aBtnTags(i) Thenctl.Enabled = FalseExit ForEnd IfNext iNext ctlEnd Sub
对于上面的程序，使用了ParamArray参数，可以发送任意数量想要禁用的按钮的名称。例如，如果想禁用第一个和前一个按钮，就可以像下面这样调用该程序：
DisableButtons “ButtonFirst”, “ButtonPrev”
除了传递给参数的按钮外，每个按钮都可用，即能被用户单击。如果不带任何参数调用该程序，那么所有的按钮都是可用的。该程序遍历用户窗体中的所有按钮，将其Tag属性与参数列表对比，如果发现匹配则禁用该控件。该程序不会区分文本框、命令按钮或任何其它类型的控件。你只需确保使用了正确的Tag属性，以免禁用了你不想禁用的控件。
现在，创建记录集，确保使用有用的信息来填充文本框。
无论用户窗体在什么时候打开都会触发Initialize事件，此时适合创建记录集。这样，无论何时用户窗体显示，我们都知道有可用的记录集存在。
Private Sub UserForm_Initialize()DimsConn As StringDim sSQL As StringDim sDbPath As StringDim sDbName As String‘存储数据库的路径和名称‘可以修改为你自已的路径和名称sDbPath =”C:\Users\Administrator\Documents\”sDbName = “Northwind”‘存储连接字符串sConn = “DSN=MS Access Database;”sConn = sConn & “DBQ=” &sDbPath & “” & sDbName & “.mdb;”sConn = sConn & “DefaultDir=”& sDbPath & “;”sConn = sConn &”DriverId=281;FIL=MS Access;MaxBuffersize=2048;PageTimeout=5;”‘存储SQL语句sSQL = “SELECT 雇员.雇员ID,雇员.姓氏,”sSQL = sSQL & “雇员.名字,雇员.出生日期,雇员.雇用日期 “sSQL = sSQL & “FROM ” &sDbPath & “” & sDbName & “.mdb” & “.雇员” ‘此处要注意如果路径中有空格则需添加单引号来引用‘创建新的连接和记录集Set mADOCon = New ADODB.ConnectionSet mADORs = New ADODB.RecordsetmADORs.CursorLocation = adUseClient‘打开连接和记录集mADOCon.Open sConnmADORs.Open sSQL, mADOCon, adOpenDynamic‘到第一条记录mADORs.MoveFirst‘调用特定目的的过程FillTextBoxesDisableButtons “ButtonFirst”,”ButtonPrev”End Sub
这个程序的大部分代码是设置字符串，那些烦人的连接字符串和SQL语句是难以编写的。其中一种方法是在Excel中创建外部数据表（数据>获取外部数据），然后读取Connection和CommandText属性。接着，做一些修改，例如从连接字符串中移除ODBC以及使用变量代替数据库信息。一旦建立了外部数据表，可在立即窗口输入：
Print Sheet1.QueryTables(1).ConnectionPrint Sheet1.QueryTables(1).CommandText
将获得两个长字符串，可以将其复制并粘贴到代码中。也可以像上面程序中一样，将代码分成几个字符串。
当关闭用户窗体时，将触发QueryClose事件。如果用户窗体不打开，就不需要记录集，因此在该事件中要将其释放并清空内存。
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)mADORs.ClosemADOCon.CloseSet mADORs = NothingSet mADOCon = NothingEnd Sub
下面，介绍如何编写命令按钮代码，使记录来回移动。
基本上有两类命令按钮，一类按钮到达记录集的两端即第一条记录和最后一条记录，一类按钮一次移动一条记录。所有的四个命令按钮都做三件事：使正确的记录为当前记录、调用FillTextBoxes过程和调用DisableButtons过程。“移动一条记录”按钮有一个额外的步骤，即决定哪条记录是当前记录。如果是第一条或最后一条记录，需要禁用不同的命令按钮。
Private Sub cmdFirst_Click()mADORs.MoveFirstFillTextBoxesDisableButtons “ButtonFirst”,”ButtonPrev”End SubPrivate Sub cmdLast_Click()mADORs.MoveLastFillTextBoxesDisableButtons “ButtonLast”,”ButtonNext”End SubPrivate Sub cmdNext_Click()mADORs.MoveNextFillTextBoxesIf mADORs.AbsolutePosition =mADORs.RecordCount ThenDisableButtons “ButtonLast”,”ButtonNext”ElseDisableButtonsEnd IfEnd SubPrivate Sub cmdPrev_Click()mADORs.MovePreviousFillTextBoxesIf mADORs.AbsolutePosition = 1 ThenDisableButtons “buttonFirst”,”ButtonPrev”ElseDisableButtonsEnd IfEnd Sub
上述程序代码中， MoveNext方法、MoveFirst方法、MovePrevious方法和MoveLast方法都是Recordset对象的方法。
最终的效果如下图2所示。
图2
注意，如果你运行这个用户窗体出现错误，检查一个是否在VBE中设置了对Microsoft ActiveXData Objects 2.X Library的引用；或者是否Initialize事件中对数据库的引用路径和名称有误。
~
excel中的建立一个数据表(存放在B2:G13是什么意思
答：e xcel中的B2，你注意看下 B为列，数字2为行 B2就是B和2交叉的地方，同理G13你也明白了 那么B2：G13就是从B2到G13用鼠标脱动的这个区域了
Excel图表坐标轴如何设置为日期
答：xcel中将数据设置为图表的时候，发现日期和数据对不上，该怎么将坐标轴设置为制定日期呢?下面就跟我一起看看吧。Excel 图表坐标轴设置为日期的 方法 一 通过选择数据来实现坐标轴的设置 1、点击图表工具——选择数据，来实现坐标轴的设置。2、如图所示，更改轴标签区域，选择日期，来...
如何设置Y轴刻度个数
答：1、打开Excel，在excel表格中根据数据插入一张图表，可以看到此时纵坐标轴的刻度为“7”，这里纵轴就是说的Y轴，其刻度个数是7。2、选中纵坐标轴的位置，点击鼠标右键，在弹出的选项中找到并点击“设置坐标轴格式”。3、然后在页面右侧会打开坐标轴设置窗口，可以看到此时坐标轴最大值为“7”。4、...
EXCEL中下拉选框切换
答：在EXCEL2007中如何做一个下拉选框,切换几个不同的表格出来?比如我一堆数据,有表格汇总,图表分析,想用一个下拉框中两个选项来切换。... 在EXCEL2007中如何做一个下拉选框,切换几个不同的表格出来?比如我一堆数据,有表格汇总,图表分析,想用一个下拉框中两个选项来切换。 展开 ...
xps分峰软件怎么加不了背景
答：需要你用XPS Peak软件对所得的Si2p峰进行分峰，也就是用2个或者3个或者更多的高斯峰来拟合所得的测试曲线，根据每一个高斯峰的面积，来去定Si元素中有多少与O结合形成Si-O键，有多少与N结合形成Si-N键。?1、Excel中的数据转换成TXT格式__xcel中的数据只选择要进行拟合的数据点，copy至txt文本中...
ppt里面的图表为什么显示不了
答：不应该呀！是不是你的图表没有数据？可能你的数据表是空的。新建一张幻灯片，插入一个图表，选择图标类型，双击编辑区域，会出现一个“数据表”，看到后就一目了然，想要怎么编辑就随意了。。。（如果编辑好了图表，但是不显示，你可以双击编辑区域，确认你真的是已经插入了图表）...
PPT数据图表无法动起来的原因有什么?
答：在弹出的“插入图表”窗口左侧的列表框中选择图表类型，然后在右侧礼包中选择子类型，点击“确认”按钮。此时，会自动启动Excel，让用户在工作吧的单元格中直接输入数据。更改工作表中的数据，PowerPoint的图表会自动更新。_乇_xcel，然后用户可以利用“设计”选项卡中的“图表布局”工具与“图表样式”工具...
李彪编著的excel书有哪些
答：全书共12章，分基础部分和案例应用部分。基础部分介绍软件必备操作技巧（包括Excel 2003基础操作；如何处理工作表；公式、函数和图表的使用；管理和分析数据清单）；案例应用部分介绍F，xcel 2003在实际工作中的典型应用（包括提货单的制作；商品成本表的制作；月份收益检核表的制作；差旅支出记录表的制作；...
电子商务专员岗位职责及能力要求
答：2、有批发/零售行业会计经验、电子商务财务实践(核算、往来帐管理、成本费用管理、报表管理)经验,了解电子商务业务运作模式; 3、处理电商总账财务业务的能力; 4、熟悉财务软件(金碟、用友或其他),有操作过ERP系统,有较强的财务信息预测、统计、分析能力; 5、xcel操作熟练(熟练操作透视表、图表分析、简单函数应用); ...
电子商务岗位职责
答：2、有批发/零售行业会计经验、电子商务财务实践(核算、往来帐管理、成本费用管理、报表管理)经验,了解电子商务业务运作模式。 3、处理电商总账财务业务的能力。 4、熟悉财务软件(金碟、用友或其他),有操作过ERP系统,有较强的财务信息预测、统计、分析能力。 5、xcel操作熟练(熟练操作透视表、图表分析、简单函数应用)...
