Xin code chuyển mã hiệu dự toán từ chữ thường sang chữ hoa. (1 người xem)

[matran25251325]

Mình muốn khi đánh một mã hiệu af11111 thì trong dự toán sẽ nhảy là AF.11111 , mình có đọc 1 bài nào đó mà do code đó đã khóa nên mình không tìm hiểu được. Các bạn giúp mình với nhé

 

[dongducnhiem]

Mình muốn khi đánh một mã hiệu af11111 thì trong dự toán sẽ nhảy là AF.11111 , mình có đọc 1 bài nào đó mà do code đó đã khóa nên mình không tìm hiểu được. Các bạn giúp mình với nhé

Thử áp dụng cái này, sửa lại code cho fù hợp với bạn

 

[buivannhuong]

Tôi có đoạn code vba của một tiện ích tiếng Việt nhưng tiện ích này chỉ cho phép dùng thử 30 ngày. Vậy rất mong các pro ở GPE lập trình lại để kéo dài thời gian dung thư và đây là xla:

http://www.mediafire.com/?1otul52ct30d84m

Tôi nghĩ đây là một lập trình VBA đẳng câp mà tôi được biết. Vì trên mạng có rất nhiều tiện ích Tiếng Việt cho ex miễn phí nhưng còn lập trình đơn giản. Ai muốn lập trình VBA thì theo tôi cần phải nghiên cứu cái này.

 

[buivannhuong]

Code cho phép dùng thử tiện ích Tiếng Việt 30 ngày

Tôi có đoạn code vba của một tiện ích tiếng Việt nhưng tiện ích này chỉ cho phép dùng thử 30 ngày. Vậy rất mong các pro ở GPE lập trình lại để kéo dài thời gian dung thư và đây là xla:
http://www.mediafire.com/?1otul52ct30d84m

Tôi nghĩ đây là một lập trình VBA đẳng câp mà tôi được biết

http://www.mediafire.com/?1otul52ct30d84m

 

[PhanTuHuong]

Trời! Chỉ công việc này mà code dài lằng nhằng thế!!!!

Bạn dùng lập trình sự kiện như ở dưới, nếu cần khống chế 1 vùng thì thêm điều kiện về địa chỉ nữa:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Target.Text)
End Sub

 

[matran25251325]

mình không biết về VBA, đã giúp mình thì bạn giúp cho trót với nhé. mình gởi file lên bạn giúp mình với nhé.

 

[buivannhuong]

Tôi có đoạn code vba của một tiện ích tiếng Việt nhưng tiện ích này chỉ cho phép dùng thử 30 ngày. Vậy rất mong các pro ở GPE lập trình lại để kéo dài thời gian dung thư và đây là xla:

http://www.mediafire.com/?1otul52ct30d84m

 

[buivannhuong]

Tôi có đoạn code vba của một tiện ích tiếng Việt nhưng tiện ích này chỉ cho phép dùng thử 30 ngày. Vậy rất mong các pro ở GPE lập trình lại để kéo dài thời gian dung thư và đây là xla:

http://www.mediafire.com/?1otul52ct30d84m

Tôi nghĩ đây là một lập trình VBA đẳng câp mà tôi được biết

 

[dongducnhiem]

mình không biết về VBA, đã giúp mình thì bạn giúp cho trót với nhé. mình gởi file lên bạn giúp mình với nhé.

Chép code này vào sheet MAUCHUAN,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range
    If Intersect(Target, [A4:A65536]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each Cll In Intersect(Target, [A4:A65536]).Cells
        If Not Cll.HasFormula And Cll.Value <> "" Then Cll.Value = UCase(Cll.Value)
    Next
    Application.EnableEvents = True
End Sub

Chữ Hoa tự động từ A4:A65536, Các sheet khác bạn tự làm
------------

Tôi có đoạn code vba của một tiện ích tiếng Việt nhưng tiện ích này chỉ cho phép dùng thử 30 ngày. Vậy rất mong các pro ở GPE lập trình lại để kéo dài thời gian dung thư và đây là xla:

http://www.mediafire.com/?1otul52ct30d84m

Tôi nghĩ đây là một lập trình VBA đẳng câp mà tôi được biết. Vì trên mạng có rất nhiều tiện ích Tiếng Việt cho ex miễn phí nhưng còn lập trình đơn giản. Ai muốn lập trình VBA thì theo tôi cần phải nghiên cứu cái này. ​

Bạn nổ như bom. Riêng việc không biết tạo đề tài mới cho mình mà fải post ké bài, thì chắc gì bạn đã đọc quá 10 đề tài trên GPE ? mà bày đặt viết những dòng mà tôi tô màu ở trên
Bài thì post lập đi lập lại.........
Chán!

 

[matran25251325]

em chỉ cần ở sheet tiên lượng thui, và em đã (tạm) làm được, không biết chạy có lỗi không nữa, nói chung cảm ơn anh đồngđứcnhiệm rất nhiều.

 

[dongducnhiem]

em chỉ cần ở sheet tiên lượng thui, và em đã (tạm) làm được, không biết chạy có lỗi không nữa, nói chung cảm ơn anh đồngđứcnhiệm rất nhiều.

Sao bạn biết tên tôi nhỉ!?