[原创]单元格处理过程中暂停和终止程序

老鬼

主要实现两个功能：

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

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

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

游客，如果您要查看本帖隐藏内容请回复

方漠

看了兄台的代码,用循环遍历选区内的每个单元格,感觉有点浪费资源似的.^_^

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

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

老鬼

这个程序是为了题目中的功能而写的，如果不循环遍历，那个功能就没用啦

老鬼

还有需要提醒一下，你确定你的代码能将数字转为真正的文本吗？你试一下，被转换后的数字一定还能计算，那不是文本。

方漠

呵,公式确实还能引用计算,不过双击两次公式过后看看发生了什么改变?

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

老鬼

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

joyark

谢谢分享

余方方

谢谢分享