hoangvinh_tb
Thành viên mới
- Tham gia
- 16/6/08
- Bài viết
- 20
- Được thích
- 4
Mình nghe nói excel có thể làm font chữ chạy liên tục được bạn nào có thể hướng dẫn lại cho mình được khổng ?
Thanhk!
Thanhk!
Private Sub lblchaychutrenform1_Click()
Dim PauseTime
On Error Resume Next
Dim start
Dim l
lblchaychutrenform1.Caption = "hom nay la" & " " & "ngay" & " " & Day(Now()) & " " _
& "thang" & " " & Month(Now()) & " " & "nam" & " " & Year(Now()) & " "
nhan:
PauseTime = 0.2
start = Timer
Do While Timer < start + PauseTime
DoEvents
Loop
l = Len(lblchaychutrenform1.Caption)
lblchaychutrenform1.Caption = Right(lblchaychutrenform1.Caption, l - 1) + _
Left(lblchaychutrenform1.Caption, 1)
GoTo nhan
End Sub
Sau đó bạn ra lại sheet tạo một nút lệnh và chọn macro cho nút lệnh đó sau đó bấm vào sẽ rõ
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2