Excel - 当我在同一单元格中输入月份中的某一天时，自动用特定的月份和年份填充单元格

问：

当我输入日期并将单元格格式为 00/00/0000 时，我正在尝试在单元格中自动包含特定的月份和年份。有没有办法在VBA中实现这一点？

任何帮助将不胜感激。

我尝试过这样做，但它似乎没有选择包含月份和年份的日期单元格：

子 AddMonthYearToDate（） 将 dateCell 调暗为范围 将 inputRange 调暗为范围 将 dateString 调暗为字符串 暗淡的月份作为字符串 昏暗的一年作为字符串 将 targetCell 调暗为范围

' Define the cell containing the month and year (change this to your actual cell)
Set dateCell = Range("G1")

' Define the range where you type the number (change this to your actual range)
Set inputRange = Range("L2:M100")

' Loop through each cell in the input range
For Each targetCell In inputRange
    ' Check if the input cell is not empty
    If targetCell.Value <> "" Then
        ' Extract the month and year from the date cell
        dateText = dateCell.Value
        
        ' Parse the month and year from the date text
        month = Split(dateText, " ")(1)
        year = Split(dateText, " ")(2)
        
        ' Create the final date string
        dateString = "01/" & Format(DateValue(month & " 1, " & year), "mm/yyyy") & "/" & targetCell.Value
        
        ' Check if the resulting date is valid
        If IsDate(dateString) Then
            ' Set the formatted date in the input cell
            targetCell.Value = Format(CDate(dateString), "dd/mm/yyyy")
        Else
            MsgBox "Invalid date. Please enter a valid number in the input cell.", vbExclamation
        End If
    End If
Next targetCell

结束副