Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]excel模板合并单元格问题


  共有3099人关注过本帖树形打印复制链接

主题：[求助]excel模板合并单元格问题
帅哥哟，离线，有人找我吗？
hrw68529
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8894 威望：0 精华：0 注册：2012/7/10 9:09:00 		[求助]excel模板合并单元格问题  发帖心情 Post By：2020/2/27 14:06:00 [显示全部帖子]

网页地址：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127373&authorid=0&page=0&star=2

有点甜：根据上述代码，我做了个表格，也需要上述生成情况，但按上述代码，"限额”列不能随“收货单位”合并而合并，什么原因，请指导。谢谢。
如图：1，模板
此主题相关图片如下：清单模板.png
按此在新窗口浏览图片
2.生成清单：
此主题相关图片如下：清单生成.png
按此在新窗口浏览图片
代码如下：在报表事件的BeforeBuild中代码：vars("序号") = 0
vars("限额") = ""
vars("合计") = ""
在报表事件的BuildDetail中代码：If vars("序号") = 0 Then
    vars("序号") = 1
    vars("限额") = e.DataRow("限额")
    vars("合计") = e.DataRow("合计")
    vars("上一行") = e.DataRow
    
Else
    
    If vars("上一行")("收货单位") <> e.DataRow("收货单位") Then
        vars("序号") += 1
        vars("限额") = e.DataRow("限额")
        vars("合计") = e.DataRow("合计")
        vars("上一行") = e.DataRow
        
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8894 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/2/27 15:14:00 [显示全部帖子]

实例：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:慰问物资采购系统_202002271501.zip
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8894 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/2/27 15:59:00 [显示全部帖子]

好，我试一下
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8894 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/2/27 16:05:00 [显示全部帖子]

如图：“限额”应该是按收货单位合并后，合并，现在全合并了，应该是收货单位1，限额50000合并，收货单位2，限额50000合并的，
图片点击可在新窗口打开查看此主题相关图片如下：截图01.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/2/27 16:05:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8894 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/3/1 10:31:00 [显示全部帖子]

专家你好，根据上述代码生成了cexcel表,但差额列最后合并计算值班不对，能否按合并后的单元格的数值班进行汇总，不知道怎么写代码。
如图1：excel模板：
图片点击可在新窗口打开查看此主题相关图片如下：模板.png
图片点击可在新窗口打开查看
如图2:生成的excel表：
图片点击可在新窗口打开查看此主题相关图片如下：核对表.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8894 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/3/2 12:46:00 [显示全部帖子]

合并后的数据怎么汇总

 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8894 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/3/3 8:41:00 [显示全部帖子]

合并后的单元格为文本格式，无法计算，怎么写在合并单元格后，将合并单元格由文本格式变成数字格式
如图：
图片点击可在新窗口打开查看此主题相关图片如下：22222.png
图片点击可在新窗口打开查看
代码：Select Case e.Book.TempLate
    Case "物资采购核对表"
        Dim Sum1, Sum2 As Double
        For Each dr As DataRow In e.GroupRows
            If dr("合计") = True
                Sum1 = Sum1 + dr("合计")
            Else
                Sum2 = Sum2 + dr("差额")
            End If
        Next
        e.Book.Marks("合计") = Sum1
        e.Book.Marks("差额") = Sum2
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询