打卡学习 VBA 和 PYTHON week01

一 VBA 入门

Ø  打开宏 alt+F11

插入——模块

Ø   

一般格式：

Sub 名字（）

End sub

Ø  显示：

MsgBox ＂hello＂

Debug.Print ＂hello＂ (需要在视图中打开立即窗口)

Ø  变量申明

Dim 变量名 as string/Integer/Boolean  字符串、数字类型、布尔类型

Ø  注释

单行：英文单引号

多行：菜单栏空白处右键编辑，选择多行注释

Ø  VBA 常用结构：

Sub main（） 主函数中调用方法

My_func()

End sub

Function my_func() 定义方法

End function

Ø  断点调试

F8 单行执行

变量监视：将变电添加到监视区

Ø  常见语句结构

For  i=1 to 10  循环语句完成从 1 到 10 的循环

…

Next

Do while i<10 循环语句完成从 1 到 9 的循环

…

Loop

If 条件成立 then 条件语句

....

End if

作业：计算 1-100 的和，并将奇数输出：

Sub main()'计算1-100的和，并将奇数输出Dim ii As IntegerDim kk As IntegerDim gg As Integerii = 100kk = my_sum(ii)For ss = 1 To 100    If ss Mod 2 = 1 Then        my_print ("这是奇数：" & ss)    End IfNextmy_print ("求和的结果是：" & kk)End Sub
Function my_sum(i) '求和方法定义Dim k As IntegerDim my_sum_01 As IntegerDo While k < i + 1 my_sum_01 = my_sum_01 + k k = k + 1Loopmy_sum = my_sum_01  '将结果回送End Function   
Function my_print(j)  '打印方法定义Debug.Print (j);End Function