Private Sub CommandButton49_Click()
XWJZ = TextBox6.Text
ReadSpecificCellFromCSV
TextBox7.Text = result
End Sub
Private Sub CommandButton50_Click()
XWJZ = TextBox6.Text
ReadSpecificCellFromCSV
TextBox7.Text = result
TextBox3.Text = TextBox7.Text
End Sub
Sub DuChui()
If ZZCR = True Then
XWJZ = TextBox6.Text
ReadSpecificCellFromCSV
'TextBox7.Text = "0" & result 'win7系统下用
TextBox7.Text = result 'win10系统下用
TextBox3.Text = TextBox7.Text
End If
End Sub
win10系统改这三处就可以了