VBA80集第11集练习题答案上交贴

QQ123138106 · 发表于 2017-8-14 14:14

瞧瞧！

u9508 · 发表于 2017-8-15 12:15

不会

milkmocha · 发表于 2017-8-15 18:32

xuexi

ANDY0393 · 发表于 2017-8-16 15:17

不好意思，又上传图片了，请老师帮忙看看，谢谢。

dongligang · 发表于 2017-8-17 16:58

1123123

dongligang · 发表于 2017-8-17 16:59

123456

707808067 · 发表于 2017-8-19 14:51

逻辑上我已记尽力了，就是把字母和数字搞反，不管是false\ture都返回不了正确结果，晕死了
Sub repalce()
Dim rg As Range
For Each rg In Selection
If rg.Value > 0 And Application.WorksheetFunction.isnumber(rg) = ture Then
rg = "正数"
End If
Next rg
End Sub

cc5233 · 发表于 2017-8-19 15:31

答案

mickeycumt · 发表于 2017-8-20 09:15

学习一下其他网友的方案

temusen · 发表于 2017-8-21 11:06

来学习啦

		自动登录	找回密码
密码			注册