Tại sheet muốn hiển thị, thực hiện nháy phải (Right Click) lên tên sheet -> chọn View Code --> rui copy và dán nội dung code sau vào vùng trắng trang làm việc đó:
kết quả của code này bỏ qua các cell lỗi và cell trống - cũng như khi chỉ chọn 1 cell
Cũng tương tự, nhưng bổ sung, khi không có ô nào là số tính toán được thì không báo kết quả, THÌ DÙNG CODE MỚI SAU
Tại sheet muốn hiển thị, thực hiện nháy phải (Right Click) lên tên sheet -> chọn View Code --> rui copy và dán nội dung code sau vào vùng trắng trang làm việc đó:
[GPECODE=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = ""
If Selection.Cells.Count = 1 Then Exit Sub
Dim Tic, Pt, b As Boolean
Tic = 1: b = False
For Each Pt In Selection
If Not (IsError(Pt)) And Not (IsEmpty(Pt)) And IsNumeric(Pt) Then _
Tic = Tic * Pt: b = True
Next
If b Then Application.StatusBar = "Product=" & Tic
End Sub
[/GPECODE]
HOẶC thế này cho nó bài bản hơn
[GPECODE=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = ""
If Target.Cells.Count = 1 Then Exit Sub
Dim Tic, Pt, b As Boolean
Tic = 1: b = False
For Each Pt In Target
If Not (IsError(Pt)) And Not (IsEmpty(Pt)) And IsNumeric(Pt) Then _
Tic = Tic * Pt: b = True
Next
If b Then Application.StatusBar = "Product=" & Tic
End Sub[/GPECODE]
