Excel精英培训网

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

[已解决]在单价列用条件格式突出在相同物料编码中,其中单价大于平均值在值1.00以上的单价

[复制链接]
发表于 2017-8-22 10:07 | 显示全部楼层 |阅读模式
本帖最后由 youyudekaishi 于 2017-8-22 14:19 编辑

在单价列用条件格式突出在相同物料编码中,其中单价大于平均值在值1.00以上的单价
最佳答案
2017-8-22 11:46
副本00.rar (9.43 KB, 下载次数: 6)

1

1

00.zip

6.62 KB, 下载次数: 3

1

发表于 2017-8-22 10:31 | 显示全部楼层
副本00.rar (9.3 KB, 下载次数: 4)
回复

使用道具 举报

 楼主| 发表于 2017-8-22 10:46 | 显示全部楼层

老铁,貌似你没弄明白等我的意思,我是说在物料编码相同的前提下,比如:A00012-0000其中单价大于平均值在1.00以上的值

2

2
回复

使用道具 举报

发表于 2017-8-22 11:14 | 显示全部楼层
?模拟效果一下
回复

使用道具 举报

 楼主| 发表于 2017-8-22 11:25 | 显示全部楼层
qqyyh 发表于 2017-8-22 11:14
?模拟效果一下

例如:物料编码:A00012-0000,1-5月份的单价分别是13.6 14 14.2 13.7 16,其平均值为:14.3,那么只有5月份的值16大于其平均值在1以上
回复

使用道具 举报

发表于 2017-8-22 11:46 | 显示全部楼层    本楼为最佳答案   
副本00.rar (9.43 KB, 下载次数: 6)
回复

使用道具 举报

发表于 2017-8-22 13:37 | 显示全部楼层
用字典比较容易

  1. Public Sub test()
  2.     Dim arr(), d, d1, d2, i, n, k, brr
  3.     arr = Sheet1.Range("a2:c" & Range("c65536").End(3).Rows)
  4.     Set d = CreateObject("scripting.dictionary")
  5.     Set d1 = CreateObject("scripting.dictionary")
  6.     Set d2 = CreateObject("scripting.dictionary")
  7.    
  8.     For i = 1 To UBound(arr, 1)
  9.         d(arr(i, 2)) = d(arr(i, 2)) + arr(i, 3)
  10.         d1(arr(i, 2)) = d1(arr(i, 2)) + 1
  11.     Next

  12.     brr = d.keys

  13.     For n = 0 To UBound(brr)
  14.         d2(brr(n)) = d(brr(n)) / d1(brr(n))
  15.     Next

  16.     For k = 1 To UBound(arr, 1)
  17.         If arr(k, 3) > (d2(arr(k, 2)) + 1) Then
  18.             Range("c" & k + 1).Font.ColorIndex = 5
  19.         End If
  20.     Next

  21.     Erase arr
  22.     Erase brr
  23.     Set d = Nothing
  24.     Set d1 = Nothing
  25.     Set d2 = Nothing
  26.    
  27.    
  28.         
  29. End Sub
复制代码
你这个平均值是按出现的次数还是6个月的平均?
我按出现的次数平均算的



00.rar

14.05 KB, 下载次数: 0

回复

使用道具 举报

 楼主| 发表于 2017-8-22 14:20 | 显示全部楼层
frankzhang21 发表于 2017-8-22 13:37
用字典比较容易

你这个平均值是按出现的次数还是6个月的平均?

老铁,这个比较高大上玩不转  哈哈
回复

使用道具 举报

发表于 2017-8-22 14:30 | 显示全部楼层
youyudekaishi 发表于 2017-8-22 14:20
老铁,这个比较高大上玩不转  哈哈

复制到VBE里下次就可以用了

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 10:39 , Processed in 0.512713 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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