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

健忘的老男孩 · 发表于 2017-12-5 13:04

来学习结果了。

phoenixsoul · 发表于 2017-12-5 14:38

学习一下学习一下

晞123 · 发表于 2017-12-5 19:32

生闷气 · 发表于 2017-12-6 15:15

好好学习，天天向上

祁承 · 发表于 2017-12-6 17:30

好像来晚了。。。。。

optimus · 发表于 2017-12-6 19:07

参观

optimus · 发表于 2017-12-6 19:47

本帖最后由 optimus 于 2017-12-6 20:20 编辑

Sub positive()
Dim rg As Range, m As Integer, i As Integer
i = 1
Set rg = Selection
m = Selection.Cells.Count
'range(selction),range"a1"
For i = 1 To m
If Application.WorksheetFunction.IsNumber(rg.Cells(i)) = True Then
If Selection.Cells(i) > 0 Then
Selection.Cells(i) = "正数"
End If
End If
Next i
End Sub
Sub selct()
Dim rng As Range, rng2 As Range, rng1 As Range
Dim i As Integer
Set rng = Range("a2:c12")
Set rng2 = Nothing
For i = 1 To rng.Cells.Count Step 1
If Application.WorksheetFunction.IsNumber(rng.Cells(i)) = True And rng.Cells(i) > 0 Then
If (rng2 Is Nothing) Then
Set rng2 = rng.Cells(i)
End If
Set rng2 = Union(rng2, rng.Cells(i))

复制代码

怎么在选中的单元格集合里面剔除某个单元格？
例如
range("a1:c10").select
怎么剔除里面的B2？

用第二个程序选择了多行数据后，再用第一个数据替换数字为“正数“，为什么有部分替换不了？
循环次数有限制吗？
捕获.JPG

nami105 · 发表于 2017-12-7 20:34

参考一下

telook · 发表于 2017-12-14 21:00

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

周海钦 · 发表于 2017-12-15 11:04

找答案

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