Code thay hàm if trong VBA (1 người xem)

[Thaiduc]

Nhờ Diễn đàn giúp mình:
- Khi chọn "Thế chấp tài sản tại ComboBox1 thì TextBox1 cho kết quả "Miễn lệ phí".
- Nếu chọn "Chuyển nhượng" tại ComboBox1 thì TextBox1 cho kết quả "30.000".
- Nếu chọn "Ủy quyền" tại ComboBox1 thì TextBox1 cho kết quả "10.000".
Có gửi File đính kèm: tại Sheets1 cột A là Loại chứng thực và cột B là lệ phí.

 

[diemhuyenanh]

tôi có thấy cái combobox của bạn đâu nhỉ

 

[Thaiduc]

Xin lỗi bạn. Mình gửi lại File, nhờ bạn giúp mình. Xin cám ơn nhiều!!!

 

[phihndhsp]

Xin lỗi bạn. Mình gửi lại File, nhờ bạn giúp mình. Xin cám ơn nhiều!!!

Bạn xem file này xem sao?

 

[Let'GâuGâu]

Xin lỗi bạn. Mình gửi lại File, nhờ bạn giúp mình. Xin cám ơn nhiều!!!

góp thêm đoạn code
vào property của combobox bỏ cái rowsource nha

Private Sub ComboBox1_Change()
TextBox1.Value = Me.ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Range("a1:b3").Value
End Sub

 

[phihndhsp]

góp thêm đoạn code
vào property của combobox bỏ cái rowsource nha

Private Sub ComboBox1_Change()
TextBox1.Value = Me.ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Range("a1:b3").Value
End Sub

Lỡ làm rồi cho nó tự động luôn đi, chỉ có 3 dòng mắc công người ta lại kêu "Lỡ có thêm nhiều trường hợp nữa thì sửa code như thế nào"

 

[Kiều Mạnh]

NGÀY ĐẦU TIÊN ĐI LÀM CỦA NĂM BÍNH THÂN - CHO PHÉP MÌNH QUẬY TÍ NHA CÁC BẠN!

Private Sub ComboBox1_Change()
TextBox1.Value = Me.ComboBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
Dim lr As Long
lr = Range("A65000").End(3).Row
Me.ComboBox1.RowSource = Empty
Me.ComboBox1.List = Range("a1:b" & lr).Value
End Sub

NĂM MỚI CHÚC CÁC BÁC MAY MẮN - THÀNH CÔNG - PHÁT TÀI!

Quậy một tẹo..
lấy gì dữ vậy 65000 dòng nhiều quá ...gán vào cái list xong chủ thớt mở cái From lên ngó chơi quá ........

 

[doveandrose]

Quậy một tẹo..
lấy gì dữ vậy 65000 dòng nhiều quá ...gán vào cái list xong chủ thớt mở cái From lên ngó chơi quá ........

65 000 dòng cái con khỉ =))

 

[Kiều Mạnh]

65 000 dòng cái con khỉ =))

ú ú .........quên quên ..........hahaha
Range("A65000").End(3)