Scribd
Upload
29 views4 pages

Text Box Functions in VBA

The document contains code that clears the text from 20 text boxes when a slideshow terminates. It also contains 4 separate sections that calculate a running total and display it in a text box when the values in 4 corresponding text boxes change. Each section sums the values in its 4 text boxes and assigns the total to a 5th text box.

Uploaded by

KeTuong Tran
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
29 views4 pages

Text Box Functions in VBA

The document contains code that clears the text from 20 text boxes when a slideshow terminates. It also contains 4 separate sections that calculate a running total and display it in a text box when the values in 4 corresponding text boxes change. Each section sums the values in its 4 text boxes and assigns the total to a 5th text box.

Uploaded by

KeTuong Tran
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Sub OnSlideShowTerminate()

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

End Sub

Private Sub TextBoxesSum1()

Dim Total As Double

Total = 0

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])


If Len([Link]) > 0# Then Total = Total + CDbl([Link])

[Link] = Total

End Sub

Private Sub TextBox1_Change()

TextBoxesSum1

End Sub

Private Sub TextBox2_Change()

TextBoxesSum1

End Sub

Private Sub TextBox3_Change()

TextBoxesSum1

End Sub

Private Sub TextBox4_Change()

TextBoxesSum1

End Sub

Private Sub TextBoxesSum2()

Dim Total As Double

Total = 0

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

[Link] = Total

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox6_Change()


TextBoxesSum2

End Sub

Private Sub TextBox7_Change()

TextBoxesSum2

End Sub

Private Sub TextBox8_Change()

TextBoxesSum2

End Sub

Private Sub TextBox9_Change()

TextBoxesSum2

End Sub

Private Sub TextBoxesSum3()

Dim Total As Double

Total = 0

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

[Link] = Total

End Sub

Private Sub TextBox11_Change()

TextBoxesSum3

End Sub

Private Sub TextBox12_Change()

TextBoxesSum3

End Sub

Private Sub TextBox13_Change()

TextBoxesSum3
End Sub

Private Sub TextBox14_Change()

TextBoxesSum3

End Sub

Private Sub TextBoxesSum4()

Dim Total As Double

Total = 0

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

If Len([Link]) > 0# Then Total = Total + CDbl([Link])

[Link] = Total

End Sub

Private Sub TextBox16_Change()

TextBoxesSum4

End Sub

Private Sub TextBox17_Change()

TextBoxesSum4

End Sub

Private Sub TextBox18_Change()

TextBoxesSum4

End Sub

Private Sub TextBox19_Change()

TextBoxesSum4

End Sub

You might also like