giúp tôi nhập dữ liệu nhanh

[hadungse]

Vấn đề như vầy. Tôi có sheet1 lưu dữ liệu như sau
A B
1001.9 100mX1.9cmX56c
1002.4 100mX2.4cmX42c
1002.5 100mX2.5cmX42c

bây jo tôi qua sheet2 ở ô A1 tôi nhập vào 1001.9 thì khi Enter nó phải đổi thành 100mX1.9cmX56c (nhớ là ở trên ô A1 nhá chứ ko phải nhảy sang ô khác nha)
Giúp tôi với. thanks

 

[ndu96081631]

Vấn đề như vầy. Tôi có sheet1 lưu dữ liệu như sau
A B
1001.9 100mX1.9cmX56c
1002.4 100mX2.4cmX42c
1002.5 100mX2.5cmX42c

bây jo tôi qua sheet2 ở ô A1 tôi nhập vào 1001.9 thì khi Enter nó phải đổi thành 100mX1.9cmX56c (nhớ là ở trên ô A1 nhá chứ ko phải nhảy sang ô khác nha)
Giúp tôi với. thanks

Cái này không dùng công thức được đâu bạn à... phải lập trình thôi
Đại khái nó thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 1 Then
    Target.Value = Sheet1.Range("A1").CurrentRegion.Find(Target).Offset(, 1)
  End If
  Application.EnableEvents = True
End Sub

Nếu bạn biết chút về VBA thì ta bàn tiếp nhé!
Ẹc.. Ẹc...

 

[hadungse]

mình ko ranh ve Excel chỉ biết bên Access thoi. Bạn lỡ giúp rồithi giúp cho chót đi, cho mình xin đoạn code di. thanks ban rat nhiều

Cái này không dùng công thức được đâu bạn à... phải lập trình thôi
Đại khái nó thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 1 Then
    Target.Value = Sheet1.Range("A1").CurrentRegion.Find(Target).Offset(, 1)
  End If
  Application.EnableEvents = True
End Sub

Nếu bạn biết chút về VBA thì ta bàn tiếp nhé!
Ẹc.. Ẹc...

 

[hadungse]

bạn ơi sao không giúp mình với. Mình cần gấp lắm, mình ko rành lắm về Excel nên mới lên đây nhờ mọi người. có ai biết thì giúp với mình cảm ơn rất nhiều

 

[ndu96081631]

bạn ơi sao không giúp mình với. Mình cần gấp lắm, mình ko rành lắm về Excel nên mới lên đây nhờ mọi người. có ai biết thì giúp với mình cảm ơn rất nhiều

Thì là cái code tôi đưa ở trên ấy... làm file cho bạn đây!
Vì ta Change trực tiếp vào Target nên khá nguy hiểm... code này chỉ để tham khảo ---> Còn rất nhiều cái cần phải cải tiến... mà tốt nhất có file thực tế của bạn sẽ dể làm hơn!

 

[tigertiger]

Thì là cái code tôi đưa ở trên ấy... làm file cho bạn đây!
Vì ta Change trực tiếp vào Target nên khá nguy hiểm... code này chỉ để tham khảo ---> Còn rất nhiều cái cần phải cải tiến... mà tốt nhất có file thực tế của bạn sẽ dể làm hơn!

tại sao a ndu96081631 đặt thế này

Application.EnableEvents = False

lý do?
mà sao file đó vẫn chạy nhỉ, a bỏ cái đấy ra có vẫn chạy...??? lạ nhỉ?
.

 

[ndu96081631]

tại sao a ndu96081631 đặt thế này


lý do?
mà sao file đó vẫn chạy nhỉ, a bỏ cái đấy ra có vẫn chạy...??? lạ nhỉ?
.

Lý do là vì ta thay đổi dử liệu trực tiếp ngay cell vừa gõ
Gõ 1002.4 thì nó phải biến thành 100mX2.4cmX42c
Nếu không có Application.EnableEvents = False thì nó không bao giờ chạy Tiger à! (đã thử rất nhiều lần rồi)

 

[hadungse]

cám ơn bạn rất nhiều. Bạn đã cứu mình một bàn thua trông thấy. he he he. Mà bây jờ mình muốn làm cho tất cả các file trong excel được không? có nghĩa là cài code đó cho chương trình excel luôn được không?

 

[ndu96081631]

cám ơn bạn rất nhiều. Bạn đã cứu mình một bàn thua trông thấy. he he he. Mà bây jờ mình muốn làm cho tất cả các file trong excel được không? có nghĩa là cài code đó cho chương trình excel luôn được không?

Như tôi đã nói ở trên, code này chỉ để giải quyết tạm thời thôi, nó khá nguy hiểm đấy!
Tôi đề xuất cách khác: Dùng ComboBox để nhập liệu... bạn thấy sao?

 

[hadungse]

ok. Mình cũng đã thử làm Combobox rồi nhưng vẫn chưa thành công với trường hợp này. Bạn hướng dẫn mình được không? mình cảm ơn rất nhiều mong nhận được Replay.

Như tôi đã nói ở trên, code này chỉ để giải quyết tạm thời thôi, nó khá nguy hiểm đấy!
Tôi đề xuất cách khác: Dùng ComboBox để nhập liệu... bạn thấy sao?

 

[ndu96081631]

ok. Mình cũng đã thử làm Combobox rồi nhưng vẫn chưa thành công với trường hợp này. Bạn hướng dẫn mình được không? mình cảm ơn rất nhiều mong nhận được Replay.

Đại khái nó thế này... bạn xem file nhé
(đương nhiên vẫn phải cải tiến thêm tùy theo trường hợp cụ thể trên file thật của bạn)