giúp tiếng việ trên form

[anh1988]

mình có đoạn code tạo đồng hồ số như sau

'dongho so cho du toan
Private Const Mycompany = " Du toan Pro 2011      "                                                                                                                                                                            
Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub
Private Sub ProTimer()
'Application.Caption = Format(Now() - 1, "dddd ,dd/mm/yyyy     hh:mm:ss") & Mycompany
Application.Caption = Format(Now(), "dddd ,dd/mm/yyyy     hh:mm:ss") & Mycompany
'& Format(Now() - 1, "dddd, mm, dd,yyyy")
Ontimer
End Sub

mình muốn viết tiếng việt lên code này

Private Const Mycompany = " Du toan Pro 2011      "

(code này sẽ hoặc load từ 1 ô nào đó nhưng không biết cách làm
các cao thủ giúap đỡ dùm​

 

[Hoàng Trọng Nghĩa]

mình có đoạn code tạo đồng hồ số như sau

'dongho so cho du toan
Private Const Mycompany = " Du toan Pro 2011      "                                                                                                                                                                            
Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub
Private Sub ProTimer()
'Application.Caption = Format(Now() - 1, "dddd ,dd/mm/yyyy     hh:mm:ss") & Mycompany
Application.Caption = Format(Now(), "dddd ,dd/mm/yyyy     hh:mm:ss") & Mycompany
'& Format(Now() - 1, "dddd, mm, dd,yyyy")
Ontimer
End Sub

mình muốn viết tiếng việt lên code này

Private Const Mycompany = " Du toan Pro 2011      "

(code này sẽ hoặc load từ 1 ô nào đó nhưng không biết cách làm
các cao thủ giúap đỡ dùm​

Nếu bạn làm trên Form thì cách làm như sau:

Đặt code trong Form bạn khai báo cho Mycompany, rồi khi load form bạn cho nó hiểu biến đó là gì. Giả sử tại ô B1 tôi cho giá trị gì đó bằng tiếng Việt, sau đó code sẽ là:

Private Mycompany As String
''-----------------------------------
Private Sub UserForm_Initialize()
    Mycompany = TenSheet.[B1].Value
    'Tiếp theo là thủ tục của bạn
End Sub

Như vậy thì sẽ dễ dàng "nhồi nhét" tiếng Việt vào trong code.