excel - 在vba更改数字顺序中将 "."替换为 "/"宏

Question

我需要改变“。”在 Excel vba 中使用带有宏的“/”，它可以工作，但是当我激活宏时，它会将单元格的值从 10.11.2016 更改为 11/10/2016。
为什么会改变顺序？单元格没有任何格式。

Range("D1").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

Answer 1

该单元格没有格式，但它反射(reflect)了区域设置中的格式。查看控制面板 | 时钟和地区 | 地区 .替换文本的那一刻，它变成了一个日期，然后它只是从区域设置中选择格式。

尝试这个

With Range("D1")
    .NumberFormat = "@"
    .Value = Replace(.Value, ".", "/")
End With

我在这里所做的是将单元格的格式转换为文本，然后替换字符。

Great, it works! But can I also replace "." with "/" in the entire column D with this method without using a loop? If yes how? Thank you – Masca2056 7 mins ago

尝试这个。我假设 10 是最后一行。

Sub Sample()
    Columns(4).NumberFormat = "@"
    [D1:D10] = [INDEX(SUBSTITUTE(D1:D10,".","/"),)]
End Sub

看到这个 LINK有关使用上述方法的说明。