ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 177|回复: 25
打印 上一主题 下一主题

[求助] 大神帮忙

[复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2018-1-5 18:46 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
提示:变量未定义



Sub gj23w98()
    Dim brr(1 To 10000, 1 To 6)
    With Sheets("记账")
         arr = .Range("a1:f" & .Cells(.Rows.Count, 1).End(3).Row)
         For i = 6 To UBound(arr)
             If Len(arr(i, 1)) > 0 Then
                 m = m + 1
                 brr(m, 1) = arr(i, 1)
                 brr(m, 2) = arr(i, 3)
                 brr(m, 3) = "付" & arr(i, 2) & "货款" & arr(i, 4) * 100000 / 10000 & "万"
                 brr(m, 4) = arr(i, 4) * 100000
                 brr(m, 5) = arr(i, 5)
                 brr(m, 6) = arr(i, 6)
             End If
         Next
    End With
    If m > 1 Then
        With Sheets("记账凭证")
             r = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
             .Cells(r, 1).Resize(m, 6) = brr
        End With
    Else
        MsgBox "没有数据需要保存!"
    End If
End Sub


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 有用有用 无用无用
TA的精华主题TA的得分主题
2
发表于 2018-1-5 19:05 | 只看该作者
楼主检查下模块顶部,是不是有 Option Explicit  删除即可

评分

参与人数 1鲜花 +2 收起 理由
qwe963asd412 + 2 感谢帮助
查看全部评分
TA的精华主题TA的得分主题
3
 楼主| 发表于 2018-1-5 20:33 | 只看该作者 |楼主
liulang0808 发表于 2018-1-5 19:05
楼主检查下模块顶部,是不是有 Option Explicit  删除即可

非常感谢,,再请教一下
我想调整下面代码表一对应表二的位置怎么弄


Sub gj23w98()
    Dim brr(1 To 10000, 1 To 6)
    With Sheets("记账")
         arr = .Range("a1:f" & .Cells(.Rows.Count, 1).End(3).Row)
         For i = 6 To UBound(arr)
             If Len(arr(i, 1)) > 0 Then
                 m = m + 1
                表一A对应表二B
                 brr(m, 1) = arr(i, 2)
                表一B对应表二G
                brr(m, 2) = arr(i, 7)
                 brr(m, 3) = "付" & arr(i, 2) & "货款" & arr(i, 4) * 100000 / 10000 & "万"
                 brr(m, 4) = arr(i, 4) * 100000
                 brr(m, 5) = arr(i, 5)
                 brr(m, 6) = arr(i, 6)
             End If
         Next
TA的精华主题TA的得分主题
4
发表于 2018-1-5 20:40 | 只看该作者
qwe963asd412 发表于 2018-1-5 20:33
非常感谢,,再请教一下
我想调整下面代码表一对应表二的位置怎么弄

没有附件,无法了解表格结构的
TA的精华主题TA的得分主题
5
发表于 2018-1-5 20:45 | 只看该作者
本帖最后由 lsc900707 于 2018-1-5 20:50 编辑
qwe963asd412 发表于 2018-1-5 20:33
非常感谢,,再请教一下
我想调整下面代码表一对应表二的位置怎么弄

原来那个帖子呢?原来没有G列的呀
TA的精华主题TA的得分主题
6
 楼主| 发表于 2018-1-6 08:44 | 只看该作者 |楼主
lsc900707 发表于 2018-1-5 20:45
原来那个帖子呢?原来没有G列的呀

不知道被那个版主给删了,我还有其它excel表也是同样的,但位置有点不同
TA的精华主题TA的得分主题
7
发表于 2018-1-6 08:50 | 只看该作者
qwe963asd412 发表于 2018-1-6 08:44
不知道被那个版主给删了,我还有其它excel表也是同样的,但位置有点不同

重新上传一个附件吧,把敏感信息修改一下。

评分

参与人数 1鲜花 +2 收起 理由
qwe963asd412 + 2 感谢帮助
查看全部评分
TA的精华主题TA的得分主题
8
 楼主| 发表于 2018-1-6 10:43 | 只看该作者 |楼主
lsc900707 发表于 2018-1-6 08:50
重新上传一个附件吧,把敏感信息修改一下。

麻烦您了,谢谢
还一个要求就是表一点保存的时候只把新输入的数据录入表二里,


工作表.rar (20.46 KB, 下载次数: 3)
TA的精华主题TA的得分主题
9
发表于 2018-1-6 11:03 | 只看该作者
qwe963asd412 发表于 2018-1-6 10:43
麻烦您了,谢谢
还一个要求就是表一点保存的时候只把新输入的数据录入表二里,

什么是新输入的呢? 点保存后就把“记账”这边的数据清空好不好?
TA的精华主题TA的得分主题
10
发表于 2018-1-6 11:14 | 只看该作者
qwe963asd412 发表于 2018-1-6 10:43
麻烦您了,谢谢
还一个要求就是表一点保存的时候只把新输入的数据录入表二里,

不重复的凭证号就保存过去?
您需要登录后才可以回帖 登录 | 免费注册
本版积分规则
关闭

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

关注官方微信,每天坐享新鲜教程
手机版|关于我们|联系我们|ExcelHome    GMT+8, 2018-1-18 19:34 , Processed in 0.254862 second(s), 17 queries , Gzip On, MemCache On.
Powered by Discuz! X3.3 © 2001-2017 Wooffice Inc.
    沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
快速回复 返回顶部 返回列表
99uu优优