【 学点VBA之EXCEL 】一

（1）单元格的显示及隐藏

Private Sub CommandButton1_Click()
    
    If CommandButton1.Caption = "显示OD Entery" Then
        CommandButton1.Caption = "不显示OD Entery"
        Columns(5).Hidden = False    '隐藏列
        Columns(8).Hidden = False
        Columns(10).Hidden = False
        Columns(12).Hidden = False
    Else
        CommandButton1.Caption = "显示OD Entery"
        Columns(5).Hidden = True  '显示列
        Columns(8).Hidden = True
        Columns(10).Hidden = True
        Columns(12).Hidden = True
    End If
    
End Sub

(2) 查找某一列中指定数值出现的位置

'找出指定列中第一个名字为"Transmit"的单元格所在的行数
Function FindFirstRow(col) As Integer
    Dim i
    
    For i = 1 To Sheet1.UsedRange.Rows.Count '使用的最大行数
        If Sheet1.Cells(i, col) = "Transmit" Then
            Exit For
        End If
    Next i
    FindFirstRow = i
End Function

（3）选择某一个单元格

Private Sub CommandButton9_Click()
    Sheet1.Range("A4").Select
End Sub