Excel精英培训网

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

[已解决]求一个自动求和的程序

[复制链接]
发表于 2014-4-28 13:48 | 显示全部楼层 |阅读模式
本帖最后由 xingbiantianxia 于 2014-4-29 16:22 编辑

见图片 和附件
最佳答案
2014-4-28 14:04
  1. Private Sub CommandButton1_Click()
  2.     Set d = CreateObject("scripting.dictionary")
  3.     r = Me.CommandButton1.TopLeftCell.Row
  4.     c = 2
  5.     For i = 1 To r - 1
  6.         x = Cells(i, c).Interior.ColorIndex
  7.         If x > 0 Then d(x) = d(x) + Cells(i, c - 1)
  8.     Next
  9.     dk = d.keys: dt = d.items
  10.     For i = 0 To UBound(dk)
  11.         Cells(r + i + 5, c - 1).Interior.ColorIndex = dk(i)
  12.         Cells(r + i + 5, c) = dt(i)
  13.     Next
  14. End Sub
复制代码
说好}.JPG

进度4.28.rar

23.56 KB, 下载次数: 10

发表于 2014-4-28 14:04 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub CommandButton1_Click()
  2.     Set d = CreateObject("scripting.dictionary")
  3.     r = Me.CommandButton1.TopLeftCell.Row
  4.     c = 2
  5.     For i = 1 To r - 1
  6.         x = Cells(i, c).Interior.ColorIndex
  7.         If x > 0 Then d(x) = d(x) + Cells(i, c - 1)
  8.     Next
  9.     dk = d.keys: dt = d.items
  10.     For i = 0 To UBound(dk)
  11.         Cells(r + i + 5, c - 1).Interior.ColorIndex = dk(i)
  12.         Cells(r + i + 5, c) = dt(i)
  13.     Next
  14. End Sub
复制代码
回复

使用道具 举报

发表于 2014-4-28 14:08 | 显示全部楼层
是不是这个意思?

工作簿1.rar

10.77 KB, 下载次数: 24

回复

使用道具 举报

 楼主| 发表于 2014-4-28 14:27 | 显示全部楼层
谢谢  下午回来我看看   现在要出去 多谢了
回复

使用道具 举报

 楼主| 发表于 2014-4-28 17:03 | 显示全部楼层
能帮忙录制成宏吗?功能可以,但是我表格太多太大了,录成宏我在对应单元格分别调用宏就好了,这样的话我移动不了那个按键。谢谢啊
回复

使用道具 举报

发表于 2014-4-29 15:19 | 显示全部楼层
在设计模式下可以移动按钮的。用宏难以判断按钮位置。
回复

使用道具 举报

 楼主| 发表于 2014-4-29 15:40 | 显示全部楼层
那能不能在附件4.28进度里 按红色、绿色、粉红、浅蓝 帮我 做一个,顺便告诉怎么移动按钮,我是一点不懂  谢谢了
回复

使用道具 举报

 楼主| 发表于 2014-4-29 15:45 | 显示全部楼层
我试了下 添颜色也可以自动计算  只是不会把这个按钮移动
回复

使用道具 举报

 楼主| 发表于 2014-4-29 15:54 | 显示全部楼层
功能是实现了 但是还是不能在我那个目标文件里实现
回复

使用道具 举报

发表于 2014-4-30 15:31 | 显示全部楼层
搞了个窗体版的,按钮随点击单元格改变位置,结果用窗体显示,比较好玩。

进度4.28.rar

35.44 KB, 下载次数: 12

评分

参与人数 1 +1 收起 理由
xingbiantianxia + 1 很给力!

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 06:05 , Processed in 0.544893 second(s), 18 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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