[原创]3只青蛙-excel制造

jacksonzeng

不错,有意思

excelHelper

这个好玩

bluepen

唉，想不到俺的IQ是如此之低，那位高手可否告之到底该咋跳才能OK。[em06]

chen7806

1 2 3  - 4 5 6

第一步:肯定是3或4;

第二步:如果跳3,然后就跳4;

第三步:5,6分开,然后,3,2,1跳;

到了这一步你应该会跳成了.

jssy

有意思，2分59多秒,,,

kidsing

呵呵,我想大家都会跳了吧.我做了个自动演示.
Sub demo()
reset
Application.DisplayStatusBar = False
Application.Wait (Now + TimeValue("0:00:1"))
bttn5_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn3_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn2_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn4_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn6_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn7_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn5_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn3_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn1_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn2_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn4_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn6_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn5_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn3_click
Application.Wait (Now + TimeValue("0:00:1"))
bttn4_click
Application.DisplayStatusBar = True
End Sub

plxmm

嗯创意不错，多谢分享。

[em23][em24]

[此贴子已经被作者于2006-7-4 9:59:21编辑过]

jerry0101

前几天刚刚玩了flash版本的，没成想excel也能做的这么好！

学习中。。。。

yangking

有意思，没想到自己IQ这么低，

hao182

不错!,学习之余,轻松了环境!

[此贴子已经被作者于2006-7-11 17:37:49编辑过]