用EXCEL实现三级联动的vba代码

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim tempStr As String

Dim firstDrawBoxRowCount As Integer
Dim firstDrawBoxColumn As Integer

firstDrawBoxRowCount = 15   --三级联动第一级的单元格行数 ---隐藏的单元格
firstDrawBoxColumn = 1        ---三级联动第一级的单元格列数---隐藏的单元格

Dim secondDrawBoxRowCount As Integer
Dim secondDrawBoxColumn As Integer

secondDrawBoxRowCount = 84 ----三级联动第二级的单元格行数---隐藏的单元格
secondDrawBoxColumn = 4  ----三级联动第二级的单元格列数 ---隐藏的单元格

If Target.Column = 13 Then ------------三级联动第一级的单元格列数---选择第一级显示第二级
     Cells(Target.Row, Target.Column + 1) = ""
     Cells(Target.Row, Target.Column + 2) = ""
     For i = 2 To firstDrawBoxRowCount + 1
        If Trim(Cells(Target.Row, Target.Column)) = Trim(Cells(i, firstDrawBoxColumn)) Then
            tempStr = Trim(Cells(i, firstDrawBoxColumn + 1))
            Cells(Target.Row, Target.Column + 1).Select
                With Selection.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:=tempStr
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .IMEMode = xlIMEModeNoControl
                    .ShowInput = True
                    .ShowError = True
                End With
            Exit For
        End If
     Next i
ElseIf Target.Column = 14 Then------三级联动第二级的单元格列数---选择第二级显示第三级
    For i = 2 To secondDrawBoxRowCount + 1
        If Trim(Cells(Target.Row, Target.Column)) = Trim(Cells(i, secondDrawBoxColumn)) Then
            tempStr = Trim(Cells(i, secondDrawBoxColumn + 1))
             If tempStr = "" Then
               tempStr = " "
             End If
            Cells(Target.Row, Target.Column + 1).Select
                With Selection.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:=tempStr
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .IMEMode = xlIMEModeNoControl
                    .ShowInput = True
                    .ShowError = True
                End With
            Exit For
        End If
     Next i
End If

End Sub

 

 

红色部分是用宏录制的vba

我做了个省市区三级联动的简单例子http://download.csdn.net/source/1495163 ，免分下载，呵呵，

有不明白的，可以留言问。

好了，肚子饿了去吃饭啦！！！