Hijri日期格式

Question

我有一些数据是从一个网站下载的，其中一列数据包含Hijri日期。为了将此列作为适当的日期列，我应用了以下格式：

​

​

但是，除非我输入单元格(通过双击或F2)，然后按enter键，否则它不会被视为日期并与右边对齐。

因为行数很大，所以我使用的方式是不切实际的

我尝试了以下几点：

• 将单元格复制到记事本，然后再粘贴到excel中，但
• 没有工作，将日期分隔符从"-“替换为”-“。然后将其替换为"-“，就好像日期分隔符是”。“将其替换为"-“，该”-“通常用于从文本转换为日期的公历日期，
• 创建了一个VBA代码，将所选单元格的代码用于输入单元格并退出这些单元格以进行刷新，请检查下面的

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

但是，由于未知的原因，如果行数很大，它会在一段时间后停止，我必须再次运行它来处理剩余的单元格。

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

In Action

​

​