Hỏi 1 chút về ComboBox! (1 người xem)

[thanhtri]

Các anh ơi cho em hỏi chút!
Em dùng ComboBox đễ nhập dử liệu vào cell hiện hành. Em muốn khi dử liệu vừa dc nhập xong thì cell hiện hành tự động nhảy xuống phía dưới? VD như em đang ở cell C1, chọn vào ComboBox để lấy dử liệu. Khi dử liệu vừa dc điền vào cell C1 thì cell hiện hành tự động chuyển sang cell C2.
Và còn nữa, làm cách nào để hiệu chỉnh Font Size trong ComboBox? Có thể tô màu cho nó dc ko?
Làm cách nào đây? Chỉ em với!
Miss TT

 

[vungoc]

- Vấn đề thứ nhất, nhờ các anh chị trên diễn đàn chỉ dẫn; Vấn đề thứ hai bạn có thể thực hiện như sau:
- Từ thanh Menu chọn View - Toolbars - Control Toolbox nhấn chọn nút Exit Disgn Mode (nút có hình thước kẻ và êke) - nhấn chọn Combobox khi đó bạn thấy Combobox sẽ có 8 nút tròn hiện lên xung quanh, bạn click phải chuột lên Combobox chọn Properties nhấp chọn nút Fonts để chọn điều chỉnh Size và kiểu chữ / Nhấp nút Fore Color để chọn điều chỉnh màu chữ trong Combo - sau cùng bạn tắt Properties và thôi chọn nút Exit Disgn Mode. Bạn thử chọn lại Combobox của mình, lúc này không còn 8 nút xung quanh nữa, nhắp vào nút mũi tên xổ xuống để xem hiệu ứng mà bạn vừa thực hiện.
Chúc bạn thành công !

 

[ThuNghi]

Bạn thanhtri nên tham khảo phần "Enter thì nhảy..." trong giải thích code, tôi đã hỏi trên GPE, cụ thể là hỏi Bác Hiếu (OkeBab). Còn phần tôi chỉ bạn, chỉ cần nhấn Alt F8 chạy macro Dan_Ct, cứ làm thử đi rồi sẽ có người HD tiếp. Trình độ VBA của mình chỉ biết Ctr C và Ctr V thôi.

 

[Mr Okebab]

Các anh ơi cho em hỏi chút!
Em dùng ComboBox đễ nhập dử liệu vào cell hiện hành. Em muốn khi dử liệu vừa dc nhập xong thì cell hiện hành tự động nhảy xuống phía dưới? VD như em đang ở cell C1, chọn vào ComboBox để lấy dử liệu. Khi dử liệu vừa dc điền vào cell C1 thì cell hiện hành tự động chuyển sang cell C2.
Và còn nữa, làm cách nào để hiệu chỉnh Font Size trong ComboBox? Có thể tô màu cho nó dc ko?
Làm cách nào đây? Chỉ em với!
Miss TT

Có rất nhiều cách để điều khiển việc nhảy tới C2.
VD :
C1: Chuyển Enter từ Down sang right : C1->C2
C2 : Khóa tất cả các ô, chỉ chừa lại ô C1 và C2 . .
C3: Dùng sự kiện Combobox_Change để khi nhập xong combobox thì ô C2 sẽ được chọn
. . . . .

Thân!

P/S : ThuNghi lười vừa vừa thôi nhé, thế mà đòi uống Bàu Đá với Gò Đen à ??

 

[thanhtri]

Trời đất ơi! Em đã nói là ko biết gì về VBA rồi mà. Anh lở chỉ rồi thì chỉ cho trót đi. Hiện giờ trong ComboBox của em chỉ có 1 đoạn code duy nhất:

Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1
End Sub

Bây giờ phải thêm cái gì vào nữa thì nó sẽ nhãy sang cell C1
Miss TT

 

[anhphuong]

Thêm duy nhất một câu lệnh phía dưới là :
ActiveCell.Offset(1,0).Select

 

[anhphuong]

Thêm duy nhất một câu lệnh phía dươi là ;
ActiveCell.Offset(1,0).Select (Nếu muốn nó chạy xuống dưới 1 ô)

hoặc
ActiveCell.Offset(0,1).Select (Nếu muốn nó chạy qua phải 1 ô)
Thân

 

[Mr Okebab]

Thêm duy nhất một câu lệnh phía dươi là ;
ActiveCell.Offset(1,0).Select (Nếu muốn nó chạy xuống dưới 1 ô)

hoặc
ActiveCell.Offset(0,1).Select (Nếu muốn nó chạy qua phải 1 ô)
Thân

Cẩn thận với Offset, vì nếu ô chuyển tới đang bị Protect thì sẽ báo lỗi đấy.
Chắc ăn ta nên dùng địa chỉ tuyệt đối luôn.
VD : Range("A2").Select

Thân!

 

[thanhtri]

Bảng tính này ko có Protect nên em ko lo chuyện báo lỗi. Có điều là em thêm đọan code ấy vào rồi sao nó chẳng nhảy xuống ô dưới gì cả!
Em chọn vào ô A5, rồi chọn vào ComboBox đễ lấy dử liệu. Xong rồi thì ô hiện hành vẫn nằm chình ình ở ô A5, chẳng nhảy xuống A6. Là sao thế nhỉ?
Miss TT

 

[anhphuong]

Nó phải nhảy chứ

Bảng tính này ko có Protect nên em ko lo chuyện báo lỗi. Có điều là em thêm đọan code ấy vào rồi sao nó chẳng nhảy xuống ô dưới gì cả!
Em chọn vào ô A5, rồi chọn vào ComboBox đễ lấy dử liệu. Xong rồi thì ô hiện hành vẫn nằm chình ình ở ô A5, chẳng nhảy xuống A6. Là sao thế nhỉ?
Miss TT

Bạn muốn nó nhãy xuống thì chỉ ghi một câu ActiveCell.Offset(1,0).Select ở phía dưới dòng lệnh đã có sẵn của bạn . Bạn xem lại đi, tôi thử rồi nó "chạy" đấy chứ không phải chỉ "nhảy" thôi đâu

 

[thanhtri]

Cụ thể là đoạn code bây giờ sẽ là:

Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1
ActiveCell.Offset(1,0).Select
End Sub

Có đúng vậy ko anh? Em đang làm thế đấy, nhưng nó chẳng nhảy dc ô nào cả! Em thật sự ko hiểu. Giá như em biết 1 tí về VBA thì đở quá. Đàng này em loay hoay mãi mà vẫn ko làm dc.
Ah, cái trò này là em bắt chước trong sách Excel của Ông Văn Thông đấy. Trong đó chỉ hướng dẩn cách làm ComboBox chứ ko nói gì đến chuyện NHẢY CELL
Anh xem lại lần nữa và cố gắng giúp em nha! Thật sư chỉ cần nhảy dc ô xuống phía dưới là em sẽ tiết kiệm dc rất nhiều thời gian.
Miss TT

 

[thanhtri]

Anh ơi em làm dc rồi. Em sai là tại vì bảng tính của em có đến 8 sheet, mỗi sheet đều có 1 ComboBox, mà em chỉ sửa code cho có 1 sheet thì tất nhiên mấy sheet khác ko có tác dụng rồi
Cám ơn anh nhiều nhiều
Miss TT

 

[Mainho]

Cho mình hỏi, sau khi cài dòng lệnh đó, phải làm gì để nó chạy? Mình đã thử Alt- F8 rồi nhưng không làm được. Lúc trước, mình có biết cách phải làm sao để chạy 1 dòng lệnh trong VBA nhưng giờ thì quên mất rồi. Nhờ các bạn chỉ lại nhé. Xin lỗi là đang mày mò học nên không thể nhớ ngay được

 

[mymichau]

Cho mình hỏi, sau khi cài dòng lệnh đó, phải làm gì để nó chạy? Mình đã thử Alt- F8 rồi nhưng không làm được. Lúc trước, mình có biết cách phải làm sao để chạy 1 dòng lệnh trong VBA nhưng giờ thì quên mất rồi. Nhờ các bạn chỉ lại nhé. Xin lỗi là đang mày mò học nên không thể nhớ ngay được

Bạn bấm vào nút Design mode ( hình thước Eke ) trong bảng control toolbox thì được ngay

 

[duongsatdn]

- Vấn đề thứ nhất, nhờ các anh chị trên diễn đàn chỉ dẫn; Vấn đề thứ hai bạn có thể thực hiện như sau:
- Từ thanh Menu chọn View - Toolbars - Control Toolbox nhấn chọn nút Exit Disgn Mode (nút có hình thước kẻ và êke) - nhấn chọn Combobox khi đó bạn thấy Combobox sẽ có 8 nút tròn hiện lên xung quanh, bạn click phải chuột lên Combobox chọn Properties nhấp chọn nút Fonts để chọn điều chỉnh Size và kiểu chữ / Nhấp nút Fore Color để chọn điều chỉnh màu chữ trong Combo - sau cùng bạn tắt Properties và thôi chọn nút Exit Disgn Mode. Bạn thử chọn lại Combobox của mình, lúc này không còn 8 nút xung quanh nữa, nhắp vào nút mũi tên xổ xuống để xem hiệu ứng mà bạn vừa thực hiện.
Chúc bạn thành công !

Còn ComboBox tạo bởi Forms thì sao Vungoc ơi???

 

[mymichau]

Nếu là ComboBox trong Form, thì bạn phại viết code trong module, khi thực hiện macro thì bấm Alt+f8 và chon tên macro và bấm Run

 

[duongsatdn]

Bạn hướng dẫn cụ thể dược không?

 

[PhanTuHuong]

Bạn nào muốn tìm hiểu thì tải ở đây:

 

[phamduydn]

...Vấn đề thứ hai bạn có thể thực hiện như sau:
- Từ thanh Menu chọn View - Toolbars - Control Toolbox nhấn chọn nút Exit Disgn Mode (nút có hình thước kẻ và êke) - nhấn chọn Combobox khi đó bạn thấy Combobox sẽ có 8 nút tròn hiện lên xung quanh, bạn click phải chuột lên Combobox chọn Properties nhấp chọn nút Fonts để chọn điều chỉnh Size và kiểu chữ / Nhấp nút Fore Color để chọn điều chỉnh màu chữ trong Combo - sau cùng bạn tắt Properties và thôi chọn nút Exit Disgn Mode. Bạn thử chọn lại Combobox của mình, lúc này không còn 8 nút xung quanh nữa, nhắp vào nút mũi tên xổ xuống để xem hiệu ứng mà bạn vừa thực hiện.
Chúc bạn thành công !

Combo Box mình tạo trong Form Control, không có thuộc tính xem Properties, chỉ có hộp thoại Format Control. Làm thế nào để thay đổi Size Text trong hộp thoại Combo Box vậy?

Làm theo cách của bạn hoangvulinh cũng không được, vì nút "Move and size with cells" không active được (bị mờ đi).

Như vậy theo Bác ndu thì rõ ràng không có cách nào rồi đúng không?
Và muốn thay đổi cỡ chữ Combo Box này thì phải thay đổi và chuyển qua dùng Combo Box bên Active XControl? Nhơ các Anh Chị cho ý kiến?