如何用宏判断员工（B列姓名）业绩不达标？

jdsl88

如何通过vba判断员工（B列姓名）业绩不达标，想了好久没找到好方法，请大侠帮忙...详见附件

一把小刀闯天下

'假设B列有序，，，

Option Explicit

Sub test()
  Dim arr, i, sum, flag, p
  arr = [a1].CurrentRegion.Offset(1).Resize(, 4)
  ReDim brr(1 To UBound(arr, 1) - 1, 1 To 1)
  For i = 1 To UBound(arr, 1) - 1
    sum = sum + arr(i, 4)
    If i > p + 1 Then If arr(i, 3) <> arr(i - 1, 3) Then flag = 1
    If arr(i, 2) <> arr(i + 1, 2) Then
      If flag = 0 Or sum < 8 Then brr(i, 1) = "否"
      sum = 0: flag = 0: p = i
    End If
  Next
  [f2].Resize(UBound(brr, 1)) = brr
End Sub

jdsl88

一把小刀闯天下 发表于 2019-11-30 07:29
'假设B列有序，，，

Option Explicit

好牛的代码，高大上啊，就是理解不了，还请帮忙标注一下

xyxcc177

jdsl88 发表于 2019-11-30 10:01
好牛的代码，高大上啊，就是理解不了，还请帮忙标注一下

拿上代码悄悄地用就行了，还假装很好学的样子，很可爱啊

jdsl88

xyxcc177 发表于 2019-11-30 10:12
拿上代码悄悄地用就行了，还假装很好学的样子，很可爱啊

无可辩驳，被看穿的感觉。只是声明一点，50岁的人学不会了，只是想多了解一下，争取活用这段代码，还请帮帮忙

一把小刀闯天下

'注释就不写了，觉得这没法写。给你改成字典就会明白了

'因为B列有序就按B列姓名划分数据块，对每个块的销售数量进行累计同时品牌加入字典

'当前数据块结束时按条件判断一下即可，当然判断好后需对dic、sum进行初始化，，，

Option Explicit

Sub test()
  Dim arr, i, sum, dic
  Set dic = CreateObject("scripting.dictionary")
  arr = [a1].CurrentRegion.Offset(1).Resize(, 4)
  ReDim brr(1 To UBound(arr, 1) - 1, 1 To 1)
  For i = 1 To UBound(arr, 1) - 1
    sum = sum + arr(i, 4)
    dic(arr(i, 3)) = 1
    If arr(i, 2) <> arr(i + 1, 2) Then
      If dic.Count < 2 Or sum < 8 Then brr(i, 1) = "否"
      sum = 0: dic.RemoveAll
    End If
  Next
  [f2].Resize(UBound(brr, 1)) = brr
End Sub

jdsl88

一把小刀闯天下 发表于 2019-11-30 10:43
'注释就不写了，觉得这没法写。给你改成字典就会明白了

'因为B列有序就按B列姓名划分数据块，对每个块的 ...

非常感谢热心帮忙，先假装懂了，用是非常好用，给大侠点赞