感谢贴，感谢各位大神。

494566637 · 发表于 2017-1-7 16:01

此贴目的主要是为了由衷的感谢论坛里的大神，同时也为如我等之小白提供一丝帮助！
首先感谢由ID“Look我在这“提供的关于相同班组拍摄的不同规格的胶片数量。能够自动算出代号s2拍摄的规格120,180,240胶片的总数量。公式为“=SUMIFS(H:H,K:K,$N$5,G:G,O5)“【公式一】。感谢 Look我在这！

其次感谢由ID"piny"提供的“=SUMPRODUCT((Sheet2!$A$2:$A$9=LOOKUP(99,$C$2:C$2))*(Sheet2!$B$2:$B$9=$B4)*(Sheet2!$C$2:$C$9=C$3)*(Sheet2!$D$2:$D$9))”和由ID"山菊花"提供的“C4=SUMIFS(Sheet2!$D:$D,Sheet2!$A:$A,MAX($C$2:C$2),Sheet2!$B:$B,$B4,Sheet2!$C:$C,C$3)”还有由ID"sqrall900"提供的“=SUMIFS(Sheet1!$K$2:$K$72,Sheet1!$H$2:$H$72,LOOKUP(99,$GJ$2:GJ$2),Sheet1!$I$2:$I$72,$B4,Sheet1!$J$2:$J$72,--MID(GJ$3,2,99))”、“=SUMIFS(Sheet1!$K$2:$K$200,Sheet1!$H$2:$H$200,LOOKUP(99,$C$5:C$5),Sheet1!$I$2:$I$200,$B7,Sheet1!$J$2:$J$200,--MID(TRIM(C$6),2,99))”公式能将表二中的数量一栏中的数值对应到表一里。表一中编号、代号、规格都需要和表二对应，三项确定一项。感谢piny、山菊花、sqrall900三位大神！（以上公式皆记为公式二）

在其次感谢由ID"sqrall900"提供的“=sumif($F:$F,$N2,C:C)”公式【公式三】，可以解决相同人做了多少不同的事的汇总。再次感谢大神sqrall900！
然后继续感谢ID"sqrall900"提供的公式“=LOOKUP(,0/((LOOKUP(99,$C5:C5)=Sheet1!$Q2:$Q100)*ISNUMBER(FIND(LEFT(C2,2),Sheet1!$R2:$R100))),Sheet1!$U2:$U100)”【公式四】用于解决两个表格横向对应的问题。再再次感谢大神sqrall900！

最后感谢VBA模块ID"jsgj2023"提供的当证书有效期不足150天的时候，弹出一个对话框提示“某某”的“某某证书”将于“某某”时间到期。Sub lfy_Adele()
Dim arr, brr()
arr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr), UBound(arr, 2))
For x = 3 To UBound(arr)
      k = k + 1
      If arr(x, 2) <> "" Then
         brr(k, 1) = arr(x, 2)
      Else
         brr(k, 1) = brr(k - 1, 1)
      End If
      brr(k, 2) = arr(x, 5): brr(k, 3) = arr(x, 7)
      brr(k, 4) = arr(x, 9)
Next x
On Error Resume Next
For y = 1 To UBound(brr)
      If brr(y, 2) <> "" Then
         s = brr(y, 3) - Now()
         If s < 150 Then
            MsgBox brr(y, 1) & "的" & brr(y, 2) & "证书有效期即将过期。"
         End If
         t = (brr(y, 4) - Now()) / 30
         If t < 15 Then
            MsgBox brr(y, 1) & "的" & brr(y, 2) & "证书注册有效期即将过期。"
         End If
      End If
Next y
End Sub
感谢大神jsgj2023！
在此衷心的感谢各位大神的付出和指教，真心的感谢！