Excel日历还有这功能？真是厉害了！

先来拆解下怎么实现这个功能，先获取到我鼠标点击的单元格日期 然后 随便匹配下(比如用vlookup)提前准备的事项即可。难点在于旁边的标签怎么知道我是点击的哪一天呢？如果是公式引用，那必须要公式范围或引用位置发生变化才行，但我只是点击了某个单元格根本没有修改任何公式，所以能获取到我鼠标实时点击位置才是关键，普通公式实现不了，VBA代码可以。

先准备一个日历框架，填入日期，把单元格格式设置为自定义 d

将日期单元格区域命名为日期

打开VBE界面，可以按快捷键alt+F11 或 点击菜单栏开发工具-visual basic ，找到当前工作表并双击，将代码复制进去

(以下代码可进行复制)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("日期")) Is Nothing Then

        Range("J4") = ActiveCell.Value

    End If

End Sub

代码贴进去后暂时不用管，切回到Excel界面，点击日期区域可以看到右侧J4单元格会有显示(代码中预设获取到点击数据后显示在J4)

在其他sheet表做一个详情页，参考如下，内容可以自定义

在J5单元格写入公式=IFERROR(VLOOKUP(J4,详情!$A$2:$B$15,2,0),"暂无计划")

插入一个形状并填充颜色，为了有便签显示的效果

在形状上插入一个文本框，鼠标点击文本框边框处(鼠标会变成双十字状)，在编辑栏输入=J4

右击文本框，将文本框轮廓设置为无，颜色填充无，再将里面字体居中

将显示日期的文本框复制一个，在编辑栏输入=J5，用来显示具体事项

最后将形状和文本框组合在一个，拖动盖住左边的旁边的文字就完成了。

以上就是交互式日历的制作方法了，多试两遍就能自己做了。