[HỎI] Code như thế nào để UPPER Cell? (1 người xem)

[lequoctrong]

Tình hình là em đang làm cái Mẫu, để tránh nhập liệu sai thì em muốn Code mặc định cho ô {Họ và tên} khi đánh tên vào dù chữ thường cũng sẽ tự biến thành CHỮ IN HOA mà không cần phải nhấn tổ hợp phím hay phải play module.
Ví dụ là tên giám đốc Công an tỉnh Đồng Nai trong ô màu vàng ạ!
Cảm ơn các bác nhiều!!!

 

[be_09]

Tình hình là em đang làm cái Mẫu, để tránh nhập liệu sai thì em muốn Code mặc định cho ô {Họ và tên} khi đánh tên vào dù chữ thường cũng sẽ tự biến thành CHỮ IN HOA mà không cần phải nhấn tổ hợp phím hay phải play module.
Ví dụ là tên giám đốc Công an tỉnh Đồng Nai trong ô màu vàng ạ!
Cảm ơn các bác nhiều!!!

Vào B11 gõ bình thường rồi Enter sẽ được kết quả.
Em ở Đồng Nai cần nhờ gì nếu hỏi trên diễn đàn mà sợ lộ thông tin thì gặp trực tiếp anh sẳn lòng trợ giúp.
Anh ở Tân Mai (gần VinCom), nếu có rảnh thì anh em mình gặp nhau uống Coffee, anh nghĩ hưu rồi nên cũng rảnh rỗi.

 

[VetMini]

... phải play module.

pơ-lây mô-đun là làm cái gì vậy?

 

[lequoctrong]

Vào B11 gõ bình thường rồi Enter sẽ được kết quả.
Em ở Đồng Nai cần nhờ gì nếu hỏi trên diễn đàn mà sợ lộ thông tin thì gặp trực tiếp anh sẳn lòng trợ giúp.
Anh ở Tân Mai (gần VinCom), nếu có rảnh thì anh em mình gặp nhau uống Coffee, anh nghĩ hưu rồi nên cũng rảnh rỗi.

Dạ em cảm ơn! E cũng ở Biên Hòa, dưới Long Bình. Có gì mình gặp giao lưu ạ. Cho e hỏi e liên hệ anh bằng cách nào được ạ?

 

[lequoctrong]

pơ-lây mô-đun là làm cái gì vậy?

Ý e ở đây là viết Module xong thì F5 để chạy Macro nên e muốn là khi mở file là nó tự chạy luôn ấy! Xin lỗi e dốt nên có gì chỉ giúp ạ!

 

[VetMini]

... có gì chỉ giúp ạ!

Chạy code là run, invoke, excute.
Tránh dùng tiếng Tây. Trừ phi bạn biết chắc chắn là tiếng Việt dùng sẽ dài dòng hoặc gây khó hiểu hơn.

Dùng từ "play module" người ta hiểu lầm là muốn vọc với các modules.
Từ module trong lập trình cũng có nghĩa hơi khác nhau, tuỳ theo môi trường ngôn ngữ.

 

[lequoctrong]

Chạy code là run, invoke, excute.
Tránh dùng tiếng Tây. Trừ phi bạn biết chắc chắn là tiếng Việt dùng sẽ dài dòng hoặc gây khó hiểu hơn.

Dùng từ "play module" người ta hiểu lầm là muốn vọc với các modules.
Từ module trong lập trình cũng có nghĩa hơi khác nhau, tuỳ theo môi trường ngôn ngữ.

thanks you bác, mà bác cho e hỏi luôn ở cái code này:

{Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$11" Then
Target.Value = UCase(Target.Value)
End If

End Sub}

Nếu ta muốn thêm Cell thì sẽ code sao ạ?

 

[VetMini]

Thêm vào đâu? và mục đích gì?

 

[befaint]

thêm Cell

Thay "If Target.Address = "$B$11" Then "
thành

If not intersect(target, Range("B1:B20")) is nothing then 'B1:B20 là vùng có hiệu lực

 

[VetMini]

Thay "If Target.Address = "$B$11" Then "
thành

If not intersect(target, Range("B1:B20")) is nothing then 'B1:B20 là vùng có hiệu lực

Đó là nới rộng vùng. Có lẽ là điểm thớt muốn hỏi.
Nhưng thớt nói không rõ cho nên cũng có khả năng là vài cells rời rạc. Trường hợp này phải dùng Instr hoặc Union.

 

[lequoctrong]

Thêm vào đâu? và mục đích gì?

Code đó thì chỉ có giá trị ở ô B11
Giờ e muốn B19, B20 hay 1 ô nào đó thì e sẽ làm sao?

 

[VetMini]

If InStr(";$B$11;$B$19;$B$20;"), ";" & Target.Address & ";") Then

 

[befaint]

Đó là nới rộng vùng. Có lẽ là điểm thớt muốn hỏi.
Nhưng thớt nói không rõ cho nên cũng có khả năng là vài cells rời rạc. Trường hợp này phải dùng Instr hoặc Union.

Phải có cái gì mồi chài để người ta nói ra mà anh.

 

[LamNA]

Code đó thì chỉ có giá trị ở ô B11
Giờ e muốn B19, B20 hay 1 ô nào đó thì e sẽ làm sao?

Anh cần xác định vùng muốn chạy code thì sẽ dễ hơn

 

[lequoctrong]

If InStr(";$B$11;$B$19;$B$20;"), ";" & Target.Address & ";") Then

Cảm ơn Bác! Khá phức tạp cho 1 chuyện nhỏ nhỉ!

 

[VetMini]

Phải có cái gì mồi chài để người ta nói ra mà anh.

Ở diễn đàn này chẳng những phải giúp công thức Excel, code VBA, mà còn phải mồi chài cách ăn cách nói nữa.
Riêng một vấn đề rất cần phải học là cách thiết kế bảng tính, cách sắp xếp CSDL thì chẳng bao giờ người ta hỏi.

Nhiều người diễn tả vấn đề cộc lốc, viết tắt tùm lum, cứ cho là người ta có thể đọc được ý nghĩ mình. Nhưng đến khi nhận công tác thì than "sếp chỉ thảy cho cái file và bảo làm..."

 

[lequoctrong]

Ở diễn đàn này chẳng những phải giúp công thức Excel, code VBA, mà còn phải mồi chài cách ăn cách nói nữa.
Riêng một vấn đề rất cần phải học là cách thiết kế bảng tính, cách sắp xếp CSDL thì chẳng bao giờ người ta hỏi.

Nhiều người diễn tả vấn đề cộc lốc, viết tắt tùm lum, cứ cho là người ta có thể đọc được ý nghĩ mình. Nhưng đến khi nhận công tác thì than "sếp chỉ thảy cho cái file và bảo làm..."

Cảm ơn Bác nhiều! Mà e code theo bac thì nó báo lỗi, bác xem lại giúp!

 

[befaint]

lỗi

Xóa bớt dấu đóng ngoặc đầu tiên.

 

[lequoctrong]

Xóa bớt dấu đóng ngoặc đầu tiên.

Cho hỏi tại sao lại phải thêm: ";" &

bởi thấy dùng: If InStr("$B$11;$B$19;$B$20", Target.Address) Then thì nó vẫn chạy bình thường?

 

[Phuocam]

Để phân biệt:

$B$11 với $B$1,

$B$20 với $B$2

 

[VetMini]

Cho hỏi tại sao lại phải thêm: ";" &

bởi thấy dùng: If InStr("$B$11;$B$19;$B$20", Target.Address) Then thì nó vẫn chạy bình thường?

InStr chỉ là hàm tìm chuỗi bên trong chuỗi.
Ở đây là dò một giá trị bên trong một chuỗi nhiều giá trị. Và kỹ thuật thực hiện nó như vậy. Nên tập làm quen với nó.

 

[batman1]

Cảm ơn Bác! Khá phức tạp cho 1 chuyện nhỏ nhỉ!

If Not Intersect(Target, Me.Range("B11, B19, B20")) Is Nothing Then

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B11, B19, B20")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub

Code trên chỉ đúng khi thay đổi từng ô một. Khi thay đổi vd. 2 ô cùng lúc thì có lỗi. Muốn trường hợp tổng quát, tức có thể thay đổi 1 hoặc nhiều ô cùng lúc thì phải sửa code.