快表帝国客服01 发表于 2024-4-18 08:27:09

命令树按列合并

本帖最后由 快表帝国客服01 于 2024-4-18 08:45 编辑

命令树按列合并



需求:表间公式统计后根据填充的值,利用合并单元格功能,将相同的值自动进行合并,合并后再通过命令树将区域内将列值相同的进行合并。白话就是:将明细表中的小计、合计、总计的单元格合并起来。
方法:通过命令树对区域内的值进行遍历,如果左右两列相同则合并。
效果:
1、下图为模板界面,图中的数据区域别名为Area


2、下图为点击按钮执行命令树后将合计和总计合并后的效果



写法:



    如果("#当前按钮名称"="Button 1")
      循环(#r,Rows(Area))
      循环(#c,Columns(Area))
          单元格取值(Area,#r-1,#c-1,#BeforeValue)
          单元格取值(Area,#r-1,#c,#AfterValue)
          单元格取值(Area,#r-1,#c+1,#ThirdValue)
          声明变量(#m,#r+3)
          声明变量(#n,#r+3)
          声明变量(#x,#c+1)
          声明变量(#y,#c+2)
          声明变量(#z,#c+3)
          如果(And("#BeforeValue"="#AfterValue","#BeforeValue"="合计"))
            取区域(#x,#y,#m,#n,#MergeArea)
            单元格合并(#MergeArea,True)
          如果(And("#BeforeValue"="#AfterValue","#AfterValue"="#ThirdValue","#BeforeValue"="总计"))
            取区域(#x,#z,#m,#n,#MergeArea)
            单元格合并(#MergeArea,True)

ryg1978 发表于 2024-4-18 08:51:54

牛牛牛,太强了
页: [1]
查看完整版本: 命令树按列合并