xin cách điền tự động theo mã số (6 người xem)

[maiban116]

em muốn lấy dữ liệu ở sheet mã số điền tự động vào sheet cài đặt chung. nhờ các bạn có cách nào hay xin hướng dẫn, xin cảm ơn

 

[ngoctinh87]

em muốn lấy dữ liệu ở sheet mã số điền tự động vào sheet cài đặt chung. nhờ các bạn có cách nào hay xin hướng dẫn, xin cảm ơn

Xem file nhe

 

[maiban116]

Xem file nhe

cám ơn bạn rất nhiều bạn có cách nào cho công thức chạy nhanh hơn không. mình áp dụng cách của bạn khiến nó chạy rất chậm khi ta thay đổi mã số

 

[Mộng Thường 2001]

Xem file nhe

@ngoctinh87
Em tạo cột phụ tạo STT phát sinh theo Mã số, rồi dùng Lookup(2,1/..) cho sheet "Cài Đặt chung" thử xem có nhẹ hơn chút nào không!
hihi ^o^

 

[be_09]

cám ơn bạn rất nhiều bạn có cách nào cho công thức chạy nhanh hơn không. mình áp dụng cách của bạn khiến nó chạy rất chậm khi ta thay đổi mã số

Chuyển sang sử dụng VBA.

 

[HieuCD]

em muốn lấy dữ liệu ở sheet mã số điền tự động vào sheet cài đặt chung. nhờ các bạn có cách nào hay xin hướng dẫn, xin cảm ơn

Tương đối dể nên nhào vô, còn khó quá miễn bàn

 

[maiban116]

Tương đối dể nên nhào vô, còn khó quá miễn bàn

XIN HỎI BẠN HIẾU CÓ CÁCH NÀO CHO CÁI CODE CỦA BẠN VIẾT RA NÓ CHẠY MƯỢT HƠN ĐƯỢC KHÔNG:
Function HanVietTT(S1 As String, Rng As Range, RngTT As Range) As String
Dim i As Long, j As Long, Tmp, TmpTT
S = Split(S1, " ")
TmpTT = RngTT
Tmp = Rng
ReDim Arr(1 To UBound(S) + 1)
For i = 1 To UBound(S) + 1
For j = 1 To UBound(TmpTT)
If LCase(S(i - 1)) = LCase(TmpTT(j, 1)) Then
Arr(i) = TmpTT(j, 2)
GoTo tiep
End If
Next
For j = 1 To UBound(Tmp)
If LCase(S(i - 1)) = LCase(Tmp(j, 1)) Then
Arr(i) = Tmp(j, 2)
GoTo tiep
End If
Next
tiep:
Next
HanVietTT = Join(Arr(), " ")
End Function

 

[HieuCD]

XIN HỎI BẠN HIẾU CÓ CÁCH NÀO CHO CÁI CODE CỦA BẠN VIẾT RA NÓ CHẠY MƯỢT HƠN ĐƯỢC KHÔNG:
Function HanVietTT(S1 As String, Rng As Range, RngTT As Range) As String
Dim i As Long, j As Long, Tmp, TmpTT
S = Split(S1, " ")
TmpTT = RngTT
Tmp = Rng
ReDim Arr(1 To UBound(S) + 1)
For i = 1 To UBound(S) + 1
For j = 1 To UBound(TmpTT)
If LCase(S(i - 1)) = LCase(TmpTT(j, 1)) Then
Arr(i) = TmpTT(j, 2)
GoTo tiep
End If
Next
For j = 1 To UBound(Tmp)
If LCase(S(i - 1)) = LCase(Tmp(j, 1)) Then
Arr(i) = Tmp(j, 2)
GoTo tiep
End If
Next
tiep:
Next
HanVietTT = Join(Arr(), " ")
End Function

Muốn mượt mà, thì dùng sub gán giá trị không dùng Function
Gởi lại file với ví dụ để mình có thể cải tiến hay cải lùi thử

 

[maiban116]

Muốn mượt mà, thì dùng sub gán giá trị không dùng Function
Gởi lại file với ví dụ để mình có thể cải tiến hay cải lùi thử

mình gửi lên có gì bạn xem hộ cho nó mượt hơn thì tuyệt vời quá

 

[HieuCD]

mình gửi lên có gì bạn xem hộ cho nó mượt hơn thì tuyệt vời quá

Với file nầy thì quá mượt rồi, không cần chỉnh lại code
Gởi file chạy cà giựt lên mới biết bệnh gì mà bổ thuốc

 

[maiban116]

Với file này thì quá mượt rồi, không cần chỉnh lại code
Gởi file chạy cà giựt lên mới biết bệnh gì mà bổ thuốc

mượt đối với dữ liệu tra ít còn đối với dữ liệu tra với mười mấy nghìn từ thì nó chậm bạn ah. bạn xem có cách khác khắc phục không. vì code của bạn tạo rất hay mình không muốn thay thế bằng công thức khác

 

[HieuCD]

mượt đối với dữ liệu tra ít còn đối với dữ liệu tra với mười mấy nghìn từ thì nó chậm bạn ah. bạn xem có cách khác khắc phục không. vì code của bạn tạo rất hay mình không muốn thay thế bằng công thức khác

Không thấy File với cấu trúc như thế nào thì không thể tùy biến cho chạy nhanh được
Chửa cháy bằng cách copy và dán giá trị các vùng công thức không cần thay đổi kết quả, chỉ giử lại ít dòng công thức

 

[be_09]

mượt đối với dữ liệu tra ít còn đối với dữ liệu tra với mười mấy nghìn từ thì nó chậm bạn ah. bạn xem có cách khác khắc phục không. vì code của bạn tạo rất hay mình không muốn thay thế bằng công thức khác

Sử dụng VBA để tra với mười mấy nghìn từ thì cũng có thể được. Nếu bạn muốn tra nhiều từ cùng 1 lúc thì bạn đưa File thật lên đây tôi xem thử,

 

[maiban116]

bạn cho mình sđt để liên hệ được không

 

[♫ђöล♥ßล†♥†µ♫]

bạn cho mình sđt để liên hệ được không

Số điện thoại liên hệ là Từ 0 đến 9 tự sắp xếp

 

[kenzobmt]

bạn ơi ! hỗ trợ mình với mình làm theo công thức của bạn mà ko được

Tương đối dể nên nhào vô, còn khó quá miễn bàn

 

[queluatb]

Không thấy File với cấu trúc như thế nào thì không thể tùy biến cho chạy nhanh được
Chửa cháy bằng cách copy và dán giá trị các vùng công thức không cần thay đổi kết quả, chỉ giử lại ít dòng công thức

e có file đính kèm khi chọn mã khách hay mã thành phẩm đều rất chậm, dữ liệu của e ngày một lớn, các anh, chị xem giúp e có cải thiện tốc độ được không
em cám ơn nhiều

 

[HieuCD]

bạn ơi ! hỗ trợ mình với mình làm theo công thức của bạn mà ko được

Sheet còn lại không rỏ bạn cần gì

 

[maiban116]

Chuyển sang sử dụng VBA.

có lẽ dùng vba sẽ nhẹ hợ. mọng bạn cho hướng dẫn