请求写一段“鼠标点击出效果”的VBA代码

涵辛

如附件，打开“02产品结构汇编”的“组合件”，采用鼠标触发方式实现如下效果：
在 A5：G65536 区域内，
    当 鼠标点击 A  列非空单元格时，自这一单元格向下 A  列连续空白的行就都自动隐藏起来，再次点击 A  列非空单元格时，这些隐藏的行就自动显示出来，再点在藏，再点再开，......
     举例说明，如附件：
当鼠标点击 A5  时，则第 6 和第 7 行自动隐藏；
当鼠标点击 A8  时，则第 9 和第 10  及第 11  行自动隐藏；
当鼠标点击 A12  时，则第 13 和第 14  行自动隐藏；
当鼠标点击 A5  时，则第 16 和第 17   行自动隐藏；
当鼠标点击 A18  时，则第 19 和第 20  及第 21  行自动隐藏；

当再次点击 A5、A8、A12、A18  时，那些隐藏的行又都自动显示；

以上，请高手们用 VBA 代码予以实现，谢谢。

山菊花

涵辛_02产品结构汇编.zip (9.97 KB, 下载次数: 99)

2009-10-28 16:00 上传

点击文件名下载附件

涵辛

2楼 山菊花 先生，您好！
    哇！您真高手！这么短的时间做出这样漂亮的作品，神人也！谢谢您了，大师。