Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3024|回复: 17

[已解决]求大神指教VBA的作业

[复制链接]
发表于 2013-6-8 13:50 | 显示全部楼层 |阅读模式
根据单位名称实现对该单位的货品总额的统计工作


最佳答案
2013-6-8 15:16
用SUMIF
  1. Dim vl

  2. vl = Application.InputBox("输入", 输出对应值, 1)

  3. MsgBox Application.SumIf(Range("a2:a23"), vl, Range("b2:b23"))
复制代码
宏.zip (11.6 KB, 下载次数: 9)

要求如图

要求如图
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-6-8 15:16 | 显示全部楼层    本楼为最佳答案   
用SUMIF
  1. Dim vl

  2. vl = Application.InputBox("输入", 输出对应值, 1)

  3. MsgBox Application.SumIf(Range("a2:a23"), vl, Range("b2:b23"))
复制代码
宏.zip (11.6 KB, 下载次数: 9)
回复

使用道具 举报

发表于 2013-6-8 15:22 | 显示全部楼层
这 个得看你上节课讲的是什么内容了

如果是循环,那这里面肯定还是用循环的比较好

如果是讲调用工作表函数,那这里面肯定是用调用工作表函数比较好

如果是讲字典,那这里面肯定是用字典了,

所以,作业是要根据上节课的内容来写的!!
回复

使用道具 举报

 楼主| 发表于 2013-6-9 00:26 | 显示全部楼层
suxiong 发表于 2013-6-8 15:16
用SUMIF

貌似你的这个代码,不管是输入那个公司来统计都是0= =,我新手看不懂代码
回复

使用道具 举报

 楼主| 发表于 2013-6-9 00:30 | 显示全部楼层
无聊的疯子 发表于 2013-6-8 15:22
这 个得看你上节课讲的是什么内容了

如果是循环,那这里面肯定还是用循环的比较好

他要求是采用各种WorksheetFunction工作表统计函数的使用;循环语句;求大神指教
回复

使用道具 举报

发表于 2013-6-9 08:48 | 显示全部楼层
hjhdaidai520 发表于 2013-6-9 00:26
貌似你的这个代码,不管是输入那个公司来统计都是0= =,我新手看不懂代码

Application.SumIf(Range("a2:a23"), vl, Range("b2:b23"))  就是工作表函数!

SUMIF  老师讲了啥?与EXCEL的函数一样呀。
回复

使用道具 举报

发表于 2013-6-9 08:49 | 显示全部楼层
hjhdaidai520 发表于 2013-6-9 00:26
貌似你的这个代码,不管是输入那个公司来统计都是0= =,我新手看不懂代码

我只是做的个列子,你没有传附件,你输入公司名字肯定是0啥。里面的条件你要改一下;
回复

使用道具 举报

 楼主| 发表于 2013-6-12 19:34 | 显示全部楼层
suxiong 发表于 2013-6-9 08:49
我只是做的个列子,你没有传附件,你输入公司名字肯定是0啥。里面的条件你要改一下;

vl = Application.InputBox("输入", 输出对应值, 1)其实这句我看不懂。。
回复

使用道具 举报

 楼主| 发表于 2013-6-12 19:35 | 显示全部楼层
suxiong 发表于 2013-6-9 08:49
我只是做的个列子,你没有传附件,你输入公司名字肯定是0啥。里面的条件你要改一下;

附件不能直接上传EXCEL···
回复

使用道具 举报

发表于 2013-6-13 09:19 | 显示全部楼层
hjhdaidai520 发表于 2013-6-12 19:35
附件不能直接上传EXCEL···

InputBox  是一个提示框,把你输入的值返回给VL这个变量;
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-11 18:21 , Processed in 0.440906 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表