多个命令按钮彼此依次排列

时间:2017-09-10 23:19:48

标签: excel vba commandbutton

我是编程新手,我想为篮球教练创建一个应用程序,通过使用命令按钮在Excel中使用VBA来保存玩家的统计数据。

我希望能够点击一个带有玩家名字的命令按钮来选择该玩家的行,而不是手动输入游戏中每个玩家的统计数据。然后单击一个对其执行操作的按钮并输入一个数字。

我将为玩家提供12个按钮,为动作设置40个按钮(例如pts,reb,stl等)

例如:当我点击播放器的名称按钮时,它将选择播放器属性所在的行。然后当我选择动作(例如点数)时,它将添加数字2列为标记点。

我想使用所有12个玩家的动作按钮,所以只有在我点击玩家的名字按钮时才输入数字。所以" pts"按钮适用于所有12个播放器按钮。总的来说,我想用命令按钮为教练制作统计表,而不是移动光标并手动输入信息。

有关如何操作的任何建议?提前谢谢。

Clancy的

1 个答案:

答案 0 :(得分:2)

使用模块范围的变量来存储正在处理的播放器的一些示例代码可能是:

Option Explicit

Private CurrentPlayerRow As Long

Sub PlayerA_Click()
    CurrentPlayerRow = 3
End Sub
Sub PlayerB_Click()
    CurrentPlayerRow = 4
End Sub
Sub PlayerC_Click()
    CurrentPlayerRow = 5
End Sub

Sub Action1_Click()
    'Update column D by adding 2 to the cell value
    Cells(CurrentPlayerRow, "D").Value = Cells(CurrentPlayerRow, "D").Value + 2
End Sub
Sub Action2_Click()
    'Update column G by adding an inputted number to the cell value
    Cells(CurrentPlayerRow, "G").Value = Cells(CurrentPlayerRow, "G").Value + CLng(InputBox("Enter a number:"))
End Sub

(对篮球得分和/或统计数据一无所知,我不确定你想要处理什么样的行动。)