Làm sao tạo nút bấm để chọn nhưng ô theo điều kiện cho trước (1 người xem)

[qwertyuiopasdfghjkl]

Tôi có 1 bảng tính Excel dữ liệu số rất nhiều. Tôi muốn đặt 1 điều kiện tại ô A1 = giá trị lớn hơn 5 chẳng hạn . kích vào nút bấm thì những ô nào trong bảng tính có giá trị lớn hơn 5 sẻ được chọn ( cái này ứng dụng để cho dễ quan sát ). Ai rành Vba giúp cái cam on 1000 lần

 

[qwertyuiopasdfghjkl]

Đưa file nên chứ bạn, nếu không dựa vào đâu để viết code.

Đấy anh viết sao code mà điều kiện để có thể em thay đổi được nha

 

[chuot0106]

Đấy anh viết sao code mà điều kiện để có thể em thay đổi được nha

Tôi chưa hiểu rõ lắm. Tức khi bấm "CHỌN" thì hiện số 5 thôi còn các số khác bị ẩn đi phải không?

 

[ndu96081631]

Tôi chưa hiểu rõ lắm. Tức khi bấm "CHỌN" thì hiện số 5 thôi còn các số khác bị ẩn đi phải không?

Là SELECT những ô > 5 để quan sát chứ không ẩn hay hiện gì cả
Theo tôi, bài này dùng VBA là dở ẹc. Tôi dùng Conditional Formating còn dễ quan sát hơn vì nó đổi màu ---> Thấy liền

 

[chuot0106]

Đấy anh viết sao code mà điều kiện để có thể em thay đổi được nha

Xem File đã đúng ý chưa nhé? Không cần bấm biếc gì cả!
P/S: Muốn chọn những số lớn hơn 5 thì nhập số 5 vào A1....

 

[qwertyuiopasdfghjkl]

Tôi chưa hiểu rõ lắm. Tức khi bấm "CHỌN" thì hiện số 5 thôi còn các số khác bị ẩn đi phải không?

khi bấm vào số nút Chọn thì nhưng nào cố giá trị lớn hơn 5 sẽ được chọn ( Select ) . Mục đích sau khi chọn để tôi nhấn phím Delete xóa cho nhanh. Chứ dùng Conditional Formating thì chỉ đổi màu thôi, không thể nào chọn rồi nhấn Delete được

 

[qwertyuiopasdfghjkl]

Là SELECT những ô > 5 để quan sát chứ không ẩn hay hiện gì cả
Theo tôi, bài này dùng VBA là dở ẹc. Tôi dùng Conditional Formating còn dễ quan sát hơn vì nó đổi màu ---> Thấy liền

cái Conditional Formating thì em biết từ năm 2008 rồi, em muốn hỏi làm sao chọn để nhấn Delete xóa nó đi những ô có giá trị lớn hơn 5

 

[leonguyenz]

cái Conditional Formating thì em biết từ năm 2008 rồi, em muốn hỏi làm sao chọn để nhấn Delete xóa nó đi những ô có giá trị lớn hơn 5

Select thì thử code này:
[gpecode=vb]
Sub Rectangle1_Click()
Dim IbNum, IbRng As Range, Cel As Range, Tmp As String
IbNum = Application.InputBox("Nhap so can so sanh:", , Type:=1)
Set IbRng = Application.InputBox("Nhap vung can tim:", , Type:=8)
For Each Cel In IbRng
If Cel.Value > IbNum Then
Tmp = Tmp & "," & Cel.Address(0, 0)
End If
Next Cel
If Len(Tmp) Then
Sheet1.Range("" & Right(Tmp, Len(Tmp) - 1) & "").Select
End If
End Sub
[/gpecode]
Tô màu CF thì xem sheet CF.

 

[qwertyuiopasdfghjkl]

Xem File đã đúng ý chưa nhé? Không cần bấm biếc gì cả!
P/S: Muốn chọn những số lớn hơn 5 thì nhập số 5 vào A1....

Cái này thì em biết rồi. Trời em nói tiếng việt mà anh không có Understand gì hết. Bấm nút chọn những ô nào có giá trị >= 5 thì sẽ được chọn ( trong VBA gọi là Select đó anh ).

 

[qwertyuiopasdfghjkl]

Select thì thử code này:
[gpecode=vb]
Sub Rectangle1_Click()
Dim IbNum, IbRng As Range, Cel As Range, Tmp As String
IbNum = Application.InputBox("Nhap so can so sanh:", , Type:=1)
Set IbRng = Application.InputBox("Nhap vung can tim:", , Type:=8)
For Each Cel In IbRng
If Cel.Value > IbNum Then
Tmp = Tmp & "," & Cel.Address(0, 0)
End If
Next Cel
If Len(Tmp) Then
Sheet1.Range("" & Right(Tmp, Len(Tmp) - 1) & "").Select
End If
End Sub
[/gpecode]
Tô màu CF thì xem sheet CF.

Đúng rồi hay quá. cảm ơn anh

 

[leonguyenz]

Đúng rồi hay quá. cảm ơn anh

Nhưng mà ngồ ngộ, lúc đầu thấy bạn hỏi CF (ở bài khác), rồi file này bạn đặt tên là tô màu theo điều kiện, nhưng đi hỏi Select, tôi gửi bài xong rồi cuối cùng mới biết là để Delete. Vậy sao không hỏi là xoá những ô theo điều kiện?

 

[chuot0106]

Tôi có 1 bảng tính Excel dữ liệu số rất nhiều. Tôi muốn đặt 1 điều kiện tại ô A1 = giá trị lớn hơn 5 chẳng hạn . kích vào nút bấm thì những ô nào trong bảng tính có giá trị lớn hơn 5 sẻ được chọn ( cái này ứng dụng để cho dễ quan sát ). Ai rành Vba giúp cái cam on 1000 lần

Hỏi 1 đàng bắt bẻ người khác 1 nẻo đúng là......