Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Tiêu đề: [Hỏi] Chọn các ô có kết quả bằng 0 trong excel [In trang]

Tác giả: nhankx1 Thời gian: 5/12/2014 14:18
Tiêu đề: [Hỏi] Chọn các ô có kết quả bằng 0 trong excel
Chào tất ace trên diễn đàn. Mình có khó khăn trong excel mong ace diễn đàn ai biết thì giúp đỡ mình với, xin cảm ơn nhiều !.
Giờ mình muốn chon các ô có kết quả bằng không ( 0 ) ở sheet Cước VCCG cột tổng cước, bạn nào biết cách nào chỉ giúp mình... Mình có đính kèm file theo

File Ba, Son 08-14 S2.xls

1.46 MB, Lượt tải về: 1021

Tác giả: tuandaiminh2012 Thời gian: 5/12/2014 14:36
Không biết có đúng theo ý của Bạn không:
Kết quả đã có mời load về !

File Ba, Son 08-14 S2.xls

1.5 MB, Lượt tải về: 4

Giá: 2 điểmThưởng [Danh sách mua]

Tác giả: tranhungdao12a3 Thời gian: 5/12/2014 20:56
File này của bạn có cái hay nha:
Nếu bạn Filter và chọn Blanks hoặc chọn 0 hay gotospecial chọn Blanks đều không chọn hết được tất cả các ô kết quả bằng 0. File này rơi vào trường hợp đặc biệt các kết quả của công thức tính trả về 0, cụ thể là các ô mà bạn Merge có kết quả trả về 0 thì EXCEL hiểu nó là Nonblanks chứ không phải là Blanks. Tôi nghĩ có thể dùng vòng lặp For để xác định các ô có giá trị 0 này, tuy nhiên không biết bạn muốn làm gì tiếp theo, bạn có thể trao đổi tiếp theo, hoặc ai đó trả lời được câu hỏi này cho bạn sẽ trao đổi tiếp nha!

Tác giả: tranhungdao12a3 Thời gian: 5/12/2014 21:24
Tôi mới nghĩ ra cách hơi oằn tà là vằn tí, bạn thử xem sao:

[Visual Basic] 纯文本查看 复制代码

Sub choncellzero()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Dim Rng As Range

Rows("7:202").Hidden = False

For Each Rng In Range("q7:q202")

    If Rng.Value = vbNullString Or Rng.Value <> 0 Then Rng.EntireRow.Hidden = True

Next Rng

Range("q7:q202").SpecialCells(xlCellTypeVisible).Select

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub

Tác giả: tuandaiminh2012 Thời gian: 6/12/2014 10:32

tuandaiminh2012 gửi lúc 5/12/2014 14:36
Không biết có đúng theo ý của Bạn không:
Kết quả đã có mời load về !

ah ! đúng vậy đó anh ! cảm ơn anh nhiều !

Tác giả: nhankx1 Thời gian: 9/12/2014 05:12

tranhungdao12a3 gửi lúc 5/12/2014 21:24
Tôi mới nghĩ ra cách hơi oằn tà là vằn tí, bạn thử xem sao:
[mw_shl_code=vb,true]Sub cho ...

Bạn có thể chỉnh code để kết quả chon ngược lại được không hihi, mình muốn là chọn các ô có kết quả bằng không rồi sau đó cho dòng của vật liệu bằng không đó ẩn đi ( code của bạn đang chọn các ô có kết quả khác không rồi ). Cảm ơn bạn nhiều nhiều !. Tiện đây mình cũng nhờ bạn xem có cách nào mà có thể đánh số thứ tự lại được không ( tại ô STT ) , Vì khi ẩn dòng đi thì số thứ tự của các dòng sẽ bị thay đổi đi.

Tác giả: nhankx1 Thời gian: 9/12/2014 05:15
Cảm ơn diễn đàn đã quan tâm tới nội dung của mình, Chúc diễn đàn ngày mới vui vẻ - Làm việc hiệu quả !

Tác giả: tranhungdao12a3 Thời gian: 9/12/2014 05:26

nhankx1 gửi lúc 9/12/2014 05:12
Bạn có thể chỉnh code để kết quả chon ngược lại được không hihi, mình muốn là ch ...

Nó chọn các ô bằng 0 đó bạn, câu Rng.Value <> 0 Then Rng.EntireRow.Hidden = True chỉ ra những ô nào khác 0 thì ẩn cả dòng chứa ô đó.
Câu Range("q7:q202").SpecialCells(xlCellTypeVisible).Select ---> Chọn các ô không bị ẩn trong vùng chọn---> Thỏa mãn yêu cầu đề bài của bạn.

Tác giả: nhankx1 Thời gian: 9/12/2014 05:42
Cảm ơn bạn nhiều. Mình đã chạy thử code của bạn làm và nó cứ chọn ô nào có kết quả khác không là ẩn đi, còn ô có kết quả Bằng không thì lại không ẩn. Bạn giúp mình đi

Tác giả: nhankx1 Thời gian: 9/12/2014 17:56
Cảm bạn tranhungdao12a3 nhiều!

Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/)