excel VBA编程?

发布网友

我来回答

共1个回答

热心网友

用下面代码

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim m As String

    If Target.Row = 1 And Target.Column = 1 Then

        m = Target.Value

        With Sheets("Sheet2").Rows(m).Borders(xlEdgeLeft)

            .LineStyle = xlContinuous

            .ColorIndex = xlAutomatic

            .TintAndShade = 0

            .Weight = xlThin

        End With

        With Sheets("Sheet2").Rows(m).Borders(xlEdgeTop)

            .LineStyle = xlContinuous

            .ColorIndex = xlAutomatic

            .TintAndShade = 0

            .Weight = xlThin

        End With

        With Sheets("Sheet2").Rows(m).Borders(xlEdgeBottom)

            .LineStyle = xlContinuous

            .ColorIndex = xlAutomatic

            .TintAndShade = 0

            .Weight = xlThin

        End With

        With Sheets("Sheet2").Rows(m).Borders(xlEdgeRight)

            .LineStyle = xlContinuous

            .ColorIndex = xlAutomatic

            .TintAndShade = 0

            .Weight = xlThin

        End With

    End If

End Sub

代码放在

Excel怎样快速多表查找数据列表