Cách tạo ComBobox

[PHONGGANHHAO]

[TABLE="width: 72"]
[TR]
[TD="class: xl65, width: 72"]Nhờ anh chị em giúp tạo Combobox - Chân thành cám ơn[/TD]
[/TR]
[/TABLE]

 

[Quang_Hải]

Bạn xem file và điều chỉnh lại code cho phù hợp với yêu cầu thực tế nhé, mình chỉ làm mẫu cho bạn biết cách gán dữ liêu từ CB. Nếu muốn viết đẹp hơn thì viết thế này:

Private Sub ComboBox1_Change()
For c = 1 To 3
Cells(1, c) = ComboBox1.Column(c - 1)
Next
End Sub

 

[PHONGGANHHAO]

Bạn xem file và điều chỉnh lại code cho phù hợp với yêu cầu thực tế nhé, mình chỉ làm mẫu cho bạn biết cách gán dữ liêu từ CB. Nếu muốn viết đẹp hơn thì viết thế này:

Private Sub ComboBox1_Change()
For c = 1 To 3
Cells(1, c) = ComboBox1.Column(c - 1)
Next
End Sub

Em cám ơn Anh đã nhiệt tình chỉ giáo. Cho e hỏi thêm chút nữa nhe: Trường hợp em để CB ở A1:A… (và ẩn), mỗi khi e click vào thì Hiện lên Hộp chọn dữ liệu cho cả 3 cột A-B-C

 

[Quang_Hải]

Không hiểu rõ ý của bạn nhưng cũng làm thử coi sao

 

[PHONGGANHHAO]

Không hiểu rõ ý của bạn nhưng cũng làm thử coi sao

A làm cũng gần giống ý em nhưng em muốn nó dài xuống luôn.
Ví dụ như : 200 or 500 hàng
Vậy thì làm thế nào?

 

[Quang_Hải]

Nghiên cứu cái này nha.

 

[titanic20072007]

Chào anh http://www.giaiphapexcel.com/forum/member.php?134916-quanghai1969quanghai1969 anh có thể hướng dẫn cách cập nhật dữ liệu ở mộ số cột của từ 2 tệp trở lên vào một số cột của một tệp không.

 

[titanic20072007]

Chào anh quanghai1969 anh có thể hướng dẫn cách cập nhật dữ liệu ở mộ số cột của từ 2 tệp trở lên vào một số cột của một tệp không.
Chi tiết và tệp đính kèm ở đây http://www.giaiphapexcel.com/forum/showthread.php?60809-Cập-nhật-dữ-liệu-ở-một-số-cột-nhất-định-của-nhiều-file-vào-1-số-cột-nhấ-định-một-file anh xem gúp với. Cảm ơn anh.

 

[Quang_Hải]

Bạn ơi đừng có chen ngang vào chủ đề người khác, mở chủ đề mới sẽ có người giúp mà.

Thân

 

[PHONGGANHHAO]

Cám ơn anh quanghai1969 đã nhiệt tình chỉ giúp

Nhờ anh kiểm tra lại phần :
1/ Nhập tên vào Cột B.
2/ Và khi đổi vị trí số thứ tự thì cột B lại hiện ra khác

 

[titanic20072007]

Bạn ơi đừng có chen ngang vào chủ đề người khác, mở chủ đề mới sẽ có người giúp mà.

Thân

Xin lỗi. Mình cũng đã lập chủ đề ở ngoài rồi nhưng mấy ngày rồi mà chẳng có đại ca nào ra tay giúp không biết vì lý do gì hay là quá dễ nên không đáng giúp và lại mình biết bạn rất nhiệt tình hướng dẫn mình mấy lần nên gặp bạn post ở đây nên cố tình chen vào và nữ là mình đang rất cần. Có gì xin lỗi nhé.

 

[Quang_Hải]

Cám ơn anh quanghai1969 đã nhiệt tình chỉ giúp

Nhờ anh kiểm tra lại phần :
1/ Nhập tên vào Cột B.
2/ Và khi đổi vị trí số thứ tự thì cột B lại hiện ra khác

Bạn up file lên đi, trên máy tính của mình thì không thấy lỗi gì nên không biết được

 

[Hoàng Trọng Nghĩa]

Cám ơn anh quanghai1969 đã nhiệt tình chỉ giúp

Nhờ anh kiểm tra lại phần :
1/ Nhập tên vào Cột B.
2/ Và khi đổi vị trí số thứ tự thì cột B lại hiện ra khác

Cũng dễ hiểu thôi, tại sheet2 bạn lấy con trỏ tránh xa cột A tức là đừng để cái combobox hiện lên, rồi qua sheet1 chỉnh sửa gì cũng được! Bạn quanghai1969 cần chú ý điểm này để viết một cách tổng quát hơn!

 

[PHONGGANHHAO]

Giống y như anh Hoàng Trọng Nghĩa nói. Nếu để con trỏ ở CỘT A của sheet2 khi qua sheet1 ta thay đổi nội dung 1 trong 3 cột thì sẽ báo lỗi. Các anh có thể khắc phục lỗi này thế nào???

 

[Hoàng Trọng Nghĩa]

Giống y như anh Hoàng Trọng Nghĩa nói. Nếu để con trỏ ở CỘT A của sheet2 khi qua sheet1 ta thay đổi nội dung 1 trong 3 cột thì sẽ báo lỗi. Các anh có thể khắc phục lỗi này thế nào???

Dễ thôi mà, tại vì muốn để bạn QuangHai trả lời cho bạn nên tôi chưa khắc phục đó thôi.

Bạn sửa lại như vầy nè:

Private Sub CB_Change()
    [COLOR=#0000cd][B]If ActiveSheet.Name <> "Sheet1" Then Exit Sub[/B][/COLOR]
    On Error GoTo thoat
    If S01.CB.Value <> "" Then
        ActiveCell.Offset(0, 1).Value = S01.CB.Column(1)
        ActiveCell.Offset(0, 2).Value = S01.CB.Column(2)
    End If
thoat:      Exit Sub
End Sub

Chỉ cần thêm cái thủ tục màu xanh vào là mọi sự "yên lành".

 

[Quang_Hải]

Dễ thôi mà, tại vì muốn để bạn QuangHai trả lời cho bạn nên tôi chưa khắc phục đó thôi.

Bạn sửa lại như vầy nè:

Private Sub CB_Change()
    [COLOR=#0000cd][B]If ActiveSheet.Name <> "Sheet1" Then Exit Sub[/B][/COLOR]
    On Error GoTo thoat
    If S01.CB.Value <> "" Then
        ActiveCell.Offset(0, 1).Value = S01.CB.Column(1)
        ActiveCell.Offset(0, 2).Value = S01.CB.Column(2)
    End If
thoat:      Exit Sub
End Sub

Chỉ cần thêm cái thủ tục màu xanh vào là mọi sự "yên lành".

Giờ mình mới để ý. Mỗi lân có lỗi thế này là lại học thêm được cái mới. Cảm ơn bạn.