|
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set dic = CreateObject("scripting.dictionary")
For Each sh In Worksheets
dic(sh.Name) = i
Next sh
xm = Trim(TextBox1.Text)
If Len(xm) = 0 Then Exit Sub
If dic.exists(xm) Then
Worksheets(xm).Range("b4:i33").ClearContents
arr = Worksheets(xm).Range("a4:i33").Value
For j = 1 To UBound(arr)
If arr(j, 1) = ComboBox1.Text Then
arr(j, 2) = Trim(TextBox2.Text)
arr(j, 3) = Trim(TextBox3.Text)
arr(j, 4) = Trim(TextBox4.Text)
arr(j, 6) = Trim(TextBox5.Text)
arr(j, 7) = Trim(TextBox6.Text)
arr(j, 8) = Trim(TextBox7.Text)
arr(j, 5) = Val(arr(j, 2)) + Val(arr(j, 3)) + Val(arr(j, 4))
arr(j, 9) = Val(arr(j, 6)) + Val(arr(j, 7)) + Val(arr(j, 8))
End If
Next j
Worksheets(xm).Range("a4").Resize(UBound(arr), UBound(arr, 2)) = arr
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me '关闭窗体
End Sub
Private Sub UserForm_Initialize()
arr = Range("A4:A34").Value
ComboBox1.List = arr
ComboBox1.ListIndex = 0
End Sub
|
|