使用 VBA excel 2010 使文本到列刷新答案

【问题标题】：Make Text to columns refresh happen using VBA excel 2010使用 VBA excel 2010 使文本到列刷新
【发布时间】：2014-02-05 00:49:55
【问题描述】：

我尝试创建一个宏，该宏会自动格式化列值以更改日期和时间，但是当宏运行时，单元格值不会自动更新。

我目前需要使用 VBA for excel 2010 进行以下功能选择。

数据/文本到列/下一步按钮（保留默认“分隔”）/下一步按钮（保留默认“标签”）/下一步按钮（保留默认“常规”/完成按钮

我尝试过录制功能，但 VBA 不起作用。 HELPPPPPPPPPPPPPPPPPPPPP！！！！！！

到目前为止，这是我的代码。

' Autochange_Extractdata_Date_Format 宏 ' Sheets("数据提取").Select

Columns("AK:AK").Select

Selection.NumberFormat = "m/d/yyyy"

Columns("AK:AK").Select

Selection.TextToColumns Destination:=Range("AK1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True

结束子

【问题讨论】：

您是否尝试将时间保存在单独的列中？
不，我只是试图刷新列以允许单元格内容以新更改的格式显示。
所以要澄清一下，究竟是什么不起作用？从我看到的内容来看，格式应该设置正确。
它不刷新单元格以便显示新格式它保持旧格式，直到您输入单元格并刷新单元格
运行宏之前单元格的格式是什么？是否格式化为文本？是否有前导撇号？

标签： excel vba refresh cell

【解决方案1】：

从您描述的症状来看，您的字段最初是 TEXT 格式，这就是为什么将其更改为数字格式没有任何作用。当您单击单元格时，它会自动将其转换为数字。

试试这个

Columns("AK:AK").NumberFormat = "m/d/yyyy"
Columns("AK:AK").Value = Columns("AK:AK").Value '//This will convert each properly

Columns("AK:AK").Select

Selection.TextToColumns Destination:=Range("AK1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True

【讨论】：

不幸的是，它与原始脚本完全相同。

【解决方案2】：

因为我不知道如何更新单元格值，所以我设法使用此代码将单元格值从日期时间更改为日期。

工作愉快！！！

' Autochange_Extractdata_Date_Format 宏

Sheets("Data Extract").Select
Columns("AK:AK").Select
Selection.NumberFormat = "m/d/yyyy"
Range("AK4:AK999999").Select

Dim c As Range

For Each c In Selection
    Dim v As String
    v = c.value

    If c.value <> Empty Then
        c.value = DateValue(c.value)
    Else
        Exit For
    End If
 Next
 Range("A1").Select

结束子

【讨论】：