名称不一致
Case "笔记与档案_笔记与档案"
Tables("笔记与档案_Table笔记与档案").Theme = "Office2013Red"
这样即可
If Forms("笔记与档案").Opened Then Tables("笔记与档案_Table短信").Theme = 改回"原来默认的样式" Tables("笔记与档案_Table下校").Theme = "改回"原来默认的样式" Tables("笔记与档案_Table笔记与档案").Theme = "改回"原来默认的样式" Select Case CurrentTable.Name Case "笔记与档案_Table短信","笔记与档案_Table下校","笔记与档案_Table笔记与档案" CurrentTable.Theme = "Office2013Red" End SelectEnd If