画面添加 text1 text2 text3 command1Private Sub Command1_Click()
Dim sTotal As String
Dim sTemp1() As String
Dim sTemp2() As String
Dim i As Integer
Dim j As Integer
sTemp1 = Split(Text1.Text, "-")
sTemp2 = Split(Text2.Text, "-")
For i = 0 To UBound(sTemp1)
For j = 0 To U...
Private Sub aa()Dim aT1() As String, aT2() As StringDim i As IntegerText3.Text = ""aT1 = Split(Trim(Text1.Text), "-")aT2 = Split(Trim(Text2.Text), "-")For i = 0 To 14...