想通过数值调节钮制作选票计数器，但是候选人很多，怎么快速批量设置控件格式？

Maron5

求助！！附件是自己做的例子，只有十几个候选人，实际工作中候选人接近百人，怎么能快速批量设置控件格式呢？谢谢

杨建营

可以换个思路:点击人名后的单元格触发事件，让票数列的数据在单击后加一，这样操作方便点。

杨建营

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i&, j&
i = [a65536].End(3).Row + 1
For j = 2 To [a65536].End(3).Row
    If Target.Column = 3 Then
        If j = Target.Row Then
                Cells(Target.Row, 4) = Val(Cells(Target.Row, 4).Value) + 1
        End If
        Cells(i, 3).Select
    Else
        Cells(Target.Row, Target.Column).Select
    End If
Next
End Sub
请楼主根据需要修改。

杨建营

附件请解压使用，不能禁止宏。

杨建营

杨建营 发表于 2023-2-13 12:12
附件请解压使用，不能禁止宏。

根据楼主的格式修改了一下地址。

495153973

换个思路，单元格做成可变的，控件做的都是一件事，可以不弄那么多

Maron5

杨建营 发表于 2023-2-13 12:07
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i&, j&
i = [a65536].End(3).Row +  ...

很感谢，但是看不懂 。。。 已经用原始的画“正”方法完成记票了