如何将选定区域的数值格式改变

旺彩童子　发表于：2008-12-08 16:10:01 　

老大，有一数值显示如下：负号时在数值后面（文本）。故每次要将它从新整理，才能求和。操作很麻烦。求老大帮写一VBA 搞定。如例：(注。区域不定。将选定区域所有负文本数据，变成正常负数据）

金额整理后

234- -234

567- -567

980- -980

110- -110

符鸿敏发表于：2008-12-08 21:17:50

请问该数据是要批量整理的吧,那是固定在某一个字段里的,还是多个字段中存在的呢?可以传上你的附件吗?

黎红军发表于：2008-12-08 22:02:19

用函数找出字段中的“-”字符，然后把它挪到字符首位。

旺彩童子发表于：2008-12-08 23:57:48

谢谢各位大哥的献策。。但都不是我想要的。。

1: 该字段（列）不固定。行数也不固定。。一般情况是我从ERP 系统拷贝到EXCEL 粘贴到哪就算哪。。

2: 函数REPLACE 是可用。但每次都要重新增一列再写函数太费力了。。并且有是同列负数和正数都有。。一般我先排序。把带负号在后的数据行归在一起。再用查找替换再乘以-1.. 来解决。。

我想拜托那位老大写个VBA。。针对任意鼠标选择的区域查找 *“－”，替换成“-”** （数值型）。我要做个工具捆绑住这个VBA。。

今后只有我鼠标选择任意区域。点该工具图标。。马上执行查找替换。。这样就不用增加新列。。再写函数。。。

希望老大能明白俺的表达。。。

sosopain 发表于：2008-12-09 09:55:50

Excel? Access?

旺彩童子发表于：2008-12-09 16:35:47

EXCEL

sosopain 发表于：2008-12-10 12:43:19

Dim celCell As Range
Dim strOld As String
Dim strNew As String

For Each celCell In Selection.Cells

strOld = celCell.Value

If Right(strOld, 1) = "-" Then

    strNew = "-" & Left(strOld, Len(strOld) - 1)
    celCell.Value = strNew
' celCell.NumberFormat = "0.00_ "
    End If
Next

旺彩童子发表于：2008-12-12 19:40:52

已搞定。谢谢老大的大力支持。厉害。顺便问一下。。VBA 无经验。但外文好。大该意思很猜出二到三分。。问如果短期内提高VBA 编写能力？

sosopain 发表于：2008-12-13 16:33:00

读帮助文件。。掌握对象编程的办法。网上有很多VB, VBA的教程。。。

总记录：8篇页次：1/1 9 1 :

Access交流中心