For Each-Next语句_别怕，Excel VBA其实很简单08

ExcelHome · 发表于 2013-7-13 13:00

视频教程配套图书：《别怕，Excel VBA其实很简单》

主讲人：ggsmart
内容简介：本集视频介绍VBA中的For Each…Next循环语句，通过实例，介绍如何使用For Each…Next循环语句编写程序解决问题，并通过与其他循环语句对比，让观众感受在个别情境中For Each…Next循环语句的优越性。

大屏幕无损超清晰欣赏，请点击：http://player.ku6.com/refer/IBZ8pLsbuByjOhvL2_p8eA../v.swf

其他视频在线欣赏，请移步：http://club.excelhome.net/thread-929374-1-1.html

ning84 · 发表于 2022-12-28 23:12

用好for each next比for next使用效果好。

Private Sub deldeldel()
Dim Rng As Range, Rng1 As Range, Rng2 As Range
Dim oRng As Range
Dim Str, Str1, Str2
Dim Rr, Rr1
Set Rng = Range(Cells(3, 2).Formula)
Set Rng1 = Rng.Areas(1)
Set Rng2 = Rng.Areas(2)
For Each Rng1 In Rng.Areas(1)
Rr = 1
Debug.Print Rng1.Address, Rng1(2, 1).Address
For Each Rng2 In Rng.Areas(2)
'Debug.Print Rng1, Rng2, Rng1 = Rng2
Str = Application.WorksheetFunction.Ceiling(Rng2, 5 / 1440)
If Round(Rng1, 5) = Round(Str, 5) Then
If Rr = 1 Then
Set oRng = Rng2
Else
Set oRng = Union(oRng, Rng2)
End If
'Debug.Print Format(Rng1, "hh:mm"), Format(Str, "hh:mm"), Rng1.Address, Rng2.Address, oRng.Address
Rr = Rr + 1
End If
Next Rng2
If Not oRng Is Nothing Then
Debug.Print oRng.Address
Rng1(, 3) = "=" & oRng.Address(0, 0)
Rng1(, 2) = oRng.Rows.Count
oRng.Select
End If
Next Rng1
End Sub

复制代码

天涯诗酒客 · 发表于 2021-1-26 16:14

天涯诗酒客 · 发表于 2021-1-26 16:13

戒烟限酒 · 发表于 2021-1-6 08:21

视频无法播放了！！

gxgjack · 发表于 2020-12-24 20:02

看不了。。。。。。。。。。

引领自己 · 发表于 2020-6-7 20:46

lilyup 发表于 2019-8-18 17:06
视频出问题了，看不了，能恢复一下吗？
在网上找到了视频资源，就发上来了，方便大家~

谢谢哈,正需要呢

vipfighter · 发表于 2019-12-4 22:26

lilyup 发表于 2019-8-18 17:06
视频出问题了，看不了，能恢复一下吗？
在网上找到了视频资源，就发上来了，方便大家~

感谢分享

lilyup · 发表于 2019-8-18 17:06

本帖最后由 lilyup 于 2019-8-18 22:06 编辑

视频出问题了，看不了，能恢复一下吗？
在网上找到了视频资源，就发上来了，方便大家~

https://v.youku.com/v_show/id_XNDU5NjgwMDc2.html?spm=a2hzp.8253869.0.0

朝花夕拾2018 · 发表于 2019-3-9 17:31

有意思，学习

cpexcelcp · 发表于 2018-7-8 16:20

学习学习学习学习学习学习

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

[Excel VBA] For Each-Next语句_别怕，Excel VBA其实很简单08

评分

最新热点 /1