Giúp code chỉ select được 3 trong 4 ô có điều kiện (2 người xem)

[congnguyen88]

Ví dụ mình có 4 ô ( a1,a2,a3,a4) mình muốn chỉ cần 3 ô có dữ liệu ( len>=1) thì select vào ô còn lại không được

 

[nmhung49]

Ví dụ mình có 4 ô ( a1,a2,a3,a4) mình muốn chỉ cần 3 ô có dữ liệu ( len>=1) thì select vào ô còn lại không được

Thử code này


[GPECODE=vb]
Sub test()
Dim cll As Range
Dim rng As Range
For Each cll In Range("A1:A9") 'Thay đổi vùng thích hợp
If cll.Value <> "" Then
If rng Is Nothing Then
Set rng = cll
Else
Set rng = Union(rng, cll)
End If
End If
Next
rng.Select
End Sub


[/GPECODE]

 

[chuot0106]

Ví dụ mình có 4 ô ( a1,a2,a3,a4) mình muốn chỉ cần 3 ô có dữ liệu ( len>=1) thì select vào ô còn lại không được

Của bạn đây, thay đổi vùng chọn ở chỗ đỏ đỏ!

Public Sub chuot_0106()
[COLOR=#ff0000][B]Sheet1.Range("A1:A4")[/B][/COLOR].SpecialCells(xlCellTypeConstants, 23).Select
End Sub