Lấy giá trị từ combobox sang textbox

[Hoàng Trọng Nghĩa]

Tôi có một danh sách ở cột A, tương ứng với nó là cột B. Tôi muốn dùng cobobox lấy nguồn từ cột A, vậy là khi tôi chọn vào từng giá trị trong Cobo thì giá trị tương ứng ở cột B sẽ được nhập vào Textbox.
KÍNH NHỜ CÁC THẦY CÔ, ANH CHỊ GIÚP ĐỠ!

 

[Hai Lúa Miền Tây]

Tôi có một danh sách ở cột A, tương ứng với nó là cột B. Tôi muốn dùng cobobox lấy nguồn từ cột A, vậy là khi tôi chọn vào từng giá trị trong Cobo thì giá trị tương ứng ở cột B sẽ được nhập vào Textbox.
KÍNH NHỜ CÁC THẦY CÔ, ANH CHỊ GIÚP ĐỠ!

Anh tạo lại dữ liệu nguồn cho combo vời 2 cột sau đó chèn code sau vào form:

Private Sub CboNguon_Change()
Txtgiatri = CboNguon.Column(1)
End Sub

Anh xem them file nhé

 

[Hoàng Trọng Nghĩa]

Anh tạo lại dữ liệu nguồn cho combo vời 2 cột sau đó chèn code sau vào form:

Private Sub CboNguon_Change()
Txtgiatri = CboNguon.Column(1)
End Sub

Anh xem them file nhé

Cám ơn Domfootwear nhiều nhé! Nếu không có bạn thì việc dễ như vậy mà mình cũng chẳng nghĩ ra!

 

[Hoàng Trọng Nghĩa]

Sẳn bài này, cho tôi hỏi là có thể làm NAME ĐỘNG cho 2 cột được không? Làm bằng cách nào? (Mới biết chút về name động nên khi thử nó báo lỗi hoài thôi).
Cám ơn rất nhiều ạ!

 

[huuthang_bd]

Sẳn bài này, cho tôi hỏi là có thể làm NAME ĐỘNG cho 2 cột được không? Làm bằng cách nào? (Mới biết chút về name động nên khi thử nó báo lỗi hoài thôi).
Cám ơn rất nhiều ạ!

Bạn dùng công thức nàyL:

=OFFSET($A$1,,,COUNTA($A:$A),2)

 

[ndu96081631]

Sẳn bài này, cho tôi hỏi là có thể làm NAME ĐỘNG cho 2 cột được không? Làm bằng cách nào? (Mới biết chút về name động nên khi thử nó báo lỗi hoài thôi).
Cám ơn rất nhiều ạ!

Xài code thì code luôn ---> Lẩn lộn code rồi công thức chi cho nó mệt xác!
Dùng code bạn cũng xác định được vùng động vậy!

 

[ptm0412]

Xài code thì code luôn ---> Lẩn lộn code rồi công thức chi cho nó mệt xác!
Dùng code bạn cũng xác định được vùng động vậy!

Bổ sung:
Với combobox 2 cột bắt buộc phải dùng combobox của Control toolbox, mà cái combo này khác combo của form-toolbar là không tự cập nhật ListFillRange. Sẽ vẫn phải dùng code!

 

[Hoàng Trọng Nghĩa]

Bổ sung:
Với combobox 2 cột bắt buộc phải dùng combobox của Control toolbox, mà cái combo này khác combo của form-toolbar là không tự cập nhật ListFillRange. Sẽ vẫn phải dùng code!

Xài code thì code luôn ---> Lẩn lộn code rồi công thức chi cho nó mệt xác!
Dùng code bạn cũng xác định được vùng động vậy!

Các Thầy ui, Name động em còn mập mờ, huống chi dùng Code! Các Thầy có lòng thì cho em xin Code luôn đi ạ!
Em trân trọng cám ơn ạ!

 

[ptm0412]

Động cũng có nhiều loại động:
- Kích thước động: kích thước co giãn (1 chiều hoặc 2 chiều) theo dữ liệu thêm vào hoặc bớt ra
- Vị trí động: Dịch chuyển theo 1 điều kiện nào đó theo 4 hướng trái phải, trên dưới
Vậy Minh Thien muốn động kiểu nào?

1.Câu lệnh gán Name đơn giản cho 1 range là:

Sheet1.Range("A1:B50").Name = "Data1"

2. Gán Name cho vùng bắt đầu từ A1 đến hết dòng cuối và 3 cột:

EndR = [A65000].End(xlUp).Row
Range("A1").Resize(EndR, 3).Name = "Data2"

3. Gán Name cho vùng bắt đầu từ A1 đến cột cuối và 10 dòng:

EndCol = [IV1].End(xlToLeft).Column
Range("A1").Resize(10, EndCol).Name = "Data3"

4. Gán Name cho vùng A1:B50 dịch chuyển xuống dưới 3 dòng và sang phải 2 cột:

Range("A1:B50").Offset(3, 2).Name = "Data4"

5. Gán Name cho 1 vùng A1:B50 dịch chuyển theo điều kiện m dòng, n cột:

Dùng code công thức tính ra m và n theo điều kiện đó, rồi dùng

Range("A1:B50").Offset(m, n).Name = "Data5"

6. Kết hợp cả các loại động: vừa thay đổi kích thước i dòng, j cột vừa dịch chuyển m dòng n cột: Tính toán theo điều kiện cho ra i, j, m, n rồi dùng:

Range("A1").Resize(i, j).Offset(m, n).Name = "Data6"

 

[Hoàng Trọng Nghĩa]

Cám ơn Thầy PTM0412 rất rất nhiều!
Kiến thức của các Thầy thật bao la! Hôm nay em học được nhiều điều bổ ích quá!
Một lần nữa cám ơn Thầy rất nhiều. Chúc Thầy có một đêm thật ngon giấc!

 

[ndu96081631]

Nêu dùng code mà định được vùng dử liệu thì ta.. xài luôn ---> Cần gì phải gán vào name, sư phụ nhỉ?

 

[ptm0412]

Ẹc Ẹc, hỏi gì trả lời nấy mà. Vả lại, name này MinhThien định gán cho ListFillRange của Combobox.
nếu không dùng Name thì lại phải học thêm 1 chiêu:

Sheet1.Combo1.ListFillRange = Range("A1").Resize(i, j).Offset(m, n).Address

Còn dùng liên kết dữ liệu dạng ADO thì lại phải dùng Name, lúc này vùng dữ liệu được đặt tên trở thành 1 Data Table với fields, records, ... để truy cập dạng:

DSNV.MaNV, DSNV.Ten, ...

 

[kicon]

tạo dữ liệu nguốn cho 2 cột bằng cáh nào vậy anh chị...

 

[NH_DK]

tạo dữ liệu nguốn cho 2 cột bằng cáh nào vậy anh chị...

Bạn xem đoạn Video hướng dẫn này nhé!

 

[mymapmap]

Lấy nhiều giá trị từ combobox có nhiều cột

Combobox có show được nhiều cột khi chọn hay chỉ show cột đầu tiên?.
Lấy nhiều giá trị từ combobox có nhiếu cột như thế nào các thầy?
Xin cảm ơn các ý kiến trả lời!

 

[tranvanold]

Combobox chỉ show cột đầu tiên thôi ban ah. Để giá trị trả về là cột thứ mấy bạn sữa giá trị Boundcolum trong properties.

 

[sealand]

Muốn lấy giá trị từ Combo hay ListBox:
-Cột Boundcolumn: =Ten_Combo
-Các cột khác: =Ten_Combo.Column(n) (Luu ý n tính từ 0)
ví dụ lấy gia trị cột 2 của Cmb_MaVT : =Cmb_MaVT.Column(1)

Còn Show bao nhiêu cột phụ thuộc vào thuộc tính ColumnCount và ColumnWidth mà bạn xác lập cho nó