窗体和控件(2)——Excel之VBA(13)

二、窗体

1. 使用窗体

窗体的常用属性和方法(UserForm)：

窗体常用属性

• Enabled 可用性
• Caption 标题
• Visible 可见性
• ShowModal 显示模式

窗体常用方法

• Show 显示
• Hide 隐藏

窗体常用事件

• UserForm_Activate 激活
• UserForm_QueryClose 退出

 

2. 文本框和复选按钮	3. 组合框和列表框
文本框控件TextBox 文本框常用属性 Enabled 可用性 Value 返回值 Visible 可见性 PasswordChar 密码字符 TabIndex 按下Tab键时的切换顺序 复选框控件CheckBox 复选框常用属性 Enabled 可用性 Value 返回值 Visible 可见性	复合框控件ComboBox ComboBox常用属性 Enable Value Visible List 数据源列表 ComboBox常用方法 AddItem 增加一个下拉项目 RemoveItem 移除一个项目 Clear 列表框控件ListBox 列表框常用属性 Enable Value Visible ColumnCount 列 List 数据源列表 列表框常用方法 AddItem 增加一个下拉项目 RemoveItem 移除一个项目 Clear

 

4. 课程小结及课后练习

本节演示案例

1）制作登录窗口

Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden Sheet2.Protect "test" Sheet3.Protect "test" End Sub Private Sub Workbook_Open() UserForm1.Show End Sub

Private Sub CommandButton1_Click() If UserForm1.TextBox1.Value = "张三" And UserForm1.TextBox2.Value = "123" Then Sheet2.Unprotect Password:="test" Sheet2.Visible = xlSheetVisible Me.Hide ElseIf UserForm1.TextBox1.Value = "李四" And UserForm1.TextBox2.Value = "0000" Then Sheet3.Unprotect Password:="test" Sheet3.Visible = xlSheetVisible Me.Hide End If End Sub

2）制作程序界面

3）联想输入功能

Private Sub TextBox1_Change()

If Len(Me.TextBox1.Value) >= 4 Then
    Me.ListBox1.Clear
    
    For i = 2 To 8
        If InStr(Sheet1.Range("i" & i), Me.TextBox1.Value) > 0 Then
            Me.ListBox1.AddItem Sheet1.Range("i" & i)
        
        End If
        
    
    
    Next
    If Me.ListBox1.ListCount > 0 Then
        Me.ListBox1.Visible = True
    Else
        Me.ListBox1.Visible = False
        
    End If

Else
    Me.ListBox1.Visible = False

End If

End Sub

需要理解并记住写法的概念
UserForm1.Show .Hide

需要理解的概念
UserForm_Activate 事件 UserForm_QueryClose 事件
UserForm1.Show .Hide
TextBox（文本框） CheckBox（复选框） ComboBox（下拉框） ListBox （列表框）
联想输入的原理

课后练习

会员信息查询
问题：
完成会员信息查询系统的查询功能。

 

Private Sub CommandButton1_Click()
Dim rng As Range

'用find方法做
Set rng = Sheet1.Range("i1:i1000").Find(Me.TextBox1.Value)
If rng Is Nothing Then
    MsgBox "无该用户"
Else
    Me.Label3.Caption = rng.Offset(0, -6)
    Me.Label4.Caption = rng.Offset(0, -5)
    Me.Label6.Caption = rng.Offset(0, -4)
    Me.Label8.Caption = rng
    Me.Label10.Caption = rng.Offset(0, -3)
    Me.Label12.Caption = rng.Offset(0, -2)
    Me.Label13.Caption = rng.Offset(0, -1)
End If

End Sub

Private Sub ListBox1_Click()
Me.TextBox1 = Me.ListBox1.Value
Me.ListBox1.Visible = False
End Sub

Private Sub TextBox1_Change()
Dim arr()
If Len(TextBox1.Value) >= 4 Then
    Me.ListBox1.Clear
    arr = Sheet1.Range("i2:i" & Sheet1.Range("a65536").End(xlUp).Row)
    
    For i = LBound(arr) To UBound(arr)
        If InStr(arr(i, 1), Me.TextBox1.Value) > 0 Then
            Me.ListBox1.AddItem arr(i, 1)
        End If
    Next
    If Me.ListBox1.ListCount > 0 Then
    Me.ListBox1.Visible = True
    End If
Else
    Me.ListBox1.Clear
    Me.ListBox1.Visible = False

End If
End Sub

Private Sub UserForm_Activate()

End Sub

续：