PrivateSubWorkbook_SheetActivate(ByValShAsObject)IfSh.Name=“统计表”ThenApplication.SendKeys“%x{F}”ElseApplication.SendKeys“%h{F}”EndIfEndSub上述代码段的功能是：对工作簿的SheetActivate事件编写代码，激活需要的选项卡