使用vba to date格式在excel中格式化列

Question

我正在嘗試重置我的Excel工作表的格式，問題是我有4列應該是日期格式。 如何查找標題中包含“DATE”的所有列（例如：最后加工日期，裝配日期，訂單日期等）並將此格式更改為日期？ 注意：需要動態，因為它可能會在未來從C：C更改為E：E或添加更多列。

Sub formatTable(ws As Worksheet)
    On Error Resume Next
    Dim lo As ListObject
    Set lo = ws.ListObjects("FilterParts")

    'Format the table
    ws.UsedRange.Font.Bold = False
    ws.UsedRange.Style = "Normal"

    lo.TableStyle = "TableStyleMedium9"
    'Format every column that has "DATE" in its header to a date column
    'ws.Range("C:C").NumberFormat = "dd/mm/yyyy" and so on


End Sub

Answer 1

只需遍歷您的列，檢查它們的名稱是否包含"Date" ，如果是，則格式化它們：

Set lo = ws.ListObjects("FilterParts")
For Each dataColumn In lo.ListColumns
    If InStr(dataColumn.Name, "Date") > 0 Then
        dataColumn.DataBodyRange.NumberFormat = "dd/mm/yyyy"
    End If
Next dataColumn

每次添加新列時都運行此宏。

Answer 2

較長的編碼選項，但使用Find來避免循環遍歷范圍。

Dim ws As Worksheet
Dim lo As ListObject
Dim rng1 As Range
Dim StrAddress As String

Set ws = ActiveSheet
Set lo = ws.ListObjects("FilterParts")

Set rng1 = lo.Range.Rows(1).Find("Date", , , xlPart)

If Not rng1 Is Nothing Then
    StrAddress = rng1.Address
    rng1.Offset(1, 0).Resize(lo.ListRows.Count, 1).NumberFormat = "dd/mm/yyyy"
    Do
    Set rng1 = lo.Range.Rows(1).Find("Date", rng1, , xlPart)
    rng1.Offset(1, 0).Resize(lo.ListRows.Count, 1).NumberFormat = "dd/mm/yyyy"
    Loop While StrAddress <> rng1.Address
End If

Answer 3

Dim HdrRow as range
Dim Cl as Range
Set HdrRow = ActiveSheet.UsedRange
Set HdrRow = HdrRow.Row(1) 'assuming row 1 of the data contains headers

For Each Cl In HdrRow.cells
    If Instr(lCase(Cl.Value), "date") > 0 then 'This column has "date" in the header text
enter code here
Next Cl

從這里你可以存儲一個循環的單元格/列號或立即循環此列中的單元格....

如果您需要更多幫助，這應該讓您開始回復。

Answer 4

嘗試：

Range("A1","A50000").NumberFormat = "dd\/mm\/yyyy"