目录

• 一、循环
• 二、选择判断
• 三、表格内容读取和字符串拆分
• 四、琐碎内容
• 五、登录界面

一、循环

For 初始化变量To循环次数，用Next结尾
注：循环完后，i变量是20

//循环20次
For i = 1 To 20
……
Next

//循环20次
i = 20
For i = 1 To i
……
Next

Do While 判断条件，Loop结尾

//死循环
Do While 1
…… 
Loop
//在里面可以加变量
Do While 1
…… 
If cz = "" Then
Exit Do//跳出while循环，for跳出for循环
End If
i = i + 1
Loop

vb没有c语言的continue跳出本次循环
可以用goto来跳转实现跳出本次循环

Do While 1
e:
…… 
If cz = "" Then
GoTo e//跳转位置，实现跳出本次循环
End If
i = i + 1
Loop

二、选择判断

If 条件 Then，例如

If s = "1" Then
……
ElseIf s = "0" Then 
……
Else
……
End If

注：如果执行内容多，可以用末尾加：连接

vb的逻辑等于和赋值都一样是=
不等于<>
大于等于>=

三、表格内容读取和字符串拆分

Split（拆分变量，标志）（要第几个内容0是第一个标志的前面内容）

ys = Cells(i + 1, 5)   
ys1 = Split(ys, " ")(0)
Cells(i + 1, 4) = ys1

表格内容的输入输出
可以使用Cells（行，列）
或下面的方法
Range(“F1”).Select
ActiveCell.FormulaR1C1 = “W”

四、琐碎内容

1.使用对话框输入变量内容

str123 = InputBox("输入内容", "插座", 0)
Windows("模板.xlsx").Activate//跳转到模板.xlsx Excel文件
Sheets("ww").Select//跳转到工作簿ww

2.定义变量

Dim str2 As String//字符型
Dim shu2 As Long//长整型
Dim n As Integer//整型

3.计算字符串长度

shu1 = Len(str1)

五、登录界面

窗体代码

Private Sub CommandButton1_Click()
If TextBox1 = "dz小伟" Then
    If TextBox2 <> 630 Then
        MsgBox "密码错误"
        Exit Sub
    Else
        MsgBox "正确"
        Unload Me
        Application.Visible = True
    End If
Else
    MsgBox "账户不存在"
End If

End Sub

Private Sub CommandButton2_Click()
Unload Me
ThisWorkbook.Close
End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub userForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = ture
End Sub

ThisWorkbook代码

Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
End Sub