突出显示识别多个单元格的VBA

我有以下的VBA脚本：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Not Application.Intersect(Target, Range("calendar")) Is Nothing Then [selectedCell1] = ActiveCell.Value Application.ScreenUpdating = True End If End Sub 

目前，它只识别一个单元格被高亮显示，并将其返回到名为selectedCell1的特定单元格中。

这是我的例子：

如果我select包含date“03/08/2017”的单元格N25，它会将“03/08/2017”返回到另一个名为“selectedCell1”的图纸单元格中。

但是我想要做的是，我意识到我已经select了整个星期，然后在单元格“selectedCell1”中返回整个星期的范围。 看到：

然后在单元格“selecetedCell1”中返回01/08/2017 – 05/08/2017（即整个范围）。

不知道如何调整这个VBA脚本。 帮助将不胜感激。 谢谢。

Answer 1

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Not Application.Intersect(Target, Range("calendar")) Is Nothing Then If Target.Cells.Count = 1 Then [selectedCell1] = Target.Value Else [selectedCell1] = Format(Application.WorksheetFunction.Min(Target), "dd/mm/yyyy") & " - " & Format(Application.WorksheetFunction.Max(Target), "dd/mm/yyyy") End If Application.ScreenUpdating = True End Sub