回历日期格式

Question

我有一些从网站下载的数据，其中一列包含回历日期。为了使该列成为正确的日期列，我应用了以下格式：

但是除非我输入单元格（通过双击或 F2）然后按 Enter 键，否则它不会被视为日期并与右侧对齐的问题

因为行数大我用的方式不实用

我尝试了以下方法：

• 将单元格复制到记事本，然后再次粘贴到 excel 中，但不起作用
• 将日期分隔符从“-”替换为“.”然后将日期分隔符替换回“-”，就好像日期分隔符是“。”并替换为通常适用于公历日期的“-”，将其从文本转换为日期
• 创建了一个 VBA 代码，应用所选单元格的代码进入和退出单元格以刷新，请检查以下内容：

Sub HijriDateEnforce()
  Dim cel As Range
  Dim selectedRange As Range
  Set selectedRange = Application.Selection
  For Each cel In selectedRange.Cells
    Selection.NumberFormat = "[$-1970000]B2dd/mm/yyyy;@"
    SendKeys "{F2}~"
  Next cel
End Sub

但是如果行数非常大，代码会因为未知原因停止一段时间，我必须为剩余的单元格再次运行它

Answer 1

我讨厌建议 .Select，但我之前建议的内容在您的情况下不起作用。所以试试这个

代码

Sub HijriDateEnforce()
    Dim acell As Range
    Dim selectedRange As Range
    
    Set selectedRange = Application.Selection
    selectedRange.NumberFormat = "[$-1970000]B2dd/mm/yyyy;@"
    
    For Each acell In selectedRange
        acell.Select
        Application.SendKeys "{F2}"
        Application.SendKeys "{ENTER}"
        DoEvents
    Next acell
End Sub

行动中