当前位置：文江博客话题详情

使用箭头键浏览单元格中定义的值

发布于 2024-12-08 16:43:49 字数 351 浏览 0 评论 0原文

我以前编程过，但我是 vba 所以请帮助我。

我想让用户在工作表中选择一个单元格（列中的任何单元格），然后他/她应该能够按“向上”或“向下”箭头键来浏览值。

它类似于下拉菜单。

例如，我会有预定义值，例如“STOP”、“GO”、“START”。
当用户选择单元格并按向上箭头键一次时，单元格的值将更改为“GO”，再次按箭头键，值将更改为“STOP”，依此类推....

谢谢您的帮助！

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

ぶ宁プ宁ぶ 2024-12-15 16:43:49

第 1 部分

右键单击工作表选项卡
查看代码
复制并粘贴下面的代码

此代码告诉 Excel 仅在此工作表上运行向上和向下箭头宏。时，该代码将被停用

Private Sub Worksheet_Activate()
    Application.OnKey "{UP}", "UpOne"
    Application.OnKey "{DOWN}", "DownOne"
End Sub

Private Sub Worksheet_Deactivate()
    Application.OnKey "{UP}"
    Application.OnKey "{DOWN}"
End Sub

当您离开工作表第 2 部分

。 F11 一起转到 Visual Basic 编辑器
插入模块
复制并粘贴下面的代码

按 ALt & F11 返回 Excel

 Sub UpOne()
        选择案例 ActiveCell.Value
        案件 ””
            ActiveCell.Value =“就绪”
        案例“准备就绪”
            ActiveCell.Value =“设置”
        案例“设置”
            ActiveCell.Value =“开始”
        结束选择
    结束子


 子 DownOne()
    选择案例 ActiveCell.Value
    案件 ””
        ActiveCell.Value =“开始”
    案例“走”
        ActiveCell.Value =“设置”
    案例“设置”
        ActiveCell.Value =“就绪”
    结束选择
结束子

您的代码现在将从

空白（如果为空）- 1) 准备就绪 - 2) 设置 - 3) 转到（向上箭头）

空白（如果为空）- 1) 转到 - 2) 设置 - 3) 循环准备就绪（用于向下箭头）

Part 1

Right click your sheet tab
View Code
Copy and paste in the code below

This code tells Excel to run your arrow up and down macros only on this sheet. The code is deactivated when you leave the sheet

Private Sub Worksheet_Activate()
    Application.OnKey "{UP}", "UpOne"
    Application.OnKey "{DOWN}", "DownOne"
End Sub

Private Sub Worksheet_Deactivate()
    Application.OnKey "{UP}"
    Application.OnKey "{DOWN}"
End Sub

Part 2

Press ALt & F11 together to go to the Visual Basic Editor
Insert Module
Copy and paste the code below

Press ALt & F11 to go back to excel

  Sub UpOne()
        Select Case ActiveCell.Value
        Case ""
            ActiveCell.Value = "Ready"
        Case "Ready"
            ActiveCell.Value = "Set"
        Case "Set"
            ActiveCell.Value = "Go"
        End Select
    End Sub


 Sub DownOne()
    Select Case ActiveCell.Value
    Case ""
        ActiveCell.Value = "Go"
    Case "Go"
        ActiveCell.Value = "Set"
    Case "Set"
        ActiveCell.Value = "Ready"
    End Select
End Sub

Your code will now cycle from

blank (if empty) - 1) ready - 2) set - 3) go (for Up Arrow)

blank (if empty) - 1) go - 2) set - 3) ready (for DownArrow)

回复收藏 0 原文

~没有更多了~