VBA 搜索值然后將其轉換為 =weeknum

Question

我想做以下事情；

圖片

它應該按以下方式工作；

• 該代碼在所有 A 列中搜索日期（從 A3 開始）
• 如果有日期，那么它會將其轉換為（開始 B3）B 列中的周數
• 如果沒有找到日期，那么它應該將單元格留空

這是我到目前為止所擁有的：

For i = 1 To qColumns
    If Range(oColNameE & 3, oColNameE & qRows).Value = vbNullString Then
        Range(oColNameF & 3, oColNameF & qRows).Value = ""
    Else: Range(oColNameF & 2, oColNameF & qRows).Value = "=weeknum"
    End If
Next

Answer 1

試試這個，我的評論看起來很難讀。

Dim weeknum as String

weeknum = "=WEEKNUM(RC[-1]-95,11)"

For i = 1 To qCollumns
If Range(oColNameE & 3, oColNameE & qRows).Value = vbNullString Then
    Range(oColNameF & 3, oColNameF & qRows).Value = ""
        Else: Range(oColNameF & 2, oColNameF & qRows).FormulaR1C1 = weeknum 
        End If
Next