EXCEL里的美女！！！

佛山小老鼠

书中只有黄金屋，Excel里有颜如玉  密码是197698cmw

[ 本帖最后由 佛山小老鼠 于 2011-6-6 23:46 编辑 ]

佛山小老鼠

此代码放到Sheet1模块里
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Value = "点击此看美女" Then
      Call 点击此看美女
   ElseIf Target.Value = "点击此结束看美女" Then
      Call 结束看图片
   ElseIf Target.Value = "点击此美女消失" Then
      Call 点击此美女消失
   Else
      Exit Sub
   End If
下面的代码放到新建的一个模块里
Sub 插入图片()
   Dim i As Integer
   On Error Resume Next
   i = Sheet1.Range("f1")
   M = ThisWorkbook.Path & "\图片\" & i & ".jpg"
   Sheet1.Shapes.AddPicture M, 1, 0, 0, 0, 200, 300
   Sheet1.Range("f1") = i + 1

End Sub

Sub 点击此看美女()
   Call 插入图片
   Application.OnTime Now() + TimeValue("00:00:01"), "点击此看美女"
End Sub


Sub 结束看图片()
   On Error Resume Next
   Application.OnTime Now() + TimeValue("00:00:01"), "点击此看美女", , 0
End Sub
Sub 点击此美女消失()
    Call 结束看图片
    ActiveSheet.DrawingObjects.Delete
    Sheet1.Range("f1") = 1
End Sub

亡者天下

美女确实有点多！

AVEL

   还以为是EXCEL软件中还隐藏了什么美女没发现呢。

wshcw

老鼠的作品很有创意.

imi007

貌似蛮有趣的，看看。

佛山小老鼠

原帖由 wshcw 于 2011-1-30 10:07 发表
老鼠的作品很有创意.

谢谢大理版主的表扬，旨在激励大家学习EXCEL兴趣，在娱乐快乐中学习！！！

[ 本帖最后由 佛山小老鼠 于 2011-1-31 20:02 编辑 ]

佛山小老鼠

昨晚忘了一个说明，现在补充一下，大家在工作表1输入如下图，不能多字不能少字，要一模一样，否则运行不了，F1输入1

[ 本帖最后由 佛山小老鼠 于 2011-1-30 12:37 编辑 ]

bgs_apron

楼主很高明！不错

zzpwinner

不错不错，寓教于乐嘛~~~