ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 1342|回复: 3

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-7-4 10:47 | 显示全部楼层 |阅读模式
第一次编程是可以的,那要做第二次编程做了不能实现想要的,
帮我看一下谢谢你们了.看附件就明白.

大门头.rar

13.08 KB, 下载次数: 7

罗马柱.rar

10.32 KB, 下载次数: 8

TA的精华主题

TA的得分主题

发表于 2009-7-4 11:11 | 显示全部楼层
你还是学自己学一下基础吧,单元格地址都变了,当然不行,因为原 If Target.Address = "$B$3" Then中的B3的单元格相当是一个开关

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

TA的精华主题

TA的得分主题

发表于 2009-7-4 11:12 | 显示全部楼层
Worksheet_Change事件触发中,已设置限制    If Target.Address = "$B$3" Then

TA的精华主题

TA的得分主题

发表于 2009-7-4 11:17 | 显示全部楼层

把代码改为以下试试

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 编辑 ]
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-8-26 17:01 , Processed in 0.129501 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表