VBA怎么使用方向键，上下？

aaronpang1

点一下，移动到上面单元格

爱疯

Sub test()
    With ActiveCell
        If .Row > 1 Then .Offset(-1, 0).Select
    End With
End Sub


是这样？

aaronpang1

不是的，是需要
模拟按键上下。

上面图片只是比如

aaronpang1

爱疯 发表于 2019-8-20 11:12
Sub test()
    With ActiveCell
        If .Row > 1 Then .Offset(-1, 0).Select

不是的，是需要
模拟按键上下。

上面图片只是打个比方

爱疯

Sub test()
    Application.SendKeys "{UP}"
End Sub


Sub test2()
    Application.SendKeys "{down}"
End Sub


这样?

aaronpang1

爱疯 发表于 2019-8-20 11:51
Sub test()
    Application.SendKeys "{UP}"
End Sub

要怎么写进去呢？一点击就移动




Sub test()
    Application.SendKeys "{UP}"
End Sub






Private Sub CommandButton1_Click()

End Sub

hfwufanhf2006

用表单控件，不要用ActiveX控件，表单控件是内置控件，ActiveX控件是外置控件，不一样的。
如果是表单控件，直接把上面的那行代码粘贴进去就行了，按一次按钮，单元格就移动一行。但我不知道这有什么用？

aaronpang1

hfwufanhf2006 发表于 2019-8-20 13:02
用表单控件，不要用ActiveX控件，表单控件是内置控件，ActiveX控件是外置控件，不一样的。
如果是表单控件 ...

大有用途
我是先筛选一部分单元格了，然后随机选择其中一个。用上一行实现不了，有行是隐藏的

hfwufanhf2006

aaronpang1 发表于 2019-8-20 13:04
大有用途，拿来随机挑选一个目标

   直接用鼠标选一下不是一样吗？ 用按钮来移动不觉得累？   你这好比画图，没有鼠标用键盘，一个一个的像素点移动，从左移到右，上千个像素点，要移动大半天。如果要是有几百上千行，你这么点也要半天

aaronpang1

hfwufanhf2006 发表于 2019-8-20 13:08
直接用鼠标选一下不是一样吗？ 用按钮来移动不觉得累？   你这好比画图，没有鼠标用键盘，一个一个的 ...

我这个只是代码一部分，例如先投放核武器，到最后时刻自动调整城市