VBA 初级 进阶 - 插入客户资料

1: 先看一下界面：

主要是实现：插入功能：

学习的知识点：

1：从最后一行插入：

   Dim s1%

s1 =[a1048576].End(xlUp).Row + 1

 

注意，如果是以前的excel2003的版本，就是：

s1 = [a65536].End(xlUp).Row+ 1

 

2：指定到特定的worksheet:

         DimwkSheet As Worksheet '定义工作表变量

    Set wkSheet = ThisWorkbook.Worksheets("客户资料表")

   

 3: 插入输入的字段：

wkSheet.Cells(s1, 1) = TextBox1.Text

 

4: 注意，插入后，要退出插入的form,这样友好点，所以在这个CommandButton1_Click()

里面最后要有unload me 声明。

 

5：今天调试form1的时候，有代码如下：

 UserForm1.Show 0 报错，后来把后面的 0 去掉就可以了。

改成：UserForm1.Show

 

6: Combobox 里的增加的list, 要通过Userform_Initialize 来实现，否则编译后是空白

 具体通过下面的这个就可以实现：

7：还有就是combobox 里面的值要怎么才能插入到Excel中：

wkSheet.Cells(s1, 3) =ComboBox1.Text

 

8：关于输入的值： 必须是数字，而且超过6位报警：

   Dim strTemp As String

   

   If Len(TextBox6.Text) > 0 Then '判断文本框是否有数值

        '取得文本框最后一位数值

        strTemp = Mid(TextBox6.Text,Len(TextBox6.Text), 1)

        '判断最后一位数值是否是数字，不是数字将给出警告

        If Asc(strTemp) < 48 Or Asc(strTemp)> 57 Then

            MsgBox "请输入数字！"

            '重新给文本框赋值，去掉最后一位不是数字的值

            TextBox6.Text = Mid(TextBox6.Text,1, Len(TextBox4.Text) - 1)

            '将光标重新放置在文本框内，等待用户继续输入

            TextBox6.SetFocus

        End If

        '判断邮编是否超过6位

        If Len(Trim(TextBox6.Text)) > 6 Then

            '超过6位时给出警告

            MsgBox "邮政编码过长，请修改！"

            '将文本框的数值清空

            TextBox6.Text = ""

            '将光标重新放置在文本框内，等待用户继续输入

            TextBox6.SetFocus

        End If

   End If