VBA常用代码合集

最新推荐文章于 2024-06-22 08:30:38 发布

0o蒜瓣o0

最新推荐文章于 2024-06-22 08:30:38 发布

阅读量1.3k

点赞数 1

分类专栏： VBA学习

本文链接：https://blog.csdn.net/terribilis/article/details/104425833

版权

VBA学习专栏收录该内容

1 篇文章 0 订阅

订阅专栏

——本文内容来源于《全民一起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