VBA常用代码合集

——本文内容来源于《全民一起VBA基础篇》

---

' 强制变量声明
Option Explicit 
	
Sub function_name（）
	'定义变量
	Dim a,name
	'定义常量
	const PI = 3.14159
	'定义对象
	Set A_Range = Worksheets("Sheet4").UsedRange
	'赋值
	a = 18.35
	r = 2

	'流控制
	'while循环
		Do While Cells(r, 2) <> ""
	        Cells(r, 6) = Cells(r, 2) + Cells(r, 4)
	        r = r + 1
	    Loop
	'for循环
		For i = 1 To j
	
		Next

	'if判断
	    If a > 75 Then
	    '单元格写入
            Cells(8, 6) = "A"
        Elseif a > 55  Then
            Cells(8, 6) = "B"
        Else
        	Cells(8, 6) = "C"
        End If
	'switch分支
		Select Case B.Cells(j, 3)
			Case Is = A.Cells(1, 3)

			Case Is = A.Cells(1, 6)

			Case Is = A.Cells(1, 6)

			Case Else
			
		End Select

End sub