VBA 实用集锦

1. 批量取消隐藏工作表

Sub iVisibleTrue()'' 在工作薄中手动将隐藏的工作表显示需要一个一个进行，比较麻烦，用VBA批量操作。'    Dim i As Integer    For i = 1 To Worksheets.Count        Worksheets(i).Visible = True    NextEnd Sub

1. 突出显示包含相同姓名老师所在的单元格
   单元格内容为“课程\n姓名”，一个教师可能带多门课程

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim iArea As Range    Set iArea = Range("B5:AJ15")    iArea.Interior.ColorIndex = xlNone    If Target.Count > 1 Then        Set Target = Target.Cells(1)    End If    If Application.Intersect(Target, iArea) Is Nothing Then        Exit Sub    End If    Dim rng As Range    For Each rng In iArea        If Right(rng.Value, 3) = Right(Target.Value, 3) Then            rng.Interior.ColorIndex = 39        End If    NextEnd Sub