... (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...
Ngày tải lên: 11/03/2013, 08:21
Đồng hồ đếm ngược 10 giây
... Thoi gianThoi gian 012345678109
Ngày tải lên: 31/05/2013, 00:22
Đòng hồ đếm ngược 10 giây
... Thoi gianThoi gian 012345678109
Ngày tải lên: 31/05/2013, 00:22
Đông hồ đếm ngược 10 giây
... Thoi gianThoi gian 012345678109
Ngày tải lên: 31/05/2013, 00:22
... 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
Ngày tải lên: 16/06/2013, 01:26
tạo đồng hồ đếm ngược
... 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...
Ngày tải lên: 24/06/2013, 01:27