你目前正处于脱机状态,正在等待 Internet 重新连接

如何将数据添加到组合框控件或在 Excel 或 Word 中的列表框控件

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版: 161598
对于在 Microsoft Excel 的 Mac 版本的这篇文章,请参阅185388
概要
本文介绍的方法的填充组合框或列表框控件。
更多信息
Microsoft 提供编程示例只用于说明,没有任何明示或暗示的担保。 这包括,但不限于对适销性或特定用途适用性的暗示的担保。 本文假定您熟悉与正在演示了的编程语言以及用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释某个特定的过程的功能,但他们不会修改这些示例以提供附加的功能或构建过程以满足 特定要求。

有关可用的支持选项以及如何与 Microsoft 联系的详细信息,请访问下面的 Microsoft 网站:您可以使用如组合框或一列表框的控件在用户窗体上的 。 在 Microsoft Excel 中,您可以使用这些控件在工作表中。 在填充该控件的方法很相似。 在本文中的示例使用用户窗体上的控件。

方法 1: 如何链接到一个 Excel 工作表上的单元格的组合框或列表框

  1. 创建一个新的工作簿在 Excel 中。 在 Sheet1 中,键入以下内容:
          A1: One     B1: Red      A2: Two     B2: Green      A3: Three   B3: Yellow      A4: Four    B4: Blue					
  2. 请按 ALT + F11 启动 Microsoft Excel Visual 基本编辑器。
  3. 上该插入单击菜单,用户窗体
  4. 创建一个组合框控件和列表框控件上的用户窗体。
  5. 如果看不到属性窗口中单击属性窗口上该视图菜单
  6. 单击该组合框并滚动到行来源中将属性窗口

    窗口分为两部分。 左部分中包含该控件的属性的名称。 右部分中包含属性的值。 单击行来源和类型的右部"sheet1! a1:a4"(不带引号)
  7. 单击该列表框并滚动到行来源属性窗口中。 单击行来源和类型的右部"sheet1! b1:b4"(不带引号)

    : 如果省略了表引用从工作表处于活动状态时运行用户窗体中的单元格数据填充组合框和列表框控件。 若要确保始终使用同一工作表中的数据进行填充用户窗体,包括表引用的示例所示。 若要填充用户窗体是活动工作表中的数据,不包括在行来源中的表引用。 当执行此操作时该宏使用活动工作表中的数据填充用户窗体。
  8. 运行通过单击用户窗体运行然后单击运行子过程/用户窗体
一、 二、 三和四出现在组合框控件中 ; 和红、 绿、 黄色,和蓝色显示在列表框控件。

Methdod 2: 如何使用 Visual Basic 宏来填充组合框或列表框

  1. 打开一个 Microsoft Office 应用程序,例如 Microsoft Excel 或 Word。
  2. 按 ALT + F11 启动 Visual Basic 编辑器。
  3. 上该插入单击菜单,用户窗体
  4. 在用户窗体上的 创建组合框和列表框控件。
  5. 用鼠标右键单击用户窗体,然后单击查看代码。 此时将显示用户窗体的代码窗口。 单击初始化中将过程(右侧) 的列表

    自动输入该子例程的第一个和最后一个行,并自动将插入点放在之间这些两行。
  6. 键入下面的代码:
          ListBox1.List = Array("One", "Two", "Three", "Four")      ComboBox1.List = Array("Red", "Green", "Yellow", "Blue")						
    此代码应显示"Sub UserForm_Initialize()"和"End Sub"行间距
  7. 上该运行单击菜单,运行子过程/用户窗体若要运行用户窗体。
一、 二、 三和四个显示在列表框控件中 ; 和红、 绿、 黄色,和蓝色显示在组合框控件。
参考
用户窗体有关的详细信息,请单击该索引Microsoft Visual Basic 帮助中选项卡中,键入以下文本:
用户窗体对象
然后双击所选的文本以转到"用户窗体对象"主题。
XL97 97 userform 用户窗体组合框列表 vba

属性

文章 ID:161598 - 上次审阅时间:08/19/2010 16:38:00 - 修订版本: 1.0

Microsoft Excel 2002 标准版, Microsoft Word 2002 标准版, Microsoft Excel 2000 标准版, Microsoft Word 2000 标准版, Microsoft Excel 97 标准版, Microsoft Word 97 标准版, Microsoft Word 2010, Microsoft Office Word 2007, Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007, Microsoft Office Word 2003

  • kbcontrol kbdtacode kbhowto kbprogramming kbmt KB161598 KbMtzh
反馈
.microsoft.com/ms.js"> src="https://c.microsoft.com/ms.js">