Excel VBA格式的日期与在单元格中键入斜杠？

Question

用户可以在B列中自由输入日期，如下所示：

（英国格式的日期）B列

02/01/2017
02.01.2017
01.01.17
01012017
010117

当我们要运行这些日期格式不一致的报表时，这非常令人沮丧。

我正在尝试创建一个将日期格式化的代码，但是它以如下斜杠输入：

02/01/2017
02/01/2017
01/01/2017
01/01/2017
etc...

这是我的代码：

Dim Cell As Range, CellVal As String
  If Not Intersect(Target, ActiveSheet.Columns("B")) Is Nothing Then
      For Each Cell In Intersect(Target, ActiveSheet.Columns("B"))
          CellVal = Cell.Value
          If (Not CellVal Like "*[!0-9]*") And (Len(CellVal) > 4) Then
              CellVal = Format(CellVal, "@@ @@ @@")
              Cell.Value = CDate(WorksheetFunction.Replace(CellVal, 4, 2, MonthName(Mid(CellVal, 4, 2))))
              Cell.NumberFormat = "dd/mm/yyyy"
          End If
      Next Cell
  End If

仅当用户输入9位数格式时，这才似乎有效：

01012017

然后将其更改为

   01/01/2017

但是如果用户输入

010117

然后将其转换为：

28/01/1955   <---This is wrong

另一方面，用户可以输入点：

01.01.2017

然后，代码根本不起作用。

请有人能告诉我一种更好的方法吗？

Answer 1

只要保持简单明了即可...不？

Dim Cell As Range, CellVal As String, dim Dt as Date
  If Not Intersect(Target, ActiveSheet.Columns("B")) Is Nothing Then
      For Each Cell In Intersect(Target, ActiveSheet.Columns("B"))
          val = Cell.Value

          if instr(val,".")>0 then 'check if this particular char is present
            temp = split(val,".")
            day= temp(0)
            month=temp(1)
            year=temp(2)
            Dt = DateSerial(year, month, day)
            Cell.Value= Format(Dt, "dd/mm/yy") 'you can change this to "dd-mmm-yyyy" or whatever
         else if instr(val,"/")>0 then
            temp =  Split(val,"/")
            day= temp(0)
            month=temp(1)
            year=temp(2)
            Dt = DateSerial(year, month, day)
            Cell.Value= Format(Dt, "dd/mm/yy")
         else if len(val) = 8 then
            day = left(val,2) ' start at first, and take 2
            month = mid(val, 3,2) 'start a 3rd char and take 2
            year = right(val,4)
            Dt = DateSerial(year, month, day)
            Cell.Value= Format(Dt, "dd/mm/yy")
         else if len(val) = 6 then
            day = left(val,2) ' start at first, and take 2
            month = mid(val, 3,2) 'start a 3rd char and take 2
            year = right(val,2)
            year = year +2000
            Dt = DateSerial(year, month, day)
            Cell.Value= Format(Dt, "dd/mm/yy")
         end if
      Next Cell
  End If

我在func上可能会犯一些错误。 这里的参数，因为它是凌晨1:30，我的笔记本电脑还没什么用，但是我想我掌握了主要部分:)