设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Exeel 视频区 › Excel 视频教程 › VBA80集第11集练习题答案上交贴

数据透视表40+个常用小技巧，让你一次学会！

1 ... 6 7 8 91011 12 13 14 ... 362 / 362 页下一页

发新帖

楼主: 兰色幻想

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

发表于 2011-10-20 12:15 | 显示全部楼层

条件和循环

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2011-10-20 12:16 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

高手！！！！

回复

使用道具举报

发表于 2011-10-20 12:23 | 显示全部楼层

工作中最常用的Excel函数公式，全印在一张鼠标垫上

好好学习天天向上

回复

使用道具举报

发表于 2011-10-21 10:49 | 显示全部楼层

进来学习下

回复

使用道具举报

发表于 2011-10-25 13:25 | 显示全部楼层

谢谢

回复

使用道具举报

发表于 2011-10-28 20:41 | 显示全部楼层

本帖最后由 wyf22006 于 2011-10-28 21:12 编辑

[code]
Sub kk() '改为正数
Dim rng As Range
For Each rng In Selection
If rng.Value > 0 And IsNumeric(rng.Value) Then
rng.Value = "正数"
End If
Next
End Sub
Sub nn() '选取不连续的行
Dim rc As Integer, rr As Integer, rg As Range
For rc = 1 To 3
For rr = 2 To 12
If IsNumeric(Cells(rr, rc)) = True And Cells(rr, rc) > 0 Then
If rr = 2 And rc = 1 Then Set rg = Cells(rr, rc)
Set rg = Union(rg, Cells(rr, rc))
End If
Next
Next
rg.EntireRow.Select
End Sub

复制代码

我没有权限使用[hide]

[/code]

回复

使用道具举报

发表于 2011-11-2 04:09 | 显示全部楼层

继续学习。

。

回复

使用道具举报

发表于 2011-11-2 16:17 | 显示全部楼层

没想出来，来看看

回复

使用道具举报

发表于 2011-11-5 17:24 | 显示全部楼层

看看学习一下~

回复

使用道具举报

发表于 2011-11-8 11:07 | 显示全部楼层

谢谢分享！

回复

使用道具举报

1 ... 6 7 8 91011 12 13 14 ... 362 / 362 页下一页

发新帖

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-27 05:08 , Processed in 0.351029 second(s), 4 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表