Cách tạo ComBobox: 1 cột, nhiều cột, link, 1 combobox di động cho nhiều ô, ...

khoavu87

Vũ Trần Khoa
Tham gia ngày
5 Tháng ba 2009
Bài viết
1,311
Được thích
1,762
Điểm
860
Tuổi
32
Nơi ở
CIMAS
Với từng đó yêu cầu chỉ cần duy nhất 1 combo là đủ, sao lại vẽ vời tiêu tốn tài nguyên vậy. Dữ liệu lớn chắc hết chạy luôn.
Mình cũng đã gửi ví dụ dạng này rồi nhưng không nhớ ở đâu nữa.
Nó đây chứ gì bác SEALAND
 

File đính kèm

vantoan19812002

Thành viên mới
Tham gia ngày
5 Tháng sáu 2009
Bài viết
20
Được thích
8
Điểm
365
Tuổi
38

sealand

Thành viên gạo cội
Tham gia ngày
16 Tháng năm 2008
Bài viết
4,877
Được thích
7,754
Điểm
860
Tuổi
59
Nơi ở
Hải Phòng
chà, file này đúng thật là hay, mình tham khảo và cuối cùng cũng đạt được mục đích mình cần tìm kiếm.Đây là file mà mình "cải tiến" của một bạn nào đó đã gửi file kèm theo ở trên.View attachment 57880
File của bạn chưa ngon, khi di chuyển cứ phải dung chuột, người nhập cố di chuyển bằng bàn phím thi mã vừa chọn thay đổi sai loạn. Nhập xong phải thoát Combo và về sheet cơ. Bạn thử xem nha.
 

vantoan19812002

Thành viên mới
Tham gia ngày
5 Tháng sáu 2009
Bài viết
20
Được thích
8
Điểm
365
Tuổi
38
File của bạn chưa ngon, khi di chuyển cứ phải dung chuột, người nhập cố di chuyển bằng bàn phím thi mã vừa chọn thay đổi sai loạn. Nhập xong phải thoát Combo và về sheet cơ. Bạn thử xem nha.
Chưa ngon là sao?Bạn đã thử hết chưa mà bảo chưa ngon.Nếu bạn dùng phím thì khi chọn xong mã, bấm enter và phải thoát ra bằng cách nhấn Esc.Thử lại xem bạn.
 

nguyenducduym

Thành viên mới
Tham gia ngày
16 Tháng mười một 2009
Bài viết
2
Được thích
0
Điểm
0
Tạo list xổ xuống trong validation có 2 cột

chào mọi người
mình muốn nhờ mọi người giúp đỡ vấn đề này: mình muốn tạo 1 list (trong data/validation) nhập liệu trong excel để tiện cho công việc, mình muốn trong list sẽ có cả mã khách hàng và tên khách hàng để khỏi nhầm lẫn, mình chỉ làm được list có 1 cột thôi, cụ thể như trong hình mình gửi kèm
xin mọi người jup đỡ,cảm ơn mọi người
 

File đính kèm

tranvantiena

Thành viên mới
Tham gia ngày
31 Tháng mười hai 2010
Bài viết
25
Được thích
4
Điểm
365
Tuổi
35
Bạn dùng code này nhé, mình tìm được trên diễn đàn đó
[FONT=&quot]Sub NhapDuLieu()
sheets("NhapDuLieu").select 'Tên sheet được đặt trong hai dấu nháy kép.
end Sub[/FONT]
[FONT=&quot]Sub XemDuLieu()
sheets("XemDuLieu").select
end sub[/FONT]
 

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
7,946
Được thích
7,685
Điểm
560
Tuổi
62
Nơi ở
Biên Hòa, Đồng Nai
Chào các anh chị ! Tôi muốn tạo một combo box để mỗi khi đặt con trỏ chuột vào một ô được chọn trong một cột thì sẽ xuất hiện nút bấm sổ xuống tại ô đó, cho phép chọn một giá trị trong một vùng dữ liệu (có 2 cột) để trong sheet khác, gán cho ô đựoc chọn nói trên. Xin hướng dẫn chi tiết vì tôi là dân amateur không chuyên.
CÁCH TẠO LIST
Nếu bạn muốn tạo 1 List (danh sách) để nhập vào 1 cell, thực hiện như sau:
Bước 1: trước tiên bạn phải nhập sẳn 1 danh sách cần tạo List (ví dụ bạn có 1 danh sách ở cột H nhập danh sách từ H2 đến H9)
Bước 2: đưa danh sách ở cột H vào cột mà bạn muốn tạo List (ví dụ cột B), thực hiện như sau: chọn vùng cần tạo List (ví dụ B2:B100, không chọn dòng tiêu đề), từ menu click chọn Data, chọn Validation..Làm xuất hiện cửa sổ Data Validation, chọn thẻ Settings, trong khung Allow click vào mũi tên sẽ xổ xuống 1 danh sách ta chọn List, click vào khung Souce xong đưa chuột vào cột H click chuột chọn hết vùng từ H2:H9, xong nhấn nút OK. Bạn hãy thử click chuột vào bất kỳ 1 cell nào trong vùng B2:B100 bạn sẽ thấy mũi tên xổ xuống và chọn 1 tên nào đó sẽ tự động nhập vào cell bạn vừa chọn.
Chúc bạn thực hiện thành công (be09).
 

ptm0412

Excel Ordinary Member
Thành viên BQT
Super Moderator
Tham gia ngày
4 Tháng mười một 2007
Bài viết
9,277
Được thích
28,247
Điểm
1,910
Tuổi
57
Nơi ở
Gò Vấp
Bé 09 à, người ta hỏi list xổ xuống có 2 cột và ở sheet khác. Bạn bảo tạo validation thì chỉ có 1 cột thôi, mà vẫn không lấy được list ở sheet khác.
 

trungthinhas

Thành viên mới
Tham gia ngày
16 Tháng hai 2011
Bài viết
12
Được thích
0
Điểm
0
Tuổi
31
trc tiên, tại sheet 1 bạn tạo 1 combobox, double click vào và copy đoạn code này vào và Save là OK.
sheet("sheet2").select
voi "sheet2" là sheet mà bạn muốn tới khi nhấn combobox.
Cứ thế bạn làmtương tự cho các sheet khác
chuc thanh cong.
 

boydaigai

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia ngày
8 Tháng chín 2011
Bài viết
58
Được thích
12
Điểm
0
Các anh chị ơi kiểm tra hộ e với. E làm theo hướng dẫn rồi.
sheet NX cột e tô màu, e muốn nó link điền cả thông tin cột F và G nữa.

Chi tiết e đính kèm. Cảm ơn mọi người
 

File đính kèm

kingofarms

Thành viên chính thức
Tham gia ngày
8 Tháng hai 2010
Bài viết
51
Được thích
2
Điểm
370
Tuổi
39
View dữ liệu bằng combobox

Xin giứp đỡ.
Mình đã có dữ liệu, nhưng khi chọn dữ liệu trong ComBoBox để đỗ vào textbox trong form nhưng không được. Mong được giúp đỡ.
Cảm ơn!
 

File đính kèm

viehoai

GPE mỗi ngày
Tham gia ngày
22 Tháng năm 2009
Bài viết
2,595
Được thích
2,877
Điểm
860
Tuổi
46
Nơi ở
Thừa Thiên Huế
Xin giứp đỡ.
Mình đã có dữ liệu, nhưng khi chọn dữ liệu trong ComBoBox để đỗ vào textbox trong form nhưng không được. Mong được giúp đỡ.
Cảm ơn!
Bạn sử dụng code này thử xem
Mã:
Private Sub cbb_listCH_Change()
Dim Rng

Dim i As Long
  On Error Resume Next

    Rng = Sheet2.Range("A1:G10000").Value
  For i = 1 To UBound(Rng)
    If Rng(i, 1) = cbb_listCH.Value Then
      txtKBC.Text = Rng(i, 2)
      txtCT.Text = Rng(i, 3)
      txtSLNB.Text = Rng(i, 4)
      txtTTNB.Text = Rng(i, 5)
      txtKLD.Text = Rng(i, 6)
      txtTTKLD.Text = Rng(i, 7)
      Exit For
    End If
  Next
End Sub
 

kingofarms

Thành viên chính thức
Tham gia ngày
8 Tháng hai 2010
Bài viết
51
Được thích
2
Điểm
370
Tuổi
39
Bạn sử dụng code này thử xem
Mã:
Private Sub cbb_listCH_Change()
Dim Rng

Dim i As Long
  On Error Resume Next

    Rng = Sheet2.Range("A1:G10000").Value
  For i = 1 To UBound(Rng)
    If Rng(i, 1) = cbb_listCH.Value Then
      txtKBC.Text = Rng(i, 2)
      txtCT.Text = Rng(i, 3)
      txtSLNB.Text = Rng(i, 4)
      txtTTNB.Text = Rng(i, 5)
      txtKLD.Text = Rng(i, 6)
      txtTTKLD.Text = Rng(i, 7)
      Exit For
    End If
  Next
End Sub
Đó là dữ liệu của 1 tháng.

Ví dụ mình có 12 tháng, khi lick vào combobox chọn tháng nào thì dữ liệu của tháng đó sẽ view lên trên cùng 1 form mẫu và khi đó combobox Cửa hàng mình có thể xem tùy ý.
Xin Anh/Chị giúp đỡ.
 

File đính kèm

giangvictory

Thành viên mới
Tham gia ngày
3 Tháng mười 2011
Bài viết
1
Được thích
0
Điểm
0
Tuổi
38
Em muốn hỏi chút ah.

Khi làm xong combo box thì cái biểu tượng mũi tên của nó hiện to oành, khi print preview lên cũng có.
Làm thế nào để nó ẩn đi và khi cần trỏ vào dòng đó nó mới hiện mũi tên chọn dữ liệu ạ?
Em dùng MS 2007 ah.
Em xin cảm ơn.
 

katylove83

Thành viên hoạt động
Tham gia ngày
22 Tháng hai 2013
Bài viết
166
Được thích
9
Điểm
0
Bài này cũng lâu rồi không biết có còn cần thiết hay không, thôi cứ up lên đại
anh ơi nếu dữ liệu em thay đổi lại 1 tí(file đính kèm) thì đoạn code sẻ sữa lại như thế nào vậy?


các anh GPE ơi giúp em bài này với
cám ơn
 

File đính kèm

Lần chỉnh sửa cuối:

liemtran64

Thành viên mới
Tham gia ngày
26 Tháng bảy 2016
Bài viết
1
Được thích
0
Điểm
163
Tuổi
59
Bạn có file video hướng dẫn cách làm thì tốt
 

onlylove0610

Thành viên chính thức
Tham gia ngày
5 Tháng tư 2013
Bài viết
62
Được thích
6
Điểm
370
Tuổi
32
chào mọi người
mình muốn nhờ mọi người giúp đỡ vấn đề này: mình muốn tạo 1 list (trong data/validation) nhập liệu trong excel để tiện cho công việc, mình muốn trong list sẽ có cả mã khách hàng và tên khách hàng để khỏi nhầm lẫn, mình chỉ làm được list có 1 cột thôi, cụ thể như trong hình mình gửi kèm
xin mọi người jup đỡ,cảm ơn mọi người
Các bác ơi làm như hình trong #66 như nào vậy các lão đại. Em chưa thấy bài nào hướng dẫn liên kết combobox trong user form, xin được mọi người giúp đỡ. Ai có tài liệu chia sẻ cho mình với nhé
 
Top