链接用户窗体与工作表.docxVIP

链接用户窗体与工作表 前言在使用 Excel 时，很多用户都希望有一个合适的数 据输入窗体，在该窗体中输入数据后，这些数据会自动放置 在工作表的相应单元格中，或者将工作表中的数据提取到窗 体中便于直接查看。 我整理了 Dick 有关这方面技术的一系列 文章，在这里与大家分享。 演示—— Excel 的记录单 Excel 提供了一个名为 #8220;记录单 #8221;的功能，用来 让用户在窗体中输入数据并将数据放入工作表相应位置。如 图 1 所示，单击 #8220; 数据——记录单 #8221; ，调出相应 的对话框。（在 Excel 2007 中，单击 #8220;Office 按钮—— Excel 选项 #8221;，在 #8220;Excel 选项 #8221;对话框中 选择 #8220; 自定义——不在功能区中的命令（或所有命令） #8221; ，选择 #8220; 记录单 #8221; 并单击添加将其添加 至快速访问工具栏） 。图 1：Excel 的#8220; 记录单 #8221; 此时，可以在对话框中输入相应的数据，单击 #8220; 新建 #8221; 按钮后，所输入的数据会放置到工作表中。然而， 记录单有很大的局限，它限制用户能够做的事情并且不能完 全定制。 注意，要调出 #8220; 记录单 #8221; 对话框，必须将活动单 元格置于列表区域内。如果列表字段多于 32 个，将不能使 用#8220; 数据——记录单 #8221; 命令， 用户必须直接在工 作表中输入数据。 此外， John Walkenback 还开发了一个优秀的记录单增强版 本，有兴趣的朋友可以在网上找到该插件。这个增强版本的 记录单能够满足绝大多数 Excel 用户的需要。 与工作表相链接的用户窗体 下面介绍的不是一个通用目的的数据记录单，而是为特定的 数据库建立的数据录入窗体。其主要目的是为了说明用户可 以使用用户窗体定制满足自身实际情况的输入和显示窗体。 用户窗体设计 本示例的工作表如图 1 所示，包含人员的联系信息。本示例 采用的用户窗体如图 2 所示，用来输入和编辑信息。该窗体 共有 6个标签控件， 3个文本框控件， 2 个组合框控件， 2个 按钮控件， 1 个滚动条控件。 其中滚动条控件用来导航记录。 图 2 ：数据输入窗体设计 将上面的窗体命名为 UContact，其中各控件的名称和 Tag属 性分别为： 名称(Tag属性) txtName(0) cmbXb(1) txtAddress(2) txtCity(3) cmbState(4) txtZip(5) scbContact() cmdSave() cmdClose() lblName() lblXb() lblAddress() lblCity() lblState() lblZip() 其中， Tag 属性指出了工作表中数据相对于列 A 的偏移量 例如，txtName的Tag属性为0,表明在其中输入的数据就在 A列。括号中为空表明该控件没有设置 Tag属性。 装载用户窗体时 下面的过程在用户窗体装载时，从工作表中读取数据并填充 窗体中的相应控件。 #160; Private Sub PopulateRecord() Dim lRow As Long Dim ctlInfo As Control 存储当前记录所在的行 lRow = Me.scbContact.Value With wksContacts.Range(A1) 遍历控件 For Each ctlInfo In Me.Controls 如果 Tag 属性为数值，则该控件是数据输入控件 If IsNumeric(ctlInfo.Tag) Then 从工作表中获取数据 ctlInfo.Text = .Offset(lRow, ctlInfo.Tag).Value End If Next ctlInfo End With 标记清除的记录 Me.IsDirty = False End Sub 其中，wksContacts为工作表的对象名称。 使用Tag属性存储 每个字段相对于列 A 的偏移量，并且使用 IsNumeric 函数进 行测试，以方便以后对窗体的扩展，例如当设置 Tag属性为 字符串型时。 代码最后一行中的 IsDirty 属性将在随后的内容 中讨论。 将用户窗体中的数据输入到工作表 下面的过程与刚讲述的过程几乎相同，只是数据传输的方向 相反，即将用户窗体中的数据输入到工作表相应的单元格 中。 #160; Private Sub SaveRecord(Optional ByVal lOffset As Long = 0) Dim lRow As Long Dim ctlInfo As Control 存储当