【烟花原创】VBA零基础之第8篇 第一个过程

hwc2ycy

在代码窗口中所录入的代码一般包含以下几个部分
      1.定义：变量和常量的定义，非可执行语句
      例如：
            dim strName as string
            const PI=3.1415926

      2.过程：Sub、Property（这个是类模块里才有的）、Function都属性于过程
      所有可执行的代码必须包含在过程或函数内，一过程不能套在其它过程中。

      3.注释：针对代码的说明备注，非可执行语句。
      注释语句在默认情况下是以浅绿色的字体显示。
      例如：
            '第一个代码，主要用于演示过程
            REM 2013-11-1 23:51分

下面大家就跟我来完成 第一个过程
      1.打开VBE
      2.在 工程资源管理器 窗口中 右键 插入 模块
      
      3.双击刚刚插入的模块1，进入模块1的代码窗口
      4.录入以下代码

1. Sub HelloWord()
   
2. '---------------------------------------------------------------------------------------
   
3. ' Procedure : HelloWord
   
4. ' Author    : hwc2ycy
   
5. ' Date      : 2013/11/1
   
6. ' Purpose   :
   
7. '---------------------------------------------------------------------------------------
   
8. '
   
9. 
   
10.     Dim str As String
    
11.     '定义一个字符串变量，变量名为str
    
12. 
    
13.     str = "HelloWord!"
    
14.     '给变量str赋值 HelloWord!
    
15. 
    
16.     Range("a1").Value = str
    
17.     '给当前活动工作表的A1单元格赋值 HelloWord!
    
18. 
    
19.     ActiveSheet.Name = str
    
20.     '给当前活动工作表改名，新的工作表名为HelloWord!
    
21. 
    
22.     MsgBox prompt:=str, Title:="第一个过程"
    
23.     '显示一个对话框,对话框的标题为第一个过程，提示信息为HelloWord!
    
24. 
    
25. End Sub

复制代码

5.执行代码
      方法1：光标定位在HelloWord过程内，按F5执行代码
      方法2： 直接F5，在对话框中选择HelloWord，执行
      方法3：工具栏 运行 图标（绿色倒三角形）

     执行完后，回到工作表中看当前活动工作表的表名，A1单元格，对话框。
      
     运行HelloWord过程后，代码实现上图效果后，大家可以试着改变下工作表名，换个单元格写入数据 。
     ：-），本来是要命名为HelloWorld的，就将错就错吧。

我心飞翔410

{:1112:}

刘苏

{:1112:}

不解木野狐

好，学习、、、、、、、、

w2001pf

好，学习、、、、、、、、

zjsydcw

顶一下

繁华未落尽

照做了

yewei113

学习了，老师辛苦

bai7190

支持斑竹发帖子~~~

箫风

学习了，谢谢烟花！