Excel 如何利用按钮在任意选中的单元格输入数据

发布网友发布时间：2022-04-21 03:47

共1个回答

热心网友时间：2023-08-06 11:18

这个无需三个按钮，一个按钮就可以搞定随机三个字母，代码如下：

Sub TEST()
    Dim K As Byte
    Dim Mystr As String
    K = Int(Rnd() * 3) + 1
    Select Case K
    Case 1
    Mystr = "A"
    Case 2
    Mystr = "B"
     Case 3
    Mystr = "C"
    End Select
    Selection.Value = Mystr
End Sub

追问我的表达有问题，随机一词用错了，是想要输入什么就输入什么，我不会表达，目的是在任意选中的单元格里面，想输入A就输入A ,需要输入B，就输入B,需要输入C ,就输入C。不是随机的

追答

那就更简单了，A按钮的代码为：

Sub TestA()
Selection.Value = "A"
End Sub

B按钮的代码为：

Sub TestB()
Selection.Value = "B"
End Sub

C按钮代码为：

Sub TestC()
Selection.Value = "C"
End Sub