Liên quan đến Combo Box!

[hungcandn]

Xin chào các bạn!
Nhờ các bạn giúp cho; Mình dùng 2 Combo Box cho 1 sheet đầu tiên; Một cái CBoDvi lấy mảng "Donvi" và 1 Combo box về mã vật tư CBoVtu lấy mảng GiaVT.
Khi thử thì chạy ổn đinh cho 1 sheet đầu tiên. Cho nên tôi copy sheet sang các Sheet(1),Sheet(2).... và đổi tên sheet.
Công việc tưởng chưng êm xuôi nhưng khi giá Vật tư thay đổi tôi sửa trong mảng GiaVT thi không được.
Nên tôi phải vào Marco và làm liệt các hàm này cho từng sheet
'Private Sub CboVtu_Change()
'ActiveCell.Value = CboVtu.Value
'ActiveCell.Offset(, 1).Select
'End Sub.
Thì lúc đó mới chỉnh sửa được mảng GiaVT.
Như thế thì hơi lâu và rườm rà quá. Các bạn có cách nào đơn giản và nhẹ nhàng trong công việc này thì giúp cho với.
Xin cảm ơn

 

[ptlong04x1]

Bạn gửi File lên và ghi yêu cầu ngay trong File luôn.

 

[hungcandn]

Cảm ơn ban PTLong04x1. Mình chưa biết cách gửi file lên diển đàn nê mình đã gửi email cho bạnn

 

[ptlong04x1]

Cảm ơn ban PTLong04x1. Mình chưa biết cách gửi file lên diển đàn nê mình đã gửi email cho bạnn

Mail của mình ptlong04x1@gmail.com, mình chưa nhận được, khi nào mail tới mình sẽ đưa lên giùm bạn, nhân tiện bạn coi thêm ở đây để biết cách đính kèm file :

http://www.giaiphapexcel.com/forum/showthread.php?t=250

 

[ptlong04x1]

Xin chào các bạn!
Nhờ các bạn giúp cho; Mình dùng 2 Combo Box cho 1 sheet đầu tiên; Một cái CBoDvi lấy mảng "Donvi" và 1 Combo box về mã vật tư CBoVtu lấy mảng GiaVT.
Khi thử thì chạy ổn đinh cho 1 sheet đầu tiên. Cho nên tôi copy sheet sang các Sheet(1),Sheet(2).... và đổi tên sheet.
Công việc tưởng chưng êm xuôi nhưng khi giá Vật tư thay đổi tôi sửa trong mảng GiaVT thi không được.
Nên tôi phải vào Marco và làm liệt các hàm này cho từng sheet
'Private Sub CboVtu_Change()
'ActiveCell.Value = CboVtu.Value
'ActiveCell.Offset(, 1).Select
'End Sub.
Thì lúc đó mới chỉnh sửa được mảng GiaVT.
Như thế thì hơi lâu và rườm rà quá. Các bạn có cách nào đơn giản và nhẹ nhàng trong công việc này thì giúp cho với.
Xin cảm ơn

File của bạn hungcandn, mọi người xem giúp nha, mình đang bận quá.

 

[ptlong04x1]

Lâu quá quên mất bài này, không biết bạn đã làm được chưa. Cách làm của mình như sau :

Private Sub CboVtu_Change()
    If ActiveSheet.Name = "DONGIA" Then Exit Sub
    ActiveCell.Value = CboVtu.Value
    ActiveCell.Offset(, 1).Select
End Sub

Như vậy là mỗi khi bạn sửa GiaVT trong sheet DONGIA thì sẽ không làm kích hoạt Sub CboVtu_Change --> Sửa được.

PS : File của bạn có quá nhiều Name rác, bấm Ctrl F3 để xem rồi xoá mấy Name không cần thiết đi.