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

kingsao_61 · 发表于 2022-10-27 22:09

继续学习

qingyuan13 · 发表于 2022-11-17 20:47

Sub 题目一()Dim rg As Range, rgs As RangeSet rgs = SelectionFor Each rg In rgs If IsNumeric(rg.Value) And rg.Value > 0 Then rg.Value = "正数"NextEnd SubSub 题目二()Dim rg As Range, rgs As RangeFor Each rg In Range("A2:C12") If Val(rg) > 0 Then Set rgs = rg Exit For End IfNextFor Each rg1 In Range("A2:C12") If Val(rg1) > 0 Then Set rgs = Union(rgs, rg1) End IfNextrgs.EntireRow.SelectEnd Sub

bastion · 发表于 2022-11-19 08:51

很久后再来,看看答案.

wl13133 · 发表于 2022-11-26 14:59

jsgslgd 发表于 2011-7-4 22:55
作业上交
**** 本内容被作者隐藏 ****

学习一下

yumanshi · 发表于 2022-11-28 15:57

看答案。。。

yumanshi · 发表于 2022-11-28 15:58

怎么看哪

AMBERbabe · 发表于 2022-12-1 16:37

yll6406 · 发表于 2022-12-2 10:42

看看

gualei · 发表于 2022-12-3 17:11

瓜雷也来瞅瞅

xx1096 · 发表于 2022-12-4 06:37

来学习

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