以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  郁闷呀,一天就钓了两条鱼,请教导出?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76949)

--  作者:hbhb
--  发布时间:2015/11/8 18:25:00
--  郁闷呀,一天就钓了两条鱼,请教导出?
大师:好!请教
1、多层表头的表导出到word中,上次的代码如何变动一下?
2、如何将选择的区域,用一按钮转换为%比显示
3、菜单上的符号,为何窗口中的表不能输入?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目40.zip


--  作者:大红袍
--  发布时间:2015/11/8 20:13:00
--  

1、直接在word里面做不实际,你保存成excel以后,再拷贝到word不行?

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76027&skin=0

 

2、drawcell事件

 

If e.Row.Index >= e.Table.TopPosition AndAlso e.Row.Index <= e.Table.BottomPosition AndAlso e.Col.Index >= e.Table.LeftCol AndAlso e.Col.Index <= e.Table.RightCol Then
    If e.Row.IsNull(e.Col) = False Then
        Dim d As Double
        If Double.TryParse(e.text,d) Then
            e.text = Format(d, "0.00%")
        End If
    End If
End If

 

3、什么符号不能输入?


--  作者:hbhb
--  发布时间:2015/11/8 20:45:00
--  
谢谢!
1、我感觉还是直接好,直接的代码写给我看看,我来试试哪个好?
3、所有的符号都不能输入

--  作者:大红袍
--  发布时间:2015/11/8 20:46:00
--  

1、直接麻烦啊,生成麻烦。用excel什么都好控制。

 

3、不明白你说什么。


--  作者:hbhb
--  发布时间:2015/11/8 21:10:00
--  
2、我的意思不是这样的,如在表a中,鼠标选中,或者select(1,1,1,3)的区域后,原来各单元格的值为0.3 、0.4、0.5 。设置一按钮a。单击按钮a。各单元格的值,转变为30%、40%、50%。


--  作者:大红袍
--  发布时间:2015/11/8 21:12:00
--  

参考drawcell事件代码,循环每一个单元格,然后修改值。

 

自己写代码


--  作者:hbhb
--  发布时间:2015/11/8 21:30:00
--  
50%,是字符,那如何实现我输入30%,20%,50%后,合计行能自动等于100%?
--  作者:大红袍
--  发布时间:2015/11/8 21:31:00
--  
以下是引用hbhb在2015/11/8 21:30:00的发言:
50%,是字符,那如何实现我输入30%,20%,50%后,合计行能自动等于100%?

 

自己实现合计行的功能。去掉百分号,然后相加


--  作者:hbhb
--  发布时间:2015/11/8 21:35:00
--  
是截取数字?/100,怎么没看到函数?
--  作者:大红袍
--  发布时间:2015/11/8 21:36:00
--  
以下是引用hbhb在2015/11/8 21:35:00的发言:
是截取数字?/100,怎么没看到函数?

 

循环每一行,把百分号去掉,然后相加。