Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TBp.Value = TextBox2.Text Call 集計 End Sub ---------------------------------------------------------------------- Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) TBp.Value = TextBox3.Text Call 集計 End Sub ---------------------------------------------------------------------- Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) TBp.Value = TextBox4.Text Call 集計 End Sub --------------------------------------------------------------------- Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean) TBp.Value = TextBox5.Text Call 集計 End Sub --------------------------------------------------------------------- Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean) TBp.Value = TextBox6.Text Call 集計 End Sub -------------------------------------------------------------------- Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean) TBp.Value = TextBox7.Text Call 集計 End Sub --------------------------------------------------------------------- Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean) TBp.Value = TextBox8.Text Call 集計 End Sub --------------------------------------------------------------------- Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean) TBp.Value = TextBox9.Text Call 集計 End Sub