Excel Vba正數數字批量換成文字

Excel Vba正數數字批量換成文字

今天拿到了一個比較棘手的難題，

把數字全部換成正數這兩個字。我最早用了定位，但定位只能是數字而不能正數。我又寫了定義對象大于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

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。