新手问个小问题！

skystone

第一次用VBA，为什么以下代码没有实现双击的效果？比如原来几个数字是文本格式，无法用SUM统计，我现在改成数值格式然后用如下代码，可是SUM还是没统计进去。

Sub aaa()



    ActiveCell.Select

    Application.DoubleClick

    End Sub

晓月清风

我也是刚开始学VBA，你所说的问题，可以这样解决：

Sub txt2num()

'数值在转换为文本之后，又将其转换为数值，就无法进行计算了

'这个宏就是用来解决这个问题的

'2005-06-13



For Each xCell In Selection

'对所有选择的单元格进行操作

xCell.Value = xCell.Value

'单元格值转换

Next xCell

'寻找下一个选择的单元格

End Sub



http://www.office-cn.net/BBS/dispbbs.asp?boardid=108&star=2&replyid=141557&id=28285&skin=0&page=1

skystone

这个宏太好了！哈哈，非常感谢！！