0
我想要拥有2或3个不同变量(变体)的最大值。他们都是日期。 我有下面的代码,但我相信,我正在做一些非常错误的事情。 你能帮助我吗? 这是代码;Excel - VBA在循环后查找最大变量
Dim QA As Integer: QA = 0
For Each j_WS In Array(WS_1, WS_2, WS3)
Select Case QA
Case 0: j = 1
Case 1: j = 2
Case 2: j = 3
End Select
o = 14 + j * 3
Dim WA1 As Variant
Dim WA2 As Variant
Dim WA3 As Variant
Gorev = Cells(p, o).Address
SlideNo = Cells(p, 34).Address
Egitim_Adi = Cells(2, 3).Address
Dim Satir_bul As Variant
If Not IsError(Satir_bul) Then
Satir_bul = Worksheets(WS_All).Evaluate("=Match(" & Egitim_Adi & "&" & SlideNo & "&" & Gorev & ", '" & j_WS & "'!A:A&'" & j_WS & "'!B:B&'" & j_WS & "'!C:C, 0)")
Else
WA1 = ""
WA2 = ""
WA3 = ""
End If
If j = 1 And Worksheets(WS_All).Cells(8, 3).Value = "Yeni Egitim" Or j = 1 And Worksheets(WS_All).Cells(8, 3).Value = "Tanitim/Reklam" Then
WA1 = Worksheets(j_WS).Cells(Satir_bul, 7).Value
Else: WA1 = Worksheets(j_WS).Cells(Satir_bul, 9).Value
If j = 2 And Worksheets(WS_All).Cells(8, 3).Value = "Yeni Egitim" Or j = 1 And Worksheets(WS_All).Cells(8, 3).Value = "Tanitim/Reklam" Then
WA2 = Worksheets(j_WS).Cells(Satir_bul, 7).Value
Else: WA2 = Worksheets(j_WS).Cells(Satir_bul, 9).Value
If j = 3 And Worksheets(WS_All).Cells(8, 3).Value = "Yeni Egitim" Or j = 1 And Worksheets(WS_All).Cells(8, 3).Value = "Tanitim/Reklam" Then
WA3 = Worksheets(j_WS).Cells(Satir_bul, 7).Value
Else: WA3 = Worksheets(j_WS).Cells(Satir_bul, 9).Value
End If
End If
End If
QA = QA + 1
Next j_WS
If WA1 > WA2 And WA1 > WA3 Then
MAX_DATE = WA1
Else
If WA2 > WA3 And WA2 > WA1 Then
MAX_DATE = WA2
Else
If WA3 > WA2 And WA3 > WA1 Then
MAX_DATE = WA3
Else
MAX_DATE = ""
End If
End If
End If
Worksheets(WS_All).Cells(p, 26).Value = MAX_DATE
Next p
正如你可以看到,几乎所有的东西是一个预定义的整数或类似的和WA1,WA2和WA3是所有日期,我想MAX_DATE是迄今为止太的东西。
WA1,WA2和WA3在循环内不正确。 WA1在第一个回路处正确,WA2在第二个回路处正确,依此类推,但例如在第二个回路处,WA1变空。正因为如此,MAX_DATE值无法正常工作。
实际上,日期类型不是我在这里的主要问题。主要问题是,在第一次循环之后,MAX_DATE不能正确重置自身。它坚持我相信的第一个价值。 – Bildircin13
因为它在循环之外。 –
但它应该在WA回路之外,因为它取决于3个不同的WA值。 – Bildircin13