... rồi gõ vào (ho c copy) các dòng sau đây : Const Time = 20Sub Dem_ Nguoc( )Dim Ngung As Boolean, Dem As Integer, Gio_Cu As Single, Gio_Moi As Single, N As IntegerNgung = False Dem = TimeGio_Cu ... ActivePresentation.Slides.CountActivePresentation.Slides(N).Shapes(2). TextFrame.TextRange.Text = Format (Dem, "00")Do While Not NgungDoEventsGio_Moi = Int(Timer)If Gio_Moi > Gio_Cu Then Dem = Dem - 1Gio_Cu = Gio_MoiActivePresentation.Slides(N).Shapes(2). ... TextFrame.TextRange.Text = Format (Dem, "00")If Dem = 0 Then Ngung = TrueEnd IfLoopEnd SubTrong đó:Time là thời gian đếm (có thể thay đổi thông số này cho phù hợp)N = ActivePresentation.Slides.Count...