Đinh dạng textbox bang VBA (1 người xem)

[Excel365]

Cho em hỏi sự kiện Combobox_AfterUpdate() trong form
Em muốn sau khi chọn dữ liệu từ Combobox xong thì nội dung trong Combobox đó nó tự định dạng Canh giữa, Tô màu, hoặc chữ in nghiêng thì phải làm như thế nào.
lưu ý. Không chỉnh định dang trong Properties
Trân trọng cảm ơn

 

[Hoàng Trọng Nghĩa]

Cho em hỏi sự kiện Combobox_AfterUpdate() trong form
Em muốn sau khi chọn dữ liệu từ Combobox xong thì nội dung trong Combobox đó nó tự định dạng Canh giữa, Tô màu, hoặc chữ in nghiêng thì phải làm như thế nào.
lưu ý. Không chỉnh định dang trong Properties
Trân trọng cảm ơn

Bạn thử như sau:

Private Sub ComboBox1_AfterUpdate()
    With ComboBox1
        ''Canh giua
        .TextAlign = fmTextAlignCenter
        ''Mau nen:
        .BackColor = &HFFFF80
        ''Mau chu:
        .ForeColor = &HFF&
        ''Dinh dang Font:
        With .Font
            ''To dam:
            .Bold = True
            ''Co chu:
            .Size = 16
            ''Nghieng:
            .Italic = True
        End With
    End With
End Sub

Hình như hôm nay sinh nhật của bạn? Chúc mừng tuổi mới với nhiều thành công nhé!

 

[Excel365]

Bạn thử như sau:

Private Sub ComboBox1_AfterUpdate()
    With ComboBox1
        ''Canh giua
        .TextAlign = fmTextAlignCenter
        ''Mau nen:
        .BackColor = &HFFFF80
        ''Mau chu:
        .ForeColor = &HFF&
        ''Dinh dang Font:
        With .Font
            ''To dam:
            .Bold = True
            ''Co chu:
            .Size = 16
            ''Nghieng:
            .Italic = True
        End With
    End With
End Sub

Hình như hôm nay sinh nhật của bạn? Chúc mừng tuổi mới với nhiều thành công nhé!

Cảm ơn anh Nghĩa nhiều, chúc anh ngày mới vui vẻ

 

[siwtom]

Cảm ơn anh Nghĩa nhiều, chúc anh ngày mới vui vẻ

Đôi co chút.

1. Code trong AfterUpdate không làm đúng 100% cái bạn viết, yêu cầu.

Cho em hỏi sự kiện Combobox_AfterUpdate() trong form
Em muốn sau khi chọn dữ liệu từ Combobox xong thì nội dung trong Combobox đó nó tự định dạng Canh giữa, Tô màu, hoặc chữ in nghiêng thì phải làm như thế nào.
lưu ý. Không chỉnh định dang trong Properties
Trân trọng cảm ơn

Giả sử bạn có Combobox1 và TextBox1. Bạn có thể chọn mục 1 trong CB sau đó nghĩ lại thì chọn mục 2, nghĩ lại thì ... chọn mục 100. Cứ thế 100 lần. Rõ ràng sảy ra 100 lần "sau khi chọn dữ liệu từ Combobox xong" nhưng định dạng của ComboBox1 không hề thay đổi. Phải chuyển focus sang TB hoặc nếu trên Form chỉ có CB (sau khi chọn xong thì làm cái gì đấy - tính toán, đập xuống sheet) thì sau khi làm việc 1 tiếng và đóng Form thì code thay đổi định dạng kia mới được thực hiện. Mà đóng Form thì định dạng mới để làm gì?

2. Nếu trong quá trình sử dụng Form có rất nhiều lần chọn trong CB (và nhập liệu ở vd. TB) thì code thực hiện nhiều lần? Tốn điện nước.

Nếu có thể (vì bạn không viết rõ tại sao lại cần AfterUpdate) thì đặt code trong UserForm_Initialize