自己写的小VBA程序

jary_yuan

关注EH很久了，第一次发帖，呵呵...想和大家共同学习，共同进步。

因为是VBA的初学者，所以写的VBA可能只是小儿科，呵呵，但是对于初学者也许还有一定的参考价值，所以现在把它分享出来，大家互相学习，互相鼓励。

实现的功能；

在Entry工作表中输入数据（名字和销售量），单击控件提交后，销售信息自动保存在Data工作表中。如果是新的Salesname，则会在Data工作表中新增一条记录，不是，则会添加到此人原来的销售量上。

主要知识点；

1.VBA对单元格、工作表的操作
      2.VBA中不同过程之间的调用

3.自定义函数，及自定义函数在过程中的引用。也涉及Excel自带函数的使用。

4.VBA程序的运行。这里用的是单击一个形状来执行。

5.对区域进行命名，并结合数据有效性创建了一个下拉列表框。

6.Auto_Open驱动事件。

7.MsgBox的应用。

8.简单的错误处理机制。

把文件发上来，大家讨论讨论，哈哈

jary_yuan

贴部分代码出来；

1. Sub Record()
   
2.     Dim Name As String, NameCell As Range, SalesAmount As Currency, SalesCom As Currency, Ans As Variant, n As Integer
   
3. 
   
4.     On Error GoTo Handler: '简单的错误处理
   
5. 
   
6.     Set NameCell = Worksheets(1).Range("E8")
   
7.     If IsNumeric(NameCell.Value) Or IsEmpty(NameCell) Then 'Ecxel函数 IsNumeric 和 IsEmpty 的使用
   
8. 
   
9.         GoTo Handler 'GoTo 语句在处理错误时的使用
   
10.     Else
    
11.         Name = NameCell.Value
    
12.     End If
    
13. 
    
14.     SalesAmount = Worksheets(1).Range("E9").Value
    
15.     SalesCom = SaleCom(SalesAmount) '自定义函数ScaleCom的使用
    
16. 
    
17.     Application.ScreenUpdating = False '关闭屏幕刷新，可以提高程序运行效率
    
18.     Worksheets(2).Activate
    
19.     Range("A1").Activate
    
20. 
    
21.     ProBlank     ' 过程的调用和 Call ProBlank 等价
    
22. 
    
23.     If SameName(Name) Then 'SameName 自定义函数，用来判断输入的名字是否已经存在
    
24. 
    
25.         For n = 1 To 2
    
26.             ActiveCell.Offset(0, n).Value = Add(Choose(n, SalesAmount, SalesCom), n) 'Add自定义函数，在销售员原来数据上添加其销量及提成
    
27.         Next n
    
28. 
    
29.     Else '列表中不存在，添加新的销售纪录
    
30.         ActiveCell.Value = Name
    
31.         ActiveCell.Offset(0, 1).Value = SalesAmount
    
32.         ActiveCell.Offset(0, 2).Value = SalesCom
    
33.     End If
    
34. 
    
35. 
    
36.     Worksheets(1).Activate
    
37.     Ans = MsgBox("Do you want to enter another sales?", vbYesNo + vbInformation) '询问是否再次添加同一个人的销售记录，MsgBox
    
38.     If Ans = vbYes Then
    
39.         Range("E9").Value = ""
    
40.     Else
    
41.         Range("E8").Value = ""
    
42.         Range("E9").Value = ""
    
43.     End If
    
44. 
    
45.     Exit Sub
    
46. 
    
47. Handler: '错误处理，提示使用者输入正确的名字及销量
    
48.     MsgBox "Please ensure you have entered the right name and sales amount !", vbExclamation
    
49.     Worksheets(1).Activate
    
50.     Range("E8").Activate
    
51. 
    
52. End Sub

复制代码

mouze_jojo

我也是初学者，感觉你写的相当不错了啊，还有知识点的整理，很有逻辑思维，必须顶你 一个{:soso_e179:}

jary_yuan

mouze_jojo 发表于 2012-2-21 17:27
我也是初学者，感觉你写的相当不错了啊，还有知识点的整理，很有逻辑思维，必须顶你 一个

一起加油...呵呵

sharkzhou

我也是初学。。。努力

jary_yuan

sharkzhou 发表于 2012-2-22 21:11
我也是初学。。。努力

呵呵，要努力...

msyangyi

真的是初学的吗，你咋个学的啊？

jary_yuan

msyangyi 发表于 2012-3-6 15:02
真的是初学的吗，你咋个学的啊？

差不多是吧，看视频教程...

msyangyi

有好的推荐吗？？？

jary_yuan

msyangyi 发表于 2012-3-7 09:28
有好的推荐吗？？？

MrExcel的教程不错，可以百度一下，很多