cộng các ô không chứa công thức

[donguyenbaonghi]

Giúp em 1 việc nữa nha ! em có 1 cột dữ liệu kiểu số, trong đó có các ô có chứa công thức. em chỉ muốn cộng các ô không chứa công thức thôi. Vậy có cách nào nhanh gọn lẹ không hén ???? Giúp em nha ! em cảm ơn nhiều nhiều.

 

[SA_DQ]

Bạn dùng macro sau:

Option Explicit
[b]Sub SumValue()[/b]
    Dim Tong, Rng As Range, Rng1 As Range
    Range("B2:B97").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    For Each Rng In Selection
        Tong = Tong + Rng.Value
    Next Rng
    MsgBox Str(Tong)
[b]End Sub[/b]

 

[donguyenbaonghi]

có thể hướng dẫn cho em từng bước cụ thể được không ạ ! vì em hổng có giỏi excel cho lắm ! Tuy hổng biết macro là gì nhưng nếu chỉ em làm từng bước thì em sẽ làm được ! Em tiếp thu cũng khá lắm đó ! hi`hi`............. Còn Macro là gì em sẽ tìm hiểu sau vậy ! Em cảm ơn trước nha !

 

[SA_DQ]

hướng dẫn cho bạn từng bước cụ thể, như sau

Trong trang tính, bạn vô menu Tools-> Macro -> Record New Macro . . . Trong CS Record Macro bạn nhập SumValue vô CS Macro name: ;
Trong CS Shortcut key bạn ấn giữ phím {SHIFT} & phím 'S'
Nhưng bạn sẽ phải kết thúc ghi macro, (vì mình đã viết cho bạn rồi)
Bạn có ít nhất 2 cách kết thúc ghi macro này:
1./ Thấy nút Stop reccording thì nhấn vô nó;
2./ Vô menu Tool . . . .> như phần đầu đã nêu

(uối cùng là bạn chép các dòng này vô giữa cái macro vừa xuất hiện:

10   Dim Tong, Rng As Range, Rng1 As Range
1    Range("B2:B97").Select
2    Selection.SpecialCells(xlCellTypeConstants, 23).Select
3    For Each Rng In Selection
4        Tong = Tong + Rng.Value
5    Next Rng
6    MsgBox Str(Tong)

Giải thích sơ qua các dòng lệnh trong macro trên:
10' Khai báo các biến cần dùng;
1' Chọn vùng từ ô B2 đến ô B97; Bạn có thể chuyển thành "A2:C99" cho vùng A2 đến C99 . . .
2' Chỉ chọn các ô có dữ liệu số mà thôi (Loại trừ các ô có công thức);
3' Duyệt tất thảy các ô thõa hai điều kiện trên
4' Cộng dữ liệu từng ô vô biến chứa tổng chung;
6' Hiện KQuả lên hộp thoại; Nếu bạn muốn nó hiện lên trong ô 'D2' thì sửa lại dòng này sẽ là :
60' Range("D2").Value= Tong

Nếu còn thắc mắc thì tìm trên diễn đàn, tự học vậy!
(húc &ui!