VBA 代码段汇集[不断的更新中]

民扬

VBA控件常规使用--ListBox 控件(二)

如何使用 RowSource 属性来填充工作表上以 ListBox 控件

要使用 RowSource 属性来填充工作表, 上 ListBox 控件从范围的单元格请按照下列步骤：

1. 启动 Excel, 并打开新空白工作簿。

2. 在单元格 A 1: A 5Sheet, 键入了您要用于填充 ListBox 控件值。

3. 在 工具 菜单, 指向宏 , 然后单击 VisualBasic 编辑器 。

4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。

5. 将 ListBox 控件添加到 UserForm。

6. 将 CommandButton 控件添加到 UserForm。

7. 双击以显示代码窗口对于UserForm CommandButton 控件。

8. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码：

Private Sub CommandButton1_Click()

            ListBox1.RowSource= "=Sheet1!A1:A5"

            EndSub

9. 在 运行 菜单上, 单击运行子过程 / 用户窗体 。

注意 ListBox 1 不包含任何值。

10. 单击CommandButton 1 。

ListBox 1 填充单元格 A1: A 5 Sheet 中有值。

如何填充一个 ListBox 控件数组中有值

下例显示您如何填充以数组 ListBox 控件。 数组中每次为 ListBox 控件项必须分配值。 通常, 此过程要求您使用循环结构, 如 ForàNext 循环。 要填充以数组, ListBox 控件请按照下列步骤操作：

1. 启动 Excel, 并打开新空白工作簿。

2. 在 工具 菜单, 指向宏 , 然后单击 VisualBasic 编辑器 。

3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。

4. 将 ListBox 控件添加到 UserForm。

5. 在 插入 菜单上, 单击要插入模块表模块 。

6. 在代码窗口, 键入如下代码：

Sub PopulateListBox()

            DimMyArray As Variant

            DimCtr As Integer

            MyArray= Array("Apples", "Oranges", "Peaches","Bananas", "Pineapples")

            ForCtr = LBound(MyArray) To UBound(MyArray)

            UserForm1.ListBox1.AddItemMyArray(Ctr)

            Next

            UserForm1.Show

            EndSub

7. 然后单击 运行 在 工具 菜单上,、 " PopulateListBox , 和 宏 。

PopulateListBox 过程建立简单数组, 并数组中通过使用 AddItem 方法添加到 ListBox 控件项目。 然后, UserForm 出现。

如何使用工作表上水平的单元格区域来填充一个 ListBox 控件

如果将 ListBox 控件的RowSource 属性到水平区域的单元格, ListBox 控件中第一个值只会出现。

要通过使用 AddItem 方法,ListBox 控件从水平区域的单元格填充请按照下列步骤操作：

1. 启动 Excel, 并打开新空白工作簿。

2. 在单元格 A1:E1Sheet, 键入了您要用于填充 ListBox 控件值。

3. 在 工具 菜单, 指向宏 , 然后单击 VisualBasic 编辑器 。

4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。

5. 将 ListBox 控件添加到 UserForm。

6. 在 插入 菜单上, 单击要插入模块表模块 。

7. 在代码窗口, 键入如下代码：

Sub PopulateListWithHorizontalRange()

            ForEach x In Sheet1.Range("A1:E1")

            UserForm1.ListBox1.AddItemx.Value

            Next

            UserForm1.Show

            EndSub

8. 然后单击 运行 在 工具 菜单上,、 " PopulateListWithHorizontalRange , 和 宏 。

在单元格 A 1: E 5 Sheet, 将值添加到 ListBox 1 一次循环宏过程。

A 1: E 5 单元 注意ListBox 1 与不定 Sheet 1 上。

如何从 ListBox 控件绑定到多列的数据返回多个值

您可以格式 ListBox 控件以显示多个列的数据。 这意味着 ListBox 控件， 每个列表行上显示多个项目。 要多值列表, 中选定项收益请按照下列步骤操作：

1. 启动 Excel, 并打开新空白工作簿。

2. Sheet 由该单元格中键入以下数据：

A 1: 年 B 1: 区域 C1: 销售

A 2: 1996 B: 北美 C2:140

3： 1996 B 3: 南非 C 3: 210

A 4: 1997 B4: 北美 C4: 190

A5: 1997 B 5: 南非 C5: 195

3. 在 工具 菜单, 指向宏 , 然后单击 VisualBasic 编辑器 。

4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。

5. 将 Label 控件添加到 UserForm。

6. 将 ListBox 控件添加到 UserForm。

7. 右击 ListBox , 然后单击属性 。

8. 键入或选择值， 都表示为下列属性对 ListBox 控件与下表中列出：

   Property      Value

            ----------------------------

            BoundColumn    1

            ColumnCount    3

            ColumnHeads    True

            RowSource      Sheet1!A2:A5

9. 双击 ListBox 控件以显示代码窗口对 ListBox 控件。

10. 在代码窗口, 键入如下代码：

Private Sub ListBox1_Change()

            DimSourceData As Range

            DimVal1 As String, Val2 As String, Val3 As String

            SetSourceRange = Range(ListBox1.RowSource)

            Val1= ListBox1.Value

            Val2= SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value

            Val3= SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value

            Label1.Caption= Val1 & " " & Val2 & " " & Val3

            EndSub

11. 在 运行 菜单上, 单击运行子过程 / 用户窗体 。

当您单击 ListBox 控件, 中一个条目标签将更改为显示该条目中所有三个项目。

民扬

VBA控件常规使用--ListBox 控件(三)

如何从绑定到工作表 ListBox 控件中删除所有项目

要从 ListBox 控件绑定到工作表,删除所有项目清除， 是存储在 RowSource 属性值。 要从 ListBox 控件绑定到工作表, 删除项目请按照下列步骤：

1. 启动 Excel, 并打开新空白工作簿。

2. 在单元格 A 1: A 5Sheet, 键入了您要用于填充 ListBox 控件值。

3. 在 工具 菜单, 指向宏 , 然后单击 VisualBasic 编辑器 。

4. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。

5. 将 ListBox 控件添加到 UserForm。

6. 用鼠标右键单击 ListBox 控件, 然后单击 属性 。

7. 在 RowSource 属性, 键入 Sheet 1 A 1: A 5 ！

8. 将 CommandButton 控件添加到 UserForm。

9. 双击以显示代码窗口为CommandButton 控件 CommandButton 控件。

10. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码：

Private Sub CommandButton1_Click()

            ListBox1.RowSource= ""

            EndSub

11. 在 运行 菜单上, 单击运行子过程 / 用户窗体 。

ListBox 控件， 添加到UserForm 具有值， 您输入 Sheet 填充。

12. 单击CommandButton 1 。

从 ListBox 1 中删除所有项目。

如何从不绑定到工作表 ListBox 控件中删除所有项目

没有没有单个 VBA 命令如果没有绑定到工作表列表， 从 ListBox 控件删除所有项目。 要从 ListBox 控件从 VisualBasic 数组, 填充删除所有项目请按照下列步骤：

1. 启动 Excel, 并打开新空白工作簿。

2. 在 工具 菜单, 指向宏 , 然后单击 VisualBasic 编辑器 。

3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。

4. 将 ListBox 控件添加到 UserForm。

5. 在 插入 菜单上, 单击要插入模块表模块 。

6. 在代码窗口, 键入如下代码：

Sub PopulateListBox()

            DimMyArray As Variant

            DimCtr As Integer

            MyArray= Array("Apples", "Oranges", "Peaches","Bananas", "Pineapples")

            ForCtr = LBound(MyArray) To UBound(MyArray)

            UserForm1.ListBox1.AddItemMyArray(Ctr)

            Next

            UserForm1.Show

            EndSub

7. 将 CommandButton 控件添加到 UserForm。

8. 双击以显示代码窗口为CommandButton 控件 CommandButton 控件。

9. 在代码窗口, 为 CommandButton 1 Click 事件键入下列代码：

Private Sub CommandButton1_Click()

            Fori = 1 To ListBox1.ListCount

            ListBox1.RemoveItem0

            NextI

            EndSub

10. 然后单击 运行 在 工具 菜单上,、 " PopulateListBox , 和 宏 。

ListBox 控件填充, 并再出现 UserForm。

11. 单击CommandButton 1 。

从 ListBox 1 中删除所有项目。

民扬

从EXCEL中快速提取中文Function getchn(MyValue As Range)
Dim i As Integer
Dim chn As String
For i = 1 To Len(MyValue)
If Asc(Mid(MyValue, i, 1)) < 0 Then
chn = chn & Mid(MyValue, i, 1)
End If
Next
getchn = chn
End Function

mirxb

收藏，谢谢分享

tobeornot

不错，辛苦楼主收集，收藏了

zhougencai

感谢楼主分享！！！

zxcvbnm0000000

民扬 发表于 2018-12-16 20:52
Private Sub Worksheet_Change(ByVal Target As Range) ‘根据B列数据填充，A列自动生成序号
If Target.Co ...

'请问大神如果样品批号在C列请教怎么调整
http://club.excelhome.net/thread-1473180-1-1.html
(出处: ExcelHome技术论坛)

雏恋的

标记起来，先赞一个

民扬

查找内容所在的行 http://club.excelhome.net/thread-1208465-1-1.html

民扬

第一集
1、        什么是VBA,它有什么作用
A、        实现Excel中没有提供的功能
B、        提高运行速度
C、        编写自定义函数
D、        实现自动化功能
E、        通过插入窗体做小型管理软件
2、        VBA在哪里存放的？怎么运行的
3、        什么是宏？宏和VBA有什么关系？
4、        录制一个宏
5、        编写第一个宏