Cần giúp đỡ tự động xóa ô có chứa số 0,0 (11 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
hung2412

hung2412

Thành viên tích cực
Tham gia
5/8/08
Bài viết
929
Được thích
240
Giới tính
Nam
Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động xóa dữ liệu các ô ở cột E, F, G, H có chứa số "0,0". Ví dụ: Xóa ô E11 vì ô này có số 0,0.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.
 

File đính kèm

0.0 đó là các số >0 có chút xíu đó bạn. Bạn dùng hàm ROUND sau đó Copy và dán giá trị là xong thôi mà.
 
hung2412 đã viết:
Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động xóa dữ liệu các ô ở cột E, F, G, H có chứa số "0,0". Ví dụ: Xóa ô E11 vì ô này có số 0,0.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.
Nhấp chuột vào đây để mở rộng...
Không hiểu bạn muốn bỏ hẳn kiểu gì
Theo mình thì bạn nên cho nó thành màu trắng khi in ra và nhìn trên màn hình không có là được
Bạn dùng định dạng có điều kiện với điều kiện <=0,001 là được
hoặc xem số 0,001 thay bằng số nào hợp lý hơn
 

File đính kèm

hung2412 đã viết:
Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động xóa dữ liệu các ô ở cột E, F, G, H có chứa số "0,0". Ví dụ: Xóa ô E11 vì ô này có số 0,0.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.
Nhấp chuột vào đây để mở rộng...
Thử chạy code này coi sao:
PHP: 
Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Value < 0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub
 
bivily đã viết:
0.0 đó là các số >0 có chút xíu đó bạn. Bạn dùng hàm ROUND sau đó Copy và dán giá trị là xong thôi mà.
Nhấp chuột vào đây để mở rộng...

Bạn quan liệm 0.0... lớn hơn 0 có chút xíu là sai còn tùy thuộc ngữ cảnh
Có khi 0.01 lớn hơn 5 đấy
Mình ví dụ
0,01 tấn > 5 Kg
 
Ba Tê đã viết:
Thử chạy code này coi sao:
PHP: 
Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Value < 0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Nhìn vào Code của bác em hiểu nên để định dạng có điều kiện <0.1
Em định dùng lọc rồi xóa nhưng xẽ hơi lâu
Nếu các số dữ liệu cần dùng là dương (không có số 0)
Và bạn Hung2412 muốn xóa hẳn thì nên dùng Code của bác Bate
 
KhanhChi29 đã viết:
Không hiểu bạn muốn bỏ hẳn kiểu gì
Theo mình thì bạn nên cho nó thành màu trắng khi in ra và nhìn trên màn hình không có là được
Bạn dùng định dạng có điều kiện với điều kiện <=0,001 là được
hoặc xem số 0,001 thay bằng số nào hợp lý hơn
Nhấp chuột vào đây để mở rộng...
Mình muốn clear hẳn số 0,0 đó bạn ah. Chứ không phải để nó thành màu trắng như thế. Cảm ơn bạn đã hướng dẫn.
 
Ba Tê đã viết:
Thử chạy code này coi sao:
PHP: 
Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Value < 0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ, em xin cảm ơn, nhưng có một vấn đề ở chỗ, code này thích hợp với các số dương, còn số âm thì cũng bị xóa. Em muốn là các ô đích danh chứa số 0,0 đó "bay" hẳn cơ ạ.
P/s: Chỉ những ô đích danh chứa số "0,0" bị "bay" hẳn. Còn các ô khác chứa số gì cũng được (Nghĩa là không đả động đến)
 
Lần chỉnh sửa cuối:
hung2412 đã viết:
Dạ, em xin cảm ơn, nhưng có một vấn đề ở chỗ, code này thích hợp với các số dương, còn số âm thì cũng bị xóa. Em muốn là các ô đích danh chứa số 0,0 đó "bay" hẳn cơ ạ.
P/s: Chỉ những ô đích danh chứa số "0,0" bị "bay" hẳn. Còn các ô khác chứa số gì cũng được (Nghĩa là không đả động đến)
Nhấp chuột vào đây để mở rộng...
Bạn thử sửa code của thầy BaTê thành thế này
Mã: 
[COLOR=#007700][FONT=monospace][I]Public [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Sub GPE[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Dim Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range
Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]B8[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]], [[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]B65536[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlUp[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Offset[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]3[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]4[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Each Cll In Rng
    [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value =[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I] [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0.0 Then Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= Empty
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Next Cll
Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Nothing
End Sub[/I][/FONT][/COLOR]
 
KhanhChi29 đã viết:
Không hiểu bạn muốn bỏ hẳn kiểu gì
Theo mình thì bạn nên cho nó thành màu trắng khi in ra và nhìn trên màn hình không có là được
Bạn dùng định dạng có điều kiện với điều kiện <=0,001 là được
hoặc xem số 0,001 thay bằng số nào hợp lý hơn
Nhấp chuột vào đây để mở rộng...
Nếu làm như bạn thì bị ẩn hết khi ô nhỏ hơn 0,01. Nếu trong trường hợp có số âm thì cũng bị ẩn mất. Không ổn bạn ah.
 
Cá ngừ F1 đã viết:
Bạn thử sửa code của thầy BaTê thành thế này
Mã: 
[COLOR=#007700][FONT=monospace][I]Public [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Sub GPE[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Dim Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range
Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]B8[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]], [[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]B65536[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlUp[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Offset[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]3[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]4[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Each Cll In Rng
    [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value =[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0.0 Then Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= Empty
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Next Cll
Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Nothing
End Sub[/I][/FONT][/COLOR]
Nhấp chuột vào đây để mở rộng...
Sau khi chạy code, thì kết quả là các ô có số 0,0 đó vẫn được giữ nguyên ạ, không hề bị xóa.
 
Sao bạn không chịu dùng hàm ROUND như mình nói, ở đây mình dùng ROUND với num_digits = 5 (bạn có thể thay bằng 1 số khác cho phù hợp). Bạn xem bản tính đính kèm nhé! Ở đây cột E mình chuyển thành ở cột J, F->K, G->L và H->M. Bạn Copy và dán giá trị ngược lại cho các cột E:H là được
 

File đính kèm

hung2412 đã viết:
Sau khi chạy code, thì kết quả là các ô có số 0,0 đó vẫn được giữ nguyên ạ, không hề bị xóa.
Nhấp chuột vào đây để mở rộng...
Tôi xem file thì thực tế số 0.0 đấy không phải là số 0, vậy thầy Batê mới để code <0.1
Nếu không muốn xóa những số <0, thì thêm điều kiện and vào
Mã: 
Public Sub GPE()Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Value < 0.1 And Cll.Value > -0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub
 
bivily đã viết:
Sao bạn không chịu dùng hàm ROUND như mình nói, ở đây mình dùng ROUND với num_digits = 5 (bạn có thể thay bằng 1 số khác cho phù hợp). Bạn xem bản tính đính kèm nhé! Ở đây cột E mình chuyển thành ở cột J, F->K, G->L và H->M. Bạn Copy và dán giá trị ngược lại cho các cột E:H là được
Nhấp chuột vào đây để mở rộng...
Cách của bạn rất cool, để mình áp dụng vào công việc.
 
hung2412 đã viết:
Dạ, em xin cảm ơn, nhưng có một vấn đề ở chỗ, code này thích hợp với các số dương, còn số âm thì cũng bị xóa. Em muốn là các ô đích danh chứa số 0,0 đó "bay" hẳn cơ ạ.
P/s: Chỉ những ô đích danh chứa số "0,0" bị "bay" hẳn. Còn các ô khác chứa số gì cũng được (Nghĩa là không đả động đến)
Nhấp chuột vào đây để mở rộng...
Bạn xem kỹ lại cột E:
E11= 4,54747350886464E-13
E12= -4,54747350886464E-13
E13= -9,09494701772928E-13
...........
"Đích danh" là sao khi bản chất nó không phải là 0,0?
Tất cả đều "nhìn thấy" là 0,0, giờ bạn muốn xoá cái nào, cái nào giữ nguyên?
Khó hiểu quá.
Nếu muốn "thấy sao tính vậy" thì thử chiêu này coi sao:
PHP: 
Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Text = 0# Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub
 
Lần chỉnh sửa cuối:
Cá ngừ F1 đã viết:
Tôi xem file thì thực tế số 0.0 đấy không phải là số 0, vậy thầy Batê mới để code <0.1
Nếu không muốn xóa những số <0, thì thêm điều kiện and vào
Mã: 
Public Sub GPE()Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Value < 0.1 And Cll.Value > -0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Vâng, em đã rõ ạ. Để em áp dụng vào công việc.
 
Ba Tê đã viết:
Bạn xem kỹ lại cột E:
E11= 4,54747350886464E-13
E12= -4,54747350886464E-13
E13= -9,09494701772928E-13
...........
Tất cả đều "nhìn thấy" là 0,0, giờ bạn muốn xoá cái nào, cái nào giữ nguyên?
Khó hiểu quá.
Nhấp chuột vào đây để mở rộng...
Dạ, các ô như thầy vừa nói đều hiển thị là 0,0. Em muốn các ô đó bị "bay" hết ạ.
P/s: Các ô đó bị lỗi hay sao ấy. Đều hiển thị là 0,0.
 
Cá ngừ F1 đã viết:
Tôi xem file thì thực tế số 0.0 đấy không phải là số 0, vậy thầy Batê mới để code <0.1
Nếu không muốn xóa những số <0, thì thêm điều kiện and vào
Mã: 
Public Sub GPE()Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Value < 0.1 And Cll.Value > -0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Code này rất hay, nhưng em muốn chặt chẽ hơn nữa là chỉ những ô chứa đích danh dạng "0,0" đó bị xóa thôi ạ.
 
Dạ, cảm ơn chư vị đã chỉ giáo. Sau khi nghiên cứu, kết hợp, chỉnh sửa => em đã chọn được phương án tối ưu. Làm phiền chư vị quá.
 
Nếu bạn định dạng lại, thực tế số 0.0 là những con số rất nhỏ
Nếu muốn chính xác hơn nữa thì chỉ cần trong khoảng 0.00001 và -0.00001
 

File đính kèm

  • 0.00.jpg
    0.00.jpg
    85.8 KB · Đọc: 22
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

T
  • Question Question
Nhờ giúp đỡ tự động lọc xóa dữ liệu có điều kiện
Trả lời
9
Đọc
115
thuyha2000
T
N
  • Question Question
Xin giúp đỡ in phiếu thông tin hàng loạt có điều kiện (1 người xem)
Trả lời
0
Đọc
24
nguyenthiminhtho1999
N
T
  • Question Question
Giúp đếm số ô tô nền màu vàng, nền màu xanh riêng theo từng đơn vị và từng cột dữ liệu. Có tệp mô tả dữ liệu kèm theo. (1 người xem)
Trả lời
6
Đọc
84
titanic20072007
T
L
  • Question Question
Giải thích các sự kiện Private Sub Workbook_SheetActivate và Private Sub Workbook_SheetDeactivate (2 người xem)
Trả lời
6
Đọc
133
huhumalu
H
T
  • Question Question
Giúp chạy phiếu lương tự động mà các trường trên phiếu thay đổi theo từng kỳ và tạo bảng lương tự động theo mẫu
    • Thích
Trả lời
8
Đọc
389
thuyha2000
T
Anhhe
Em xin nhờ các cao nhân chỉ giáo em cách tính giờ làm việc của nhân viên với ạ Plz (1 người xem)
Trả lời
6
Đọc
158
VetMini
V
kyo
  • Suggestion Suggestion
Gõ ký tự và Filter
    • Thích
2 3
Trả lời
42
Đọc
17K
SA_DQ
SA_DQ
J
  • Question Question
Giúp Em chỉ lối hoàn thành xong cách từ dữ liệu xuất để chạy lên Phiếu nhập kho với ạ
Trả lời
3
Đọc
104
jonythanht
J
C
Tính tổng một khách hàng có nhiều mã hàng nhỏ (1 người xem)
2
Trả lời
24
Đọc
548
cicerone2
C
U
Hỗ trợ em vẽ biểu đồ mưa với mực nước theo form với ạ
Trả lời
2
Đọc
81
ptm0412
ptm0412
T
Tìm kiếm giá trị của bảng tính
Trả lời
2
Đọc
70
tranuthanh
T
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
48
Đọc
17K
thangnv305
T
haphambk74
Bỏ tự động chuyển định dạng General sang Text
Trả lời
0
Đọc
53
haphambk74
haphambk74
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (1 người xem)
    • Thích
Trả lời
3
Đọc
1K
ptm0412
ptm0412
Nguyễn Duy Tuân
Dùng AI trên Excel bằng hàm BS_AI, BS_AI_CHAT của Add-in A-Tools v10
    • Yêu thích
Trả lời
1
Đọc
139
Nguyễn Duy Tuân
Nguyễn Duy Tuân
K
Xử lý (tắt) đường link địa chỉ ô trong excel khi đăng nhập tài khoản MS.
Trả lời
1
Đọc
56
khoak47
K
Gaiams
Nhờ Anh Chị viết giúp hàm lọc dữ liệu theo yêu cầu cho trước ạ (1 người xem)
Trả lời
5
Đọc
136
SA_DQ
SA_DQ
H
  • Question Question
Giúp File Đọc Số ra Âm thanh dùng trong Khu Cách Ly COVID-19
    • Thích
2 3 4
Trả lời
78
Đọc
9K
only22222
O
O
XIN ANH CHỊ GIÚP ĐỠ HƯỚNG DẪN CHUYỂN VĂN BẢN THÀNH GIỌNG NÓI TRONG EXCEL Ạ.
Trả lời
5
Đọc
155
only22222
O
L
  • Question Question
Code tự động đặt pass protect sheet "DIEM", khi chuyển qua sheet khác
Trả lời
2
Đọc
100
LienDong
L
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom