Tìm kiếm thoả mãn điều kiện rồi copy

[nokiano258vn]

Tôi muốn nhờ các bác chỉ giúp xem có cách nào để khi ta dùng hàm ví dụ như B1= Vlookup($A1;$E$1:$H$1;2;0) thì sẽ copy dữ liệu ở F1 sang B1 không? Vì như vậy thì mới có thể thêm hoặc sửa chữa những câu ở B1 được

 

[DOSNET]

Tôi muốn nhờ các bác chỉ giúp xem có cách nào để khi ta dùng hàm ví dụ như B1= Vlookup($A1;$E$1:$H$1;2;0) thì sẽ copy dữ liệu ở F1 sang B1 không? Vì như vậy thì mới có thể thêm hoặc sửa chữa những câu ở B1 được

không hiểu rõ ý của bạn, up file lên đi

 

[sarah84]

mình không hiểu lắm, nhưng copy kết quả value cuả B1, sang F1 past special, value...

 

[Mr Okebab]

Tôi muốn nhờ các bác chỉ giúp xem có cách nào để khi ta dùng hàm ví dụ như B1= Vlookup($A1;$E$1:$H$1;2;0) thì sẽ copy dữ liệu ở F1(cột thứ 2) sang B1 không? Vì như vậy thì mới có thể thêm hoặc sửa chữa những câu ở B1 được

Được thôi, nhưng đó phải là 1 hàm tự tạo bằng VBA chứ không phải là hàm chuẩn của excel.

Xem lại chữ màu đỏ nhé!

Thân!

 

[nokiano258vn]

Được thôi, nhưng đó phải là 1 hàm tự tạo bằng VBA chứ không phải là hàm chuẩn của excel.

Xem lại chữ màu đỏ nhé!

Mr Okebab có thể giúp tôi làm bằng VBA được không? vì F1(cột thứ 2) của tôi là những từ dạng text như ABCDEF (khi chuyển sang cột B1 nhấn F2 để sửa thì nó chỉ hiện công thức Vlookup). Tôi gửi kèm theo file

 

[Mr Okebab]

Được thôi, nhưng đó phải là 1 hàm tự tạo bằng VBA chứ không phải là hàm chuẩn của excel.

Xem lại chữ màu đỏ nhé!

Mr Okebab có thể giúp tôi làm bằng VBA được không? vì F1(cột thứ 2) của tôi là những từ dạng text như ABCDEF (khi chuyển sang cột B1 nhấn F2 để sửa thì nó chỉ hiện công thức Vlookup). Tôi gửi kèm theo file

Xin lỗi, mình nhầm đấy. Không thể sửa thành một giá trị nếu chỉ dựa vào hàm.

Phải chạy một lệnh thì mới có thể làm được (như nhấn 1 nút chẳng hạn)
Ta có thể dựa vào sự kiện Worksheet_Change.

Thân!

 

[nokiano258vn]

Phải chạy một lệnh thì mới có thể làm được (như nhấn 1 nút chẳng hạn)
Ta có thể dựa vào sự kiện Worksheet_Change.

Thân!

Mr Okebab có thể giải thích rõ hơn không? nghĩa là VBA có thể giải quyết được?

 

[Mr Okebab]

Mr Okebab có thể giải thích rõ hơn không? nghĩa là VBA có thể giải quyết được?

Bạn xem File này nhé.
Bạn thử nhập vào công thức vlookup xem sao nhé.

Thân!

 

[nokiano258vn]

Cảm ơn Mr Okebab nhiều lắm nhưng cái này không copy công thức được phải không?

 

[nokiano258vn]

Mối lần chèn dòng, xoá dòng, copy... đều bị báo lỗi ở chỗ tôi bôi đỏ là sao vậy Mr Okebab
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If UCase(Left$(Target.Formula, 8)) = "=VLOOKUP" Then Target.Value = Target.Value
End Sub

 

[Mr Okebab]

Mối lần chèn dòng, xoá dòng, copy... đều bị báo lỗi ở chỗ tôi bôi đỏ là sao vậy Mr Okebab
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If UCase(Left$(Target.Formula, 8)) = "=VLOOKUP" Then Target.Value = Target.Value
End Sub

Bạn xóa đoạn trên và thay bằng đoạn này nhé :

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub
    If UCase(Left$(Target.Formula, 8)) = "=VLOOKUP" Then Target.Value = Target.Value
End Sub

Thân!

 

[nokiano258vn]

If UCase(Left$(Target.Formula, 8))
Mr Okebab có thể giải thích cho đoạn này không? số 8 có nghĩa là gì?

 

[Mr Okebab]

If UCase(Left$(Target.Formula, 8))
Mr Okebab có thể giải thích cho đoạn này không? số 8 có nghĩa là gì?

Bạn có hiểu về hàm Left không ??? Nó chính là hàm LEFT đấy!!

Thân!

P/S : Nếu như Chữ hoa của công thức của ô đó tình từ bên trái lấy 8 ký tự . .