Excel宏将日期值转换为纯文本，无格式化

9 浏览
0 Comments

Excel宏将日期值转换为纯文本，无格式化

类似问题（但不完全相同）如这个。

我的问题稍有不同。我有一列日期，从mm/dd/yyyy转换为yyyy-mm-dd。例如：

2013-11-04

2013-11-05

2013-12-10

这些单元格的格式为： yyyy-mm-dd。

我在遵循XML模式并导出到XML时遇到问题。我认为问题与单元格的公式有关（当没有公式时似乎可以工作），因此我希望只保留文本并去除格式。

有一个清除>清除格式选项，但会将日期转换回原始状态mm/dd/yyyy。

我还需要在宏中执行此操作。

这是我的伪代码：

对于每个单元格c在我的范围内
    Dim s As String
    s = c.Text
    c.ClearFormats
    c.Text = s
下一个

我以为这样会生效，但实际上并没有...我收到一个需要对象的错误消息。

0

2 答案

0 Comments

Excel宏将日期值转换为纯文本，无格式的原因是，有时我们可能需要将日期值转换为纯文本格式，而不保留任何日期格式或样式。这可能是因为某些特定需求，例如将日期值作为纯文本导出到其他系统或应用程序中。

要解决这个问题，我们可以使用以下Excel宏代码来实现将日期值转换为纯文本的功能：

For Each Cell In myrange
    Dim s As String
    s = "'" & Cell.Text
    Cell.ClearFormats
    Cell.Value = s
Next

这段代码的工作原理是遍历指定范围中的每个单元格。对于每个单元格，我们创建一个新的字符串变量`s`，并将其赋值为`'`加上该单元格的文本值。这里的`'`是用于将文本值强制转换为纯文本格式的技巧。然后，我们清除该单元格的所有格式，并将其值设置为新的纯文本字符串`s`。

通过使用上述代码，我们可以将日期值转换为纯文本格式，而不保留任何日期格式或样式。这将确保在导出或处理日期值时，它们将被视为普通文本而不是日期。

希望上述解决方案能够帮助您实现将Excel日期值转换为纯文本的需求。

0
0 Comments

问题：如何将日期值转换为纯文本，而不保留任何格式？

原因：在Excel中，日期值通常以日期格式显示，而不是作为纯文本。这可能导致在某些情况下，用户需要将日期值转换为纯文本格式，以满足特定的要求或需求。

解决方法：可以使用Excel宏来实现将日期值转换为纯文本的目标。下面是两种可能的解决方法。

解决方法一：

Sub demo()
    Dim Myrange As Range, Cell As Range
    Dim s As String
    Set Myrange = Range("A1:A10")
    For Each Cell In Myrange
        s = Cell.Text
        Cell.ClearFormats
        Cell.Value = s
    Next Cell
End Sub

这个宏的作用是循环遍历指定的单元格范围（这里是A1:A10），将每个单元格的文本值存储在变量s中，然后清除单元格的格式并将其值设置为变量s的值。这样，日期值将被转换为纯文本格式。

解决方法二：

Sub demo()
    Dim Myrange As Range, Cell As Range
    Dim s As String
    Set Myrange = Range("A1:A10")
    For Each Cell In Myrange
        s = Cell.Text
        Cell.NumberFormat = "@"
        Cell.Value = s
    Next Cell
End Sub

这个宏与解决方法一类似，但在将值设置回单元格之前，它将单元格的格式设置为文本格式（@）。这样，日期值将被转换为纯文本格式。

根据具体需求，可以选择使用上述两种方法中的任何一种来解决将日期值转换为纯文本的问题。

0