平时用公式表达的，如何用代码

sampsonpon

详述如图所示

大灰狼1976

分解到这个程度，代码和公式没有本质区别，无非就是加个循环。

sampsonpon

大灰狼1976 发表于 2024-10-17 16:45
分解到这个程度，代码和公式没有本质区别，无非就是加个循环。

要的就是你这个循环

小凡、、、

不调用内置函数的话，计算第几周的函数按逻辑写会稍微长一些

大灰狼1976

小凡、、、 发表于 2024-10-17 16:47
不调用内置函数的话，计算第几周的函数按逻辑写会稍微长一些

第几周用VBA可以这样：format(date,"ww")，或者datepart("ww",date)

小凡、、、

大灰狼1976 发表于 2024-10-17 16:53
第几周用VBA可以这样：format(date,"ww")，或者datepart("ww",date)

ok  学习了

ykcbf1100

一年中的第几周VBA表达：
1、DatePart("ww", date)
2、WorksheetFunction.WeekNum(date, 21)

sampsonpon

小凡、、、 发表于 2024-10-17 16:47
不调用内置函数的话，计算第几周的函数按逻辑写会稍微长一些

这样直接对单元格处理，计算速度太慢
Sub test()
   
    With Sheet17
        For i = 2 To .Cells(Rows.Count, "f").End(3).Row
            .Cells(i, 1) = Replace(.Cells(i, "l") & .Cells(i, "m"), " ", "")
            .Cells(i, 2) = .Cells(i, "ae") - .Cells(i, "p")
            .Cells(i, 3) = .Cells(i, "q") - .Cells(i, "b")
            .Cells(i, 4) = IIf(Date > .Cells(i, "t"), "Y", "N")
            .Cells(i, 5) = Format(Year(.Cells(i, "t")) & DatePart("ww", .Cells(i, "t")))
        Next i
    End With

End Sub

sampsonpon

ykcbf1100 发表于 2024-10-17 20:16
一年中的第几周VBA表达：
1、DatePart("ww", date)
2、WorksheetFunction.WeekNum(date, 21)

这样直接对单元格处理，计算速度太慢。老师您最擅长数组
Sub test()
   
    With Sheet17
        For i = 2 To .Cells(Rows.Count, "f").End(3).Row
            .Cells(i, 1) = Replace(.Cells(i, "l") & .Cells(i, "m"), " ", "")
            .Cells(i, 2) = .Cells(i, "ae") - .Cells(i, "p")
            .Cells(i, 3) = .Cells(i, "q") - .Cells(i, "b")
            .Cells(i, 4) = IIf(Date > .Cells(i, "t"), "Y", "N")
            .Cells(i, 5) = Format(Year(.Cells(i, "t")) & DatePart("ww", .Cells(i, "t")))
        Next i
    End With

End Sub

sampsonpon

大灰狼1976 发表于 2024-10-17 16:45
分解到这个程度，代码和公式没有本质区别，无非就是加个循环。

这样直接对单元格处理，计算速度太慢、超级慢
Sub test()
   
    With Sheet17
        For i = 2 To .Cells(Rows.Count, "f").End(3).Row
            .Cells(i, 1) = Replace(.Cells(i, "l") & .Cells(i, "m"), " ", "")
            .Cells(i, 2) = .Cells(i, "ae") - .Cells(i, "p")
            .Cells(i, 3) = .Cells(i, "q") - .Cells(i, "b")
            .Cells(i, 4) = IIf(Date > .Cells(i, "t"), "Y", "N")
            .Cells(i, 5) = Format(Year(.Cells(i, "t")) & DatePart("ww", .Cells(i, "t")))
        Next i
    End With

End Sub