Excel编程 变量（二）

选择按钮

给按钮添加点击事件

第一段宏程序

Sub 加法()
	Cells(1, 5) = Cells(1, 1) + Cells(1, 3) 
End Sub

程序解释

第1行第5列的单元格的值 = 第1行第1列的单元格 + 第1行第3列的单元格

cells(row,column) 参数说明：row行号，column列号

注释：'

使用变量，示例代码如下：

Sub 加法()
	first_num = Cells(1, 1)
	second_num = Cells(1, 3)
	Cells(1, 5) = first_num + second_num
End Sub

强制声明变量

Option Explicit ' 强制变量声明;

Sub 加法()

	Dim first_num, second_num '用到以下变量，如果出现没有声明的变量会报错，默认不会报错
	
	first_num = Cells(1, 1)
	
	second_num = Cells(1, 3)
	
	Cells(1, 5) = first_num + second_num

End Sub

常量的定义

Const PI = 3.14 '常量的定义

循环语句，示例代码如下：

Sub 汇率转换()

    Dim Rate, Price, i
    
    For i = 17 To 19 Step 1:

        Rate = Cells(14, 4) '汇率
    
        Price = Cells(i, 2) '产品价格
    
        Cells(i, 2) = Price / Rate
        
    Next i
    
    Cells(15, 4) = "USD"
End Sub

If else 语句，示例代码如下：

Sub 汇率转换()

    Dim Rate, Price, i, Display
    
    Display = Cells(15, 4)
    
    
    For i = 17 To 19 Step 1:

        Rate = Cells(14, 4) '汇率
    
        Price = Cells(i, 2) '产品价格
        
        
        If Display = "USD" Then

            Cells(i, 2) = Price * Rate
    
        Else
        
            Cells(i, 2) = Price / Rate
            
        End If
        
    Next i
    
    If Display = "RMB" Then
    
        Cells(15, 4) = "USD"
        
    Else
    
        Cells(15, 4) = "RMB"
        
    End If
    
End Sub