摘要： 今天拿到了一个比较棘手的难题，
把数字全部换成正数这两个字。我最早用了定位，但定位只能是数字而不能正数。我又写了定义对象大于0，后来发现居然字母都被换掉了，这显然不是我要的。后来问了一个朋友原来也还要写段代码进行是不是数字的判断。最后的结果是
Sub ee()
Dim rng As Range
For Each rng In Range("a1:d8") ‘foreach的用法
Excel vba给所有的工作表自动批量加页码，会计的有福啦
今天来分享一段有用而简单的excel编程代码。目的就是这个工作簿所有的工作表自动批量加页码。会计亲们有福啦。我们按快捷键alt F11，进入vba的编辑器里。点插入模块。然后在这输入以下代码Sub 加页码() Dim i%For i = 1 To Sheets.Count ‘表示工作表数量Sheets(i)
If IsNumeric(rng) And rng.Value > 0 Then ‘判断是不是数字类型,还有是不是>0
rng.Value = "正数" ‘把正数赋给所有的对象
End If
Next
End Sub
我后来又试了其他方法，都没成功。最后决定就用这段代码好了。
Excel Vba正数数字批量换成文字2
Excel VBA下标越界原因和方法详解
文章介绍excelVBA下标越界的原因，以及下标越界的解决方法。 VBA初学者，常常会遇到下标越界问题。 尽管出现下标越界的原因是多种多样，但终究是因为对象不存在或者超出范围，就会出现下标越界的提示框，如下图所示： Microsoft Visual Basic ~运行时错误’9’~
