| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 交叉统计表中的合并单元格 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65250) |
| -- 作者：一笑 -- 发布时间：2015/3/12 14:21:00 -- 交叉统计表中的合并单元格 交叉统计中，想对得出的统计表第1列中的相同内容的单元格进行合并，其中代码如下：
Dim HGroup As String Dim VGroup As String HGroup = e.Form.Controls ("HGroup").Text\'水平分组 VGroup = e.Form.Controls ("VGroup").Text\'垂直分组 Dim TotalOn As String TotalOn = e.Form.Controls ("TotalOn").Text
With Tables("事件统计_Table1") .MergeMode = MergeModeEnum.Standard \'标准合并模式 .MergeCols.Clear() \'清除原来的合并列 .MergeCols.Add("VGroup") \'加入要合并的列 .MergeCols.Add("HGroup") .AllowMerge
= True \'启用合并模式 End With 上述代码无效果，代码改为.MergeCols.Add(".Cols(0)"),也不行，求解，谢谢！ |
| -- 作者：Bin -- 发布时间：2015/3/12 14:24:00 -- .MergeCols.Add(VGroup) 变量不要双引号 |
| -- 作者：一笑 -- 发布时间：2015/3/12 14:31:00 -- 都试过了，不管用。改为自由合并也不行。 |
| -- 作者：Bin -- 发布时间：2015/3/12 14:32:00 -- 上例子吧 |
| -- 作者：有点甜 -- 发布时间：2015/3/12 14:41:00 -- 以下是引用一笑在2015/3/12 14:31:00的发言：
都试过了，不管用。改为自由合并也不行。
肯定可以的，比如
With Tables("事件统计_Table1") .MergeMode = MergeModeEnum.Standard \'标准合并模式 .MergeCols.Clear() \'清除原来的合并列 .MergeCols.Add(.Cols(0).Name) \'加入要合并的列 .AllowMerge = True \'启用合并模式 End With |
| -- 作者：一笑 -- 发布时间：2015/3/12 15:13:00 -- 又进行了测试，代码没有问题，是其他问题，谢谢！ |