Public WithEvents xlApp AsApplication

Private Sub xlApp_SheetSelectionChange(ByValSh As Object, ByVal Target As Range)

    If TypeName(Selection) = "Range"Then

        ShowDifferenceStatus Selection

    End If

End Sub

在标准模块中，输入下面的代码：

Public gxlApp As

类

Public SubShowDifferenceStatus(rSel As Range)

    Dimwf As WorksheetFunction

    Dim vStatus As Variant

• 好身材都不是一朝一夕就练出来的学会其中的技巧才会让你事半功倍
• “东方—2018”战略演习：中方参演官兵话实战
• 医生手绘示意图普及急救常识 希望精进绘画技巧展现更多
• 汇总目录|别找了，你需要的excel教程全在这里！按时更新……
• 试用期就破格升职加薪？这位95后做的excel图表遭曝光……
• 你会用excel中这5个明星快捷键吗？
• excel函数避坑指南，建议收藏！【Excel教程】
• 5个让你工作效率飞升的常用必会Excel技巧【Excel教程】
• 曾被高手们玩坏的Excel超级表【Excel教程】
• 【直播预告】今晚8点Excel极速贯通班21期开课