188宝金博页面版

  • 图案背景
  • 纯色背景
视图
标记
批注
批注本地保存成功,开通会员云端永久保存 去开通
t51sfgm

上传于:2016-02-24

粉丝量:2

该文档贡献者很忙,什么也没留下。


  • 相关
  • 目录
  • 笔记
  • 书签

188宝金博页面版:更多相关文档

  • 自动添加宏代码

    星级: 1 页

  • 【最新】宏代码

    星级: 4 页

  • 或相同处理器

    星级: 2 页

  • Excel工作表到时自动删除公式的宏代码

    星级: 4 页

  • 拆开

    星级: 15 页

  • 把相同的词汇或句子

    星级: 2 页

  • 技巧109 动态按行或列生成序列号

    星级: 2 页

  • 多表远程自动抄报控制系统

    星级: 2 页

  • 部分不同元素定序(或部分相同元素)的排列问题的解题策略

    星级: 2 页

  • 巧解相同元素的排列问题

    星级: 5 页

  • 146 按行或列卷动窗口

    星级: 2 页

暂无目录

点击鼠标右键菜单,创建目录

暂无笔记

选择文本,点击鼠标右键菜单,添加笔记

暂无书签

在左侧文档中,点击鼠标右键,添加书签

188宝金博页面版: 按行或某相同元素自动拆开多表宏代码

下载积分: 1000

内容提示: 从辅助核查询导出明细自动按部门生成利润表的宏代码 以下宏代码可以从金蝶 EAS 导出辅助核算明细表,按各利润中心或部门自动生成利润表和对应的各成本费用明细。不需要手动一个表一个表筛选复制,适合连锁企业式核算的应用。也适合将一个表里内容,按某一元素自动分成多个表格。 Sub 费用() ' ' Dim i As Integer Dim trows As Integer Dim sbegin As Integer Dim send As Integer Dim fstring As String Dim rstring As String Dim cstring As String Dim filename As String Dim afile As String Dim path As String Dim tempfile As String Applicatio...

文档格式:DOCX | 页数:3 | 浏览次数:155 | 上传日期:2016-02-24 11:37:51 | 文档星级:
从辅助核查询导出明细自动按部门生成利润表的宏代码 以下宏代码可以从金蝶 EAS 导出辅助核算明细表,按各利润中心或部门自动生成利润表和对应的各成本费用明细。不需要手动一个表一个表筛选复制,适合连锁企业式核算的应用。也适合将一个表里内容,按某一元素自动分成多个表格。 Sub 费用() ' ' Dim i As Integer Dim trows As Integer Dim sbegin As Integer Dim send As Integer Dim fstring As String Dim rstring As String Dim cstring As String Dim filename As String Dim afile As String Dim path As String Dim tempfile As String Application.DisplayAlerts = False 'Dim trows As Integer 'Workbooks.Open ("d:\001 龙归利润表.xls") 'Workbooks.Open ("d:\002 均禾利润表.xls") Set fs = CreateObject("Scripting.FileSystemObject") '文件工作流要用到 fileexists i = 2 path = "d:\" tempfile = path + "template.xls" Windows("成本明细.xls").Activate Sheets("费用明细").Select fstring = Cells(i, 1).Value afile = Cells(i, 2).Value + "利润表.xls" filename = path + afile sbegin = 2 trows = 1 Do While fstring <> "" 'For i = 2 To 100 If (fstring <> Cells(i, 1).Value) Then send = i - 1 fstring = Cells(i, 1) '? rstring = "A" & sbegin & ":" & "D" & send

188宝金博页面版:关注我们

  • 新浪微博

关注188宝金博页面版公众号

188宝金博页面版
阅读
APP
阅读
返回
顶部
188宝金博页面版官网登录在线平台入口(2026已更新)—江苏协昌电子科技股份有限公司