... (ALT+F11), chọn Insert -> Module rồi gõ vào (ho c copy) các dòng sau đây : Const Slide_Number = 1 Const Thoi_Gian = 10 Sub Dem_ Nguoc( ) Dim Ngung As Boolean, Dem As Integer, Gio_Cu As Single, Gio_Moi ... Gio_Moi > Gio_Cu Then Dem = Dem - 1 Gio_Cu = Gio_Moi ActivePresentation.Slides(Slide_Number).Shapes(N). TextFrame.TextRange.Text = Format (Dem, "00") If Dem = 0 The...
... không hợp lệ ho c file đã bị xóa (violet.vn/uploads/resources/516/206532//Anhdep%20hieuung %20donghodemnguoccucdep.ppt) Quay trở về http://violet.vn
... cố bất ngờ. Để đồng hồ ho t động: click vào đồng hồ, và cần mở chế độ chạy macro trong pp Const Slide_Number = 3 Const Thoi_Gian = 5 Sub Dem_ Nguoc( ) Dim Ngung As Boolean, Dem As Integer, Gio_Cu ... Gio_Moi > Gio_Cu Then Dem = Dem - 1 Beep Gio_Cu = Gio_Moi ActivePresentation.Slides(Slide_Number).Shapes(N).TextFrame.TextRange.Text = Format (Dem, "00") If Dem = 0 Then N...