[求助]如何用程序实现将关标移至A3单元格，不要选定单元格。

kidsing · 发表于 2006-1-15 16:16

如题。

taller · 发表于 2006-1-15 16:22

请问楼主光标移到A3和选中A3有什么区别？为什么不能选中A3？

kidsing · 发表于 2006-1-15 16:28

因为用选定，反应太快，想先用代码动画移动关标到A3，再选定。

taller · 发表于 2006-1-15 16:34

[em06]不明白楼主的要求

kidsing · 发表于 2006-1-15 16:50

不好意识，我是在制作黑白棋，但是电脑下棋太快，我想如果将光标移动到某个单元格时用动画实现的话，人就可以看明白电脑走了哪步棋以及哪些子将会被电脑吃掉。

taller · 发表于 2006-1-15 17:41

楼主可以换个思路，比较要有棋子，无论是图片还是按钮，与其费劲的控制系统光标，不然控制棋子的移动，请参考

NuXrUdam.zip (11.02 KB, 下载次数: 33)

kidsing · 发表于 2006-1-16 14:56

高! 我怎么就想不到啊？谢谢！

Long_III · 发表于 2006-1-16 15:39

以下是引用[I]taller[/I]在2006-1-15 17:41:38的发言：[BR]楼主可以换个思路，比较要有棋子，无论是图片还是按钮，与其费劲的控制系统光标，不然控制棋子的移动，请参考

思路很好！我觉得这个1000也可以跟它的距离发生点关系，类似匀速运动，如 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Pic As Shape, hStep As Single, vStep As Single, hPos As Integer, vPos As Integer Application.EnableEvents = False Set Pic = Me.Shapes(1) hPos = Pic.Left vPos = Pic.Top k = Int(IIf(Abs(Target.Left - hPos) < Abs(Target.Top - vPos), Abs(Target.Top - vPos), Abs(Target.Left - hPos))) hStep = (Target.Left - hPos) / k vStep = (Target.Top - vPos) / k For i = 1 To k Pic.Left = hPos + hStep * i Pic.Top = vPos + vStep * i DoEvents Next Application.EnableEvents = True End Sub

zbajsgamr · 发表于 2006-4-27 18:48

陆楼和捌楼的都很好，高!

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