[Thắc mắc] Khóa không cho cập nhật dữ liệu của vlookup (3 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

dohangminhtri

Thành viên mới
Tham gia
18/7/18
Bài viết
25
Được thích
3
Xin phép mọi người giải đáp : hiện bảng chính là A1=tên ,khi dùng vlookup thì B1,C1,D1,E1 sẽ hiện thị các số liệu của bảng phụ
xin phép hỏi có lệnh nào khi mà mình thực hiện bôi màu hàng 1 thì tất cả dự liệu hiện tại sẽ đc giữ nguyên mặc dù các số liệu bảng phụ thay đổi theo thời gian .! (Đại loại là khóa số liệu ko cho cập nhật theo bảng phụ ) . Cảm ơn
1234.JPG
 
Đại loại chắc là như thế này:

GPR_dohangminhtri_180718163125.PNG
 
Thắc mắc như bạn trên nói , mình muốn có cách nào đó bôi màu hoặc highlight chữ đậm đen lên là giá trị giữ nguyên ko đổi , và có thể áp dụng cho cả vlookup hay offset gì cũng đc , Mong các bạn giải đáp . Cảm ơn !
 
xin lỗi cách diễn đạt , nhưng bài toán như bạn nlbx đã nêu trên , mong bạn giúp đỡ
Sử dụng VBA theo hướng:
Thử với tô màu ô [B3]:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) & "*0+" & [b3]
If Range("b3").Interior.ColorIndex = 6 Then
'Application.Calculation = xlCalculationManual
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) & "*0+" & [b3]
Else
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) '& "*0+" & [b3]
End If
End Sub
 
Sử dụng VBA theo hướng:
Thử với tô màu ô [B3]:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) & "*0+" & [b3]
If Range("b3").Interior.ColorIndex = 6 Then
'Application.Calculation = xlCalculationManual
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) & "*0+" & [b3]
Else
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) '& "*0+" & [b3]
End If
End Sub
cảm ơn bạn , nhưng mình ko biết về VBA =.=
 
Vậy thì:
1. Tìm VBA trên mạng để học
2. Theo #5
 
Thử: (A<0 sẽ FALSE)
D1=IF(AND(A1>0,B1>0),A1,IF(AND(A1>0,B1<0),C1*E1))
E1=IF(AND(A1>0,B1>0),D1*C1,IF(AND(A1>0,B1<0),A1))
Rồi copy 2 ô xuống
 
Thử: (A<0 sẽ FALSE)
D1=IF(AND(A1>0,B1>0),A1,IF(AND(A1>0,B1<0),C1*E1))
E1=IF(AND(A1>0,B1>0),D1*C1,IF(AND(A1>0,B1<0),A1))
Rồi copy 2 ô xuống
Mình đã làm thử cách này rồi bạn , nhưng excel ko hiểu trong TH2 cái nào ưu tiên tính trước , nên khi tính ra số ko chính xác trong TH2 . nên mình mới đăng thắc mắc này để hỏi về TH2 có lệnh nào ưu tính Y trước rồi mới tính X
 
Mình đã làm thử cách này rồi bạn , nhưng excel ko hiểu trong TH2 cái nào ưu tiên tính trước , nên khi tính ra số ko chính xác trong TH2 . nên mình mới đăng thắc mắc này để hỏi về TH2 có lệnh nào ưu tính Y trước rồi mới tính X
Nhưng kết quả có như bạn muốn k. Mình thấy kq ra dống mà. Bạn lấy 1 trường hợp mà nó không iu tiên tính Y đi
 
Sử dụng VBA theo hướng:
Thử với tô màu ô [B3]:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) & "*0+" & [b3]
If Range("b3").Interior.ColorIndex = 6 Then
'Application.Calculation = xlCalculationManual
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) & "*0+" & [b3]
Else
[b3] = Split(Range("b3").FormulaLocal, "*0+")(0) '& "*0+" & [b3]
End If
End Sub
giả sử , mình muốn bôi theo hàng , tùy ý , hàng 1 , 10 hay 100 gì đó nó sẽ tự chuyển sang calculation manual hết thì lệnh như thế nào cho phù hợp vậy bạn , và mình dùng màu light blue . tại vì nếu theo lệnh kia mình chỉ có thể gán lệnh cho riêng ô b3 thôi !
Bài đã được tự động gộp:

Nhưng kết quả có như bạn muốn k. Mình thấy kq ra dống mà. Bạn lấy 1 trường hợp mà nó không iu tiên tính Y đi
à mình đã làm đc , hóa ra bị lỗi công thức thôi ! Cảm ơn bạn :D
 
Web KT

Bài viết mới nhất

Back
Top Bottom