欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

excel中使用vba实现单元格计算的方法 博客分类: Excel

程序员文章站 2024-03-12 10:34:44
...

    1. excel中,假如我们知道每个员工的销售数量,又知道商品的单价,可以简单的计算出销售额,但是档员工人数特别多,即便是快速复制公式,仍然可以把你累死,这时候就要使用vba了,利用循环计算,你可以快速的计算上万员工的销售额,非常简单方便。

       
      excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
       

       

      首先,我要知道商品的单价是12.5,在D1单元格输入【商品单价】,在D2单元格输入12.5


      excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel


       接着我们打开vb界面,在常用工具栏上执行:开发工具--visual basic。

      excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel

 
    1.  

      打开vb以后,我们要先建立一个模块,如图所示,在菜单栏上执行:插入--模块,这样就直接插入并打开了一个模块。


      excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel

       

      在打开的模块中,我们输入如下的代码:

      Const Price As Single = 12.5
      Sub 计算销售额()
      Dim sh As Worksheet
      Set sh = Worksheets("sheet1")
      Dim n As Integer
      n = 2
      Do
      sh.Cells(n, 3) = sh.Cells(n, 2) * Price
      n = n + 1
      Loop Until sh.Cells(n, 2) = ""
      End Sub

excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  1.  

    保存模块:在菜单栏上执行文件--保存,或者按下快捷键ctrl+s
    excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
     

  2. 接着按下F5,快速执行宏,在打开的宏对话框中,找到我们编辑的这个宏,【计算销售额】,然后点击【运行】

    这就是经过计算得到的销售额了:


    excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel

    excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
     

 

  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 17.3 KB
  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 21.2 KB
  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 30.5 KB
  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 21.4 KB
  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 30.6 KB
  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 24.3 KB
  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 30.5 KB
  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 23.7 KB
  • excel中使用vba实现单元格计算的方法
            
    
    博客分类: Excel
  • 大小: 38.7 KB