Office中国论坛/Access中国论坛

标题: [原创]单元格处理过程中暂停和终止程序 [打印本页]

作者: 老鬼 时间: 2006-8-13 00:43
标题: [原创]单元格处理过程中暂停和终止程序
主要实现两个功能：

1、将文本格式转换为数字格式，或将数字格式转换为文本格式。这个功能用处不大，如果愿意，你可以将源码中的这部分替换掉，换成其他批量处理单元格的功能。如批量设置单元格的运算、批量设置单元格的链接等等。

2、程序运行中可以暂停，也可以终止。有时候在批量处理单元格数据的时候，因为数据量很大，运行时间会很长。这时候可以暂停或终止程序，以观察单元格的处理进度和情况。

附件是一个加载宏，把它解压到你的电脑上，然后“工具—加载宏—浏览”，选择这个解压后的加载宏文件，打上勾即可。

作者: 方漠 时间: 2006-8-31 18:45
看了兄台的代码,用循环遍历选区内的每个单元格,感觉有点浪费资源似的.^_^

我的是直接在工具栏上建一按钮,让其自动切换.代码如下:

Sub Changecellformat()
If Selection.NumberFormat = "General" Then
      Selection.NumberFormatLocal = "@"
   Else
      If Selection.NumberFormat = "0.00" Then
         Selection.NumberFormatLocal = "@"
      Else
         Selection.NumberFormatLocal = "0.00"
      End If
  End If
End Sub

作者: 老鬼 时间: 2006-9-1 07:43
这个程序是为了题目中的功能而写的，如果不循环遍历，那个功能就没用啦

作者: 老鬼 时间: 2006-9-1 08:15
还有需要提醒一下，你确定你的代码能将数字转为真正的文本吗？你试一下，被转换后的数字一定还能计算，那不是文本。

作者: 方漠 时间: 2006-9-1 18:25
呵,公式确实还能引用计算,不过双击两次公式过后看看发生了什么改变?

既然要把数字转换为文本,那么肯定是不需要再用它来做计算的.你说对不对?[em01]

作者: 老鬼 时间: 2006-9-2 01:21
你的方法是把装有数字的单元格格式设为了文本格式，而并非把数字转化为文本。之所以要数字转文本，主要目的是为了公式的引用。很多人在用VLOOKUP的时候都感到奇怪，为什么明明把单元格设为文本格式了，为什么数据还不能引用？这就是数据接触不多，对格式了解不深造成的。

作者: 余方方 时间: 2011-3-2 16:54
谢谢分享

作者: joyark 时间: 2011-6-19 02:13
谢谢分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)