Đưa hàm IF bằng VBA thay vì hiển thị công thức trong bảng tính

Liên hệ QC

kokoro mitsubishi

Thành viên chính thức
Tham gia
2/12/13
Bài viết
55
Được thích
3
Chào cả nhà
Lời đầu tiên xin chúc cả nhà buổi tối cuối tuần vui vẻ
Chả là mình có nội dung muốn nhờ anh chị em trong diến đàn giúp đỡ
File đính kèm tại dòng từ AB6=>ABn mình đang sử dụng hàm IF để cảnh báo sự sai lệch số lượng đạt / hỏng so với số lượng ban đầu đưa ra sản xuất
vì vậy mình muốn mọi người chỉ giúp hàm VBA nào để IF đó không hiển thị trên bảng tính
Do mình tự học nên có nhiều hạn chế

xin cảm ơn mọi người
 

File đính kèm

  • ◆ Kiểm xoát thời gian số Lot (Kiểm tra cuối ).xlsm
    2 MB · Đọc: 13
Chào cả nhà
Lời đầu tiên xin chúc cả nhà buổi tối cuối tuần vui vẻ
Chả là mình có nội dung muốn nhờ anh chị em trong diến đàn giúp đỡ
File đính kèm tại dòng từ AB6=>ABn mình đang sử dụng hàm IF để cảnh báo sự sai lệch số lượng đạt / hỏng so với số lượng ban đầu đưa ra sản xuất
vì vậy mình muốn mọi người chỉ giúp hàm VBA nào để IF đó không hiển thị trên bảng tính
Do mình tự học nên có nhiều hạn chế

xin cảm ơn mọi người
Không muốn cho hiện công thức thì ẩn công thức rồi protect sheet đi bạn.

Tôi thấy cách định dạng có vấn đề nhỉ? Ra số âm quá trời mà không cho nó hiện ra, nếu tính toán biết sai đâu mà lần?

1630857269533.png
 
Lần chỉnh sửa cuối:
Upvote 0
Chào cả nhà
Lời đầu tiên xin chúc cả nhà buổi tối cuối tuần vui vẻ
Chả là mình có nội dung muốn nhờ anh chị em trong diến đàn giúp đỡ
File đính kèm tại dòng từ AB6=>ABn mình đang sử dụng hàm IF để cảnh báo sự sai lệch số lượng đạt / hỏng so với số lượng ban đầu đưa ra sản xuất
vì vậy mình muốn mọi người chỉ giúp hàm VBA nào để IF đó không hiển thị trên bảng tính
Do mình tự học nên có nhiều hạn chế

xin cảm ơn mọi người
Code cho bạn dễ hình dung và kết quả như bạn muốn
Rich (BB code):
Sub CotAB()
Dim endR&, i&, arrKQ

endR = 3007  'Thay bang so N cua ban
ReDim arrKQ(1 To endR - 5, 1 To 1)
For i = 6 To 3007
    If Range("G" & i) <> "" Then
        arrKQ(i - 5, 1) = WorksheetFunction.Sum(Range("I" & i & ":AA" & i), Range("G" & i), -Range("F" & i))
    End If
Next
Range("AB6").Resize(UBound(arrKQ), 1) = arrKQ
End Sub
 
Upvote 0
Code cho bạn dễ hình dung và kết quả như bạn muốn
Rich (BB code):
Sub CotAB()
Dim endR&, i&, arrKQ

endR = 3007  'Thay bang so N cua ban
ReDim arrKQ(1 To endR - 5, 1 To 1)
For i = 6 To 3007
    If Range("G" & i) <> "" Then
        arrKQ(i - 5, 1) = WorksheetFunction.Sum(Range("I" & i & ":AA" & i), Range("G" & i), -Range("F" & i))
    End If
Next
Range("AB6").Resize(UBound(arrKQ), 1) = arrKQ
End Sub
Cảm ơn bạn
như này mình phải dùng Macro để gán vào module này nhỉ
 
Upvote 0
Code cho bạn dễ hình dung và kết quả như bạn muốn
Bạn chép sub vào module nào đó rồi gán vào 1 nút, hình nào đó để chạy khi muốn. Còn ý bạn muốn nó chạy lúc nào thì cứ nói!
Bày đặt code giấu giếc này nọ, gặp thằng nào có máu tếu một chút, nó sửa code rồi rêo rao là mình tính sai.
Không phải là người viết code thì biết gì mà biện hộ.
 
Upvote 0
Web KT

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

Back
Top Bottom