第一次编程是对的,在做第二次就不行不知道为什么?

qq645857914

第一次编程是可以的,那要做第二次编程做了不能实现想要的,
帮我看一下谢谢你们了.看附件就明白.

LAOMALIN

你还是学自己学一下基础吧，单元格地址都变了，当然不行，因为原 If Target.Address = "$B$3" Then中的B3的单元格相当是一个开关

[ 本帖最后由 LAOMALIN 于 2009-7-4 11:18 编辑 ]

styhs

Worksheet_Change事件触发中，已设置限制    If Target.Address = "$B$3" Then

SaxophoneGd

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSql As String
Dim iStep As Integer
With Target
    If .Address = "$B$3" Or .Address = "$B$15" Then
        If iConn.State = ADODB.adStateClosed Then
            iConn.Open "Provider=Microsoft.Jet.oledb.4.0;Extended Properties='Excel 8.0;Imex=1;Hdr=Yes;';Data Source=" & ThisWorkbook.PATH & "\罗马柱.xls"
        End If
        Range(.Offset(1, 0), .Offset(7, 0)).ClearContents
        '[B4:B10].ClearContents
        iSql = "Select [门头款式],[数量(个)],[门宽],[门高],[主门高度],[门头高度] From [Sheet1$] Where 编号=" & .Value
        iRec.Open iSql, iConn, 3, 3
        If iRec.RecordCount Then
'            For iStep = 4 To 8
'                Cells(iStep, 2) = iRec.Fields(iStep - 4)
'            Next
            For iStep = 1 To 4
                .Offset(iStep, 0) = iRec.Fields(iStep - 1)
            Next
            '[B10] = iRec.Fields(5)
            .Offset(7, 0) = iRec.Fields(5)
        End If
        iRec.Close
    End If
End With
End Sub

[ 本帖最后由 SaxophoneGd 于 2009-7-4 11:32 编辑 ]