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

yulong1213 · 发表于 2022-2-9 22:47

看看答案

songyunkai · 发表于 2022-2-10 08:40

学习学习

1754762500 · 发表于 2022-2-13 21:32

能看看答案吗

1754762500 · 发表于 2022-2-13 21:34

看看答案是啥

PennyAsh6urn · 发表于 2022-2-17 17:07

区域内的单元格循环暂不会写

haruhijohn · 发表于 2022-2-17 19:27

看看答案

1320369561 · 发表于 2022-2-21 22:36

1320369561 · 发表于 2022-2-21 22:37

迷雾森林 · 发表于 2022-2-22 10:38

Sub a()

For Each r In Selection

If IsNumeric(r) Then

If r > 0 Then r = "正数"

End If

Next

End Sub

啊甘学VBA · 发表于 2022-2-23 12:54

'题目１:任意选取本工作表中的一个区域，然后把选取区域中的大于0的数字替换为字符“正数”

Sub t1()
Dim x As Range
For Each x In Selection
If x.Value > 0 And IsNumeric(x) Then
x = "正数"
End If
Next
End Sub

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