电脑教程
位置:首页>> 电脑教程>> office教程>> Excel Vba正数数字批量换成文字

Excel Vba正数数字批量换成文字

  发布时间:2022-08-29 05:16:12 

标签:批量,换成,数字,正数,Excel函数

今天拿到了一个比较棘手的难题,

把数字全部换成正数这两个字。我最早用了定位,但定位只能是数字而不能正数。我又写了定义对象大于0,后来发现居然字母都被换掉了,这显然不是我要的。后来问了一个朋友原来也还要写段代码进行是不是数字的判断。最后的结果是

Sub ee()

Dim rng As Range

For Each rng In Range("a1:d8") ‘foreach的用法

If IsNumeric(rng) And rng.Value > 0 Then ‘判断是不是数字类型,还有是不是>0

rng.Value = "正数" ‘把正数赋给所有的对象

End If

Next

End Sub

我后来又试了其他方法,都没成功。最后决定就用这段代码好了。

Excel Vba正数数字批量换成文字2

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com