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考勤计算系统
楼主: qwe963asd412
打印 上一主题 下一主题

[求助] 大神帮忙

[复制链接]
TA的精华主题TA的得分主题
11
 楼主| 发表于 2018-1-6 12:54 | 只看该作者 |楼主
lsc900707 发表于 2018-1-6 11:03
什么是新输入的呢? 点保存后就把“记账”这边的数据清空好不好?

比如:现在序9新添加的数据点按钮键只把序9的录入表二,序9以上已经录入过的就不录了。不用清空,因为这个不是记账凭证单
TA的精华主题TA的得分主题
12
 楼主| 发表于 2018-1-6 19:46 | 只看该作者 |楼主
lsc900707 发表于 2018-1-6 11:14
不重复的凭证号就保存过去?

您好!版主 ,请问我这个要求能实现吗?
TA的精华主题TA的得分主题
13
发表于 2018-1-6 20:19 | 只看该作者
本帖最后由 lsc900707 于 2018-1-6 20:29 编辑
qwe963asd412 发表于 2018-1-6 19:46
您好!版主 ,请问我这个要求能实现吗?

肯定能实现,只是我还没理解你的意思。你的凭证号会不会有重复的?
TA的精华主题TA的得分主题
14
发表于 2018-1-6 21:09 | 只看该作者
qwe963asd412 发表于 2018-1-6 19:46
您好!版主 ,请问我这个要求能实现吗?
  • Sub gj23w982()
  •     With Sheets("记账")
  •         i = .Cells(.Rows.Count, 2).End(3).Row
  •         ReDim arr(1 To 1, 1 To 6)
  •         arr(1, 1) = .Cells(i, 1)
  •         arr(1, 2) = "付" & .Cells(i, 3) & "货款" & .Cells(i, 4) * 100000 / 10000 & "万"
  •         arr(1, 3) = .Cells(i, 4) * 100000
  •         arr(1, 5) = .Cells(i, 5)
  •         arr(1, 6) = .Cells(i, 2)
  •     End With
  •     With Sheets("财务")
  •         r = .Cells(.Rows.Count, 2).End(3).Row + 1
  •         Set Rng = .[g:g].Find(arr(1, 6), LookAt:=xlWhole)
  •         If Rng Is Nothing Then
  •              .Cells(r, 2).Resize(1, 6) = arr
  •         Else
  •             MsgBox "凭证已存在,不能重复保存!"
  •         End If
  •     End With
  • End Sub
  • 复制代码

    评分

    参与人数 1鲜花 +2 收起 理由
    qwe963asd412 + 2 感谢帮助
    查看全部评分
    TA的精华主题TA的得分主题
    15
     楼主| 发表于 2018-1-12 19:42 | 只看该作者 |楼主
    TA的精华主题TA的得分主题
    16
     楼主| 发表于 2018-1-13 11:49 | 只看该作者 |楼主
    lsc900707 发表于 2018-1-6 11:03
    什么是新输入的呢? 点保存后就把“记账”这边的数据清空好不好?

    您好!版主      点保存后就把“记账”这边的数据清空代码是多少啊
    TA的精华主题TA的得分主题
    17
    发表于 2018-1-13 11:57 | 只看该作者
    qwe963asd412 发表于 2018-1-13 11:49
    您好!版主      点保存后就把“记账”这边的数据清空代码是多少啊

    你不是不要清空吗?
    TA的精华主题TA的得分主题
    18
     楼主| 发表于 2018-1-13 12:05 | 只看该作者 |楼主
    TA的精华主题TA的得分主题
    19
    发表于 2018-1-13 12:16 | 只看该作者
    qwe963asd412 发表于 2018-1-13 12:05
    现在感觉还是清空好点,再次麻烦您了

    你的意思是记账这边输入完多张凭证的数据后保存并清空,还是一次只录入一张凭证就保存并清空?
    TA的精华主题TA的得分主题
    20
     楼主| 发表于 2018-1-13 12:22 | 只看该作者 |楼主
    lsc900707 发表于 2018-1-13 12:16
    你的意思是记账这边输入完多张凭证的数据后保存并清空,还是一次只录入一张凭证就保存并清空?

    记账这边输入完多张凭证的数据后保存并清空,谢谢
    您需要登录后才可以回帖 登录 | 免费注册
    本版积分规则
    关闭

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

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