excel - 仅对一个特定列使用宏代码

Question

我还是 excel 编程的新手，在对代码进行细微更改时遇到了麻烦。我的代码使用户能够选择一个单元格，然后使用向上和向下箭头来选择一个定义的值。查看下面的代码，我在工作表中调用函数“UpOn​​e”和“DownOne”，然后将保存的字符串值保存在模块中。

工作表代码

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

模块代码

Sub DownOne()
    Select Case ActiveCell.Value
    Case ""
        ActiveCell.Value = "PASS"
    Case "PASS"
        ActiveCell.Value = "FAIL"
    Case "FAIL"
        ActiveCell.Value = "Unknown"
 End Sub
 Sub UpOne()
    Select Case ActiveCell.Value
    Case "Unknown"
        ActiveCell.Value = "FAIL"
    Case "FAIL"
        ActiveCell.Value = "PASS"
    Case "PASS"
        ActiveCell.Value = ""
 End Sub

我的问题是如何使此代码仅适用于一个特定列中的所有单元格？当用户选择不同的列时，我将如何获得不同的值。因此，如果用户在“J”列中选择了一个空单元格，他/她可以使用箭头键在“A”、“B”、“C”等值中导航，但是当他/她在“N”列中选择一个空单元格时”，他/她可以浏览一组不同的值，例如“E”、“F”、“G”等。
感谢您的任何帮助!

Answer 1

与其每次选择一个单元格时都禁用/启用代码(而且您需要满足多单元格选择)，不如使用数据验证更简单。您可以设置可应用于特定单元格的列表

Debra Dalgleish 在 Contextures 上有关于数据验证的精彩讨论