VBA - 更改日期语言

VBA - 更改日期语言

vba
Sub ChangeDateFormat()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取最后一行的行数
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历每个日期单元格
    For i = 2 To lastRow
        ' 获取当前单元格的日期值
        Dim dateValue As Date
        dateValue = ws.Cells(i, "A").Value
        
        ' 将日期格式更改为法语的日期格式
        ws.Cells(i, "A").NumberFormat = "[$-40C]d-mmm-yy;@"
        ws.Cells(i, "A").Value = dateValue
    Next i
End Sub