不知道可不可以实现求高手帮忙

kenliu75

不知道可不可以实现求高手帮忙谢谢

一把小刀闯天下

'替换userform1中所有代码

Option Explicit

Dim mylist As New Collection

Private Sub UserForm_Initialize()
  Dim i, tmp As lstchng
  For i = 4 To 22 Step 3
    Controls("TextBox" & i).List = Array("假期", "补假")
    Set tmp = New lstchng
    Set tmp.List = Controls("TextBox" & i)
    mylist.Add tmp
  Next
  Set tmp = Nothing
End Sub

'===================================
类模块: lstchng

Option Explicit

Public WithEvents List As MSForms.ComboBox

Public Sub List_Change()
  With UserForm1
    If List.Text = "假期" Then
      .TextBox23.Text = Val(.TextBox23.Text) + 1
    ElseIf List.Text = "补假" Then
      .TextBox25.Text = Val(.TextBox25.Text) + 1
    End If
  End With
End Sub

kenliu75

一把小刀闯天下 发表于 2020-2-14 07:51
'替换userform1中所有代码

Option Explicit

谢谢老师不好意思来晚了，老师可不可以修改一下 下拉框全部为空时同一个下拉框不管怎么切换都是等于 1 其它的也是不管怎么也换都是加 1 谢谢