用于根据另一个单元格的值插入特定日期的宏

Question

我有一个带有数字和字母的单元格。例如：06052022_GST_402。在此示例中，“ 06052022”部分是特定日期（2022年6月5日）。我希望宏可以识别该值的日期，并以6/5/2022的格式输入日期。

Answer 1

这是您可以实现这一目标的一种方法：

'Split the string by underscore delimiter into array and grab the first element (this will be string '06052022')
string_date = Split("06052022_GST_402", "_")(0)

'From that string grab each date component and store in a variable
string_year = Right(string_date, 4)
string_month = Mid(string_date, 3, 2)
string_day = Left(string_date, 2)

'Using function `DateValue()` concatenate the string date parts into a date of format `MM/DD/YYYY` which DateValue will turn into an actual date. Store that actual date in variable date_date and do with it as you wish. 
date_date = DateValue(string_month & "/" & string_day & "/" & string_year)

'Stick that date in a cell
Worksheets("Sheet1").Range("A1").value = date_date

您也可以一对一地完成这一丑闻：

x="06052022_GST_402"
Worksheets("Sheet1").Range("A1").value = Mid(x, 3, 2) & "/" & Left(x, 2) & "/" & Mid(x, 5, 4)

但是，这将吐出日期的字符串表示，而不是实际的日期 type ，因此它可以行动在您的工作表中愚蠢，并带有任何期望约会的下游功能。