VBA-第 12.4 课。控制元件（练习）

现在让我们看一个练习使用控件的小练习 (Controls)。

有一个包含现成表单和控制元素的文件。我们需要编写使所有元素正常工作的代码，以便用户可以通过与表单交互来填充我们的临时数据库。

以下是要下载的 Excel 文件： controls_exercise.xls

现在应该很清楚，这里的目标是使用表单填充表。

需要考虑的几点：

国家列表以第二张列表为准；

添加新联系人之前检查控制元素的值；

输入值后，返回控件的初始值而不关闭窗体。

解决问题的方法之一

首先，我们需要将表单的 Zoom 属性增加到 120 以使其更易于使用：

我们已经介绍了检查选项按钮（在有关控件的第一课中），因此这里我们使用一个简单的解决方案。

默认选择“Mrs”（属性Value: True），即我们在选择时不会检查地址。

关闭按钮

Private Sub CommandButton_Close_Click()
     Unload Me
End Sub

下拉列表的内容

Private Sub UserForm_Initialize() '表单打开时加载列表
    For i = 1 To 252 '从国家/地区工作表生成 252 个国家/地区的列表
       ComboBox_Country.AddItem Sheets("Country").Cells(i, 1)
    Next
End Sub

检查控制元件

一个简单的解决方案是，如果任何控件为空，则显示一个对话框。

Private Sub CommandButton_Add_Click()
     If TextBox_Last_Name.Value = "" Or TextBox_First_Name.Value = "" Or TextBox_Address.Value = "" Or TextBox_Place.Value = "" Or ComboBox_Country.Value = "" Then
         MsgBox "Form incomplete"
     Else
         '此处输入联系人的说明...
     End If
End Sub

但要让它变得更复杂一点，应该单独检查每个元素，如果其中任何一个元素为空，则其 name () 的颜色应更改为红色：

Private Sub CommandButton_Add_Click()
     '将标题颜色设置为黑色
     Label_Last_Name.ForeColor  = RGB(0, 0, 0)
     Label_First_Name.ForeColor = RGB(0, 0, 0)
     Label_Address.ForeColor    = RGB(0, 0, 0)
     Label_Place.ForeColor      = RGB(0, 0, 0)
     Label_Country.ForeColor    = RGB(0, 0, 0)

     '内容控制
     If TextBox_Last_Name.Value = "" Then '如果没有指定任何内容...
         Label_Last_Name.ForeColor = RGB(255, 0, 0) '将标题颜色设置为红色
     ElseIf TextBox_First_Name.Value = "" Then
         Label_First_Name.ForeColor = RGB(255, 0, 0)
     ElseIf TextBox_Address.Value = "" Then
         Label_Address.ForeColor = RGB(255, 0, 0)
     ElseIf TextBox_Place.Value = "" Then
         Label_Place.ForeColor = RGB(255, 0, 0)
     ElseIf ComboBox_Country.Value = "" Then
         Label_Country.ForeColor = RGB(255, 0, 0)
     Else
         '此处输入联系人的说明...
     End If
End Sub

插入数据

应将以下代码插入到上面代码所示的位置（见注释）：

 Dim row_number As Integer, salutation As String

 '选择上诉
 For Each salutation_button In Frame_Salutation.Controls
     If salutation_button.Value Then
         salutation = salutation_button.Caption '已选择上诉
     End If
 Next

 'row_number = 列中最后一个非空单元格的行号 +1
 row_number = Range("A65536").End(xlUp).Row + 1

 '将值插入工作表
 Cells(row_number, 1) = salutation
 Cells(row_number, 2) = TextBox_Last_Name.Value
 Cells(row_number, 3) = TextBox_First_Name.Value
 Cells(row_number, 4) = TextBox_Address.Value
 Cells(row_number, 5) = TextBox_Place.Value
 Cells(row_number, 6) = ComboBox_Country.Value

 '粘贴后返回原来的值
 OptionButton1.Value = True
 TextBox_Last_Name.Value  = ""
 TextBox_First_Name.Value = ""
 TextBox_Address.Value    = ""
 TextBox_Place.Value      = ""
 ComboBox_Country.ListIndex = -1

总体外观

就是这样，这里有完整的练习代码和要下载的文件：

Private Sub CommandButton_Close_Click()
     Unload Me
End Sub

Private Sub UserForm_Initialize() '“国家/地区”表中的 252 个国家/地区列表
    For i = 1 To 252
        ComboBox_Country.AddItem Sheets("Country").Cells(i, 1)
    Next
End Sub

Private Sub CommandButton_Add_Click()
     '将名称颜色设置为黑色
     Label_Last_Name.ForeColor  = RGB(0, 0, 0)
     Label_First_Name.ForeColor = RGB(0, 0, 0)
     Label_Address.ForeColor    = RGB(0, 0, 0)
     Label_Place.ForeColor      = RGB(0, 0, 0)
     Label_Country.ForeColor    = RGB(0, 0, 0)

     '内容控制
     If TextBox_Last_Name.Value = "" Then '如果没有指定任何内容...
         Label_Last_Name.ForeColor = RGB(255, 0, 0) '将标题颜色设置为红色
     ElseIf TextBox_First_Name.Value = "" Then
         Label_First_Name.ForeColor = RGB(255, 0, 0)
     ElseIf TextBox_Address.Value = "" Then
         Label_Address.ForeColor = RGB(255, 0, 0)
     ElseIf TextBox_Place.Value = "" Then
         Label_Place.ForeColor = RGB(255, 0, 0)
     ElseIf ComboBox_Country.Value = "" Then
         Label_Country.ForeColor = RGB(255, 0, 0)
     Else
         '如果填写了表格，则值将粘贴到工作表中
         Dim row_number As Integer, salutation As String
         
         '选择上诉
         For Each salutation_button In Frame_Salutation.Controls
             If salutation_button.Value Then
                 salutation = salutation_button.Caption
             End If
         Next

         'row_number = 列中最后一个非空单元格的行号 +1
         row_number = Range("A65536").End(xlUp).Row + 1

         '将值插入工作表
         Cells(row_number, 1) = salutation
         Cells(row_number, 2) = TextBox_Last_Name.Value
         Cells(row_number, 3) = TextBox_First_Name.Value
         Cells(row_number, 4) = TextBox_Address.Value
         Cells(row_number, 5) = TextBox_Place.Value
         Cells(row_number, 6) = ComboBox_Country.Value
         
         '插入数据后，我们返回初始值
         OptionButton1.Value = True
         TextBox_Last_Name.Value  = ""
         TextBox_First_Name.Value = ""
         TextBox_Address.Value    = ""
         TextBox_Place.Value      = ""
         ComboBox_Country.ListIndex = -1
     End If
End Sub

以下是可供下载的 Excel 文件： controls_exercise2.xls

❮ Previous Next ❯

在线服务

VBA 宏

功能

程序

LO Calc 中的 YLC 实用程序菜单

Excel 中的 YLC 实用程序菜单

下载 ❯