首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 使用vba对excel操作时出现 424运行时错误 要求对象 [已结帖,结帖人:shenke0213]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • shenke0213
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 结帖率：
    发表于：2008-08-19 14:55:18 楼主
    一下是代码
    请教哪里错了，刚发现没分值了，谅解

    Sub main()
    Call work
    End Sub
    Private Sub work()
    Dim i As Integer
    Dim m As Integer
    For i = 2 To 138
        For m = 2 To 55
        sheet4.Cells((i - 1) * 55 + m, "E") = sheet4.Cells(m, "E").Value
        sheet4.Cells((i - 1) * 55 + m, "F") = sheet4.Cells(i, "A").Value + Mid(sheet4.Cells(i, "f").Value, 2)
        sheet4.Cells((i - 1) * 55 + m, "G") = sheet4.Cells(i, "B").Value + Mid(sheet4.Cells(m, "G").Value, 3)
        sheet4.Cells((i - 1) * 55 + m, "H") = sheet5.Cells(m, "H").Value
        Next m
    Next i

    End Sub

    0  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • shenke0213
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 15:01:531楼 得分:0
    刚刚看了1分钟VB资料编的  应该是比较菜的问题
    望知道的指点下  谢谢。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • shenke0213
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-19 15:54:192楼 得分:0
    自己解决了
    改成
      Cells((i - 1) * 55 + m, "E") = Cells(m, "E").Value
      Cells((i - 1) * 55 + m, "F") = Cells(i, "A").Value & Mid(Cells(i, "f").Value, 2)
        Cells((i - 1) * 55 + m, "G") = Cells(i, "B").Value & Mid(Cells(m, "G").Value, 3)
        Cells((i - 1) * 55 + m, "H") = Cells(m, "H").Value
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • okexcel
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 12:45:343楼 得分:0
    0分的问题只能自己解决！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • slowgrace
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-20 15:18:484楼 得分:0
    呵呵
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved