Em đang tập viết code,vừa rồi em copy được 1 code tạo dòng chữ trên taskbar mà không biết sửa thế nào cho dòng chữ có màu để nổi bật hơn.
Các anh chị hướng dẫn giúp em với, và liệu dòng chữ này có thể chạy qua lại được không ạ ?
Code như bên dưới này ạ:
Dim OK As Boolean
Sub Autopen()
OK = True
Update
End Sub
Sub Update()
Dim StatBarMsgString As String
StatBarMsgString = "GPE - Giai phap excel rat tuyet voi "
If OK Then
Application.StatusBar = StatBarMsgString
Else
Application.StatusBar = FASLE
End If
End Sub
Các anh chị hướng dẫn giúp em với, và liệu dòng chữ này có thể chạy qua lại được không ạ ?
Code như bên dưới này ạ:
Dim OK As Boolean
Sub Autopen()
OK = True
Update
End Sub
Sub Update()
Dim StatBarMsgString As String
StatBarMsgString = "GPE - Giai phap excel rat tuyet voi "
If OK Then
Application.StatusBar = StatBarMsgString
Else
Application.StatusBar = FASLE
End If
End Sub