CSDN首页 空间 新闻 论坛 Blog 下载 读书 网摘 搜索 .NET Java 视频 接项目 求职 在线学习 买书 程序员 通知
山寨机中的战斗机! 程序优化工程师到底对IT界有没有贡献
CSDN社区
搜索 收藏 打印 关闭
CSDN社区 >  其他开发语言 >  Office开发/ VBA

EXCEL里怎么实现加总当前单元格以上数值?

楼主brsun(夏目)2006-01-16 22:44:21 在 其他开发语言 / Office开发/ VBA 提问

EXCEL里怎么实现加总当前单元格以上数值?就是点一下SUM那个按纽所实现的功能.在VBA里可以调用EXCEL里的   =   Application.WorksheetFunction.Sum(Range(Cells(5,   6),   Cells(acount   +   3,   6)))  
   
   
  但是,这个在EXCEL里看是字符,当我更改其中一个数的时候.最下面那个总数不会跟着变动,因为他已经是字符型的了,而不是公式,怎么才能保留公式呢?  
    ActiveCell.FormulaR1C1   =   "=RC[-1]*RC[-3]"       这个是当前单元格=当前单元格前一列*前3列的公式.是横着的。   我要竖着加起来,谢谢高手指教! 问题点数:20、回复次数:3Top

1 楼DawnPine(拂晓的松)回复于 2006-01-17 11:39:33 得分 0

想竖起来?  
  试试这个:  
   
  =SUM(INDIRECT(ADDRESS(1,COLUMN())&":"&ADDRESS(ROW()-1,COLUMN())))  
   
  把它放到任意一个单元格中,它就能累加它上面的所有单元格Top

2 楼mai1611(皇家设计师)回复于 2006-01-17 19:19:28 得分 0

楼上的,我试了,没用啊。。。。。我是要在VBA代码里  
  公式放置的单元格是变动的  
  按人员编码查询  
  人员代码:2  
  序号       品名     数量  
  1             书           2  
  2             笔           3  
  3             尺           1  
  汇总                   6  
  人员代码:1  
  序号       品名     数量  
  1             书           2  
  2             笔           3  
  汇总                     5个  
   
  就是这个汇总行,行数是不固定的,所以必须在VBA里编写一个变量。可是我不会搞。。。求救。。。  
   
   
  1.     笔  
  2Top

3 楼mai1611(皇家设计师)回复于 2006-01-17 20:43:35 得分 20

本人已经找到答案,谢谢楼上兄台的指点。  
   
  正解应该是在VBA语言里写  
   
  CELLS(acount+4,7)="=sum($H$5:$h$"&a&")"  
   
   
  H5为我表里的第一行  
   
  cells(acount+4,7)为我最后面要写求和公式的单元格  
   
  我真为我自己感到骄傲!!!!!!!兄弟,把分给我!!!Top

相关问题

  • excel中当单元格中的数值大于80时单元格内的文本改变颜色。
  • 在VB中怎样设置Excel单元格的样式?如设置为百分数显示单元格数值?
  • EXcel单元格属性
  • 怎样通过自动化程序设置Excel中的一个单元格的单元格式/数字/分类,即设置一个单元格是数值、文本、日期等?谢谢
  • 请各位帮帮我啊 delphi 中如何设置EXCEL单元格的属性阿?比如改为数值型!
  • excel 使用中提示“输入值非法,其他拥护已限定了输入该单元格的数值”
  • vb,excel,设置单元格格式
  • Excel中单元格引用问题
  • Excel问题,关于单元格尺寸
  • excel单元格格式问题

关键词

  • 代码
  • excel
  • 单元格
  • 公式
  • acount
  • 汇总
  • 实现
  • 笔
  • sum
  • cells

得分解答快速导航

  • 帖主:brsun
  • mai1611

相关链接

  • CSDN Blog
  • 技术文档
  • 代码下载
  • 第二书店
  • 读书频道

广告也精彩

反馈

请通过下述方式给我们反馈
反馈
提问
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|问题报告
北京创新乐知广告有限公司 版权所有, 京 ICP 证 070598 号
世纪乐知(北京)网络技术有限公司 提供技术支持
Copyright © 2000-2008, CSDN.NET, All Rights Reserved
GongshangLogo