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

刃-2012 · 发表于 2017-5-22 22:41

+111

林枫多多 · 发表于 2017-5-22 23:21

回复错了，回复的12题

kwdg · 发表于 2017-5-23 16:49

学习

bellatong · 发表于 2017-5-24 17:22

xiexie!

c2003921 · 发表于 2017-5-25 14:36

看看，学习

c2003921 · 发表于 2017-5-25 14:57

第11集练习题.rar (10.48 KB, 下载次数: 8)

tiansdk320 · 发表于 2017-5-25 17:05

任意选取本工作表中的一个区域,这个目前还不知道怎么用鼠标选取，再把值赋给rg变量！

没耳朵的兔子 · 发表于 2017-5-25 17:06

求答案求答案求答案求答案求答案求答案求答案

哈啦哈拉 · 发表于 2017-5-29 16:30

Sub 替换()
Dim rg As Range
For Each rg In Selection
Dim t As Boolean
t = Application.WorksheetFunction.IsNumber(rg)
If t = True And rg.Value > 0 Then rg.Value = "正数"
Next rg
End Sub

Sub 一次选取所在行()
Dim rg As Range
Dim t As Boolean
For Each rg In Range("a2:c12")
t = Application.WorksheetFunction.IsNumber(rg)
If t = True And rg.Value > 0 Then rg.EntireRow.Select
Next rg
End Sub
'为什么只能选取一行,明明循环选取行了啊

joye1111 · 发表于 2017-5-30 14:01

谢谢

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