Làm sao để chọn riêng dữ liệu dạng ngày tháng

[vanle33]

Khi tôi chọn vùng F3:H31 rồi nhấn gì đó ?? để chọn được riêng các cell là ngày tháng năm sinh. Để chuyển tất cả cell ngày tháng sang cột khác ví dụ cột K.
Mong các thành viên trợ giúp!

 

[nghiaphuc]

Khi tôi chọn vùng F3:H31 rồi nhấn gì đó ?? để chọn được riêng các cell là ngày tháng năm sinh. Để chuyển tất cả cell ngày tháng sang cột khác ví dụ cột K.
Mong các thành viên trợ giúp!

Công việc đầu tiên là bạn phải dùng chức năng Replace để xóa bỏ tất cả các khoảng trắng (có mã 0160) trong vùng này đã, vì các ô ngày tháng gần như đều bị dư ra 1 khoảng trắng này ở cuối.
Sau khi thay thế như trên thì bạn có thể sử dụng Special Cells để chọn ra các ô này: Chọn vùng F3:H31 --> nhấn F5 --> chọn Special... --> Chọn Constants và Number --> OK.
Tuy nhiên sau khi chọn xong như vậy thì bạn vẫn không thể copy đi được vì vùng chọn gồm các ô rời nhau nằm trên nhiều cột.

 

[vanle33]

Công việc đầu tiên là bạn phải dùng chức năng Replace để xóa bỏ tất cả các khoảng trắng (có mã 0160) trong vùng này đã, vì các ô ngày tháng gần như đều bị dư ra 1 khoảng trắng này ở cuối.
Sau khi thay thế như trên thì bạn có thể sử dụng Special Cells để chọn ra các ô này: Chọn vùng F3:H31 --> nhấn F5 --> chọn Special... --> Chọn Constants và Number --> OK.
Tuy nhiên sau khi chọn xong như vậy thì bạn vẫn không thể copy đi được vì vùng chọn gồm các ô rời nhau nằm trên nhiều cột.

OK. Bạn có cách nào Copy hay Move các cell vừa được chọn sang cột khác giúp mình.

 

[nghiaphuc]

OK. Bạn có cách nào Copy hay Move các cell vừa được chọn sang cột khác giúp mình.

1. Lấy ngày tháng ra cột K: Sử dụng công thức

=IF(ISNUMBER(F3),F3,IF(ISNUMBER(G3),G3,""))

2. Xóa ngày tháng ở các cột F,G: Sử dụng Special Cells để chọn rồi xóa đi.

 

[concogia]

1. Lấy ngày tháng ra cột K: Sử dụng công thức

=IF(ISNUMBER(F3),F3,IF(ISNUMBER(G3),G3,""))

.

Nếu mấy em ngày tháng ok rồi & dữ liệu như trong bài thì hình như thế này cũng được:

=MAX(F3,G3)

Híc

 

[hung2412]

Khi tôi chọn vùng F3:H31 rồi nhấn gì đó ?? để chọn được riêng các cell là ngày tháng năm sinh. Để chuyển tất cả cell ngày tháng sang cột khác ví dụ cột K.
Mong các thành viên trợ giúp!

Code cùi:
[GPECODE=vb]Sub Cut()
Range([K3], [K31]) = "m"
Do While Not Range([F3], [H31]).Find("/", , , , , , False, False) Is Nothing
Range([F3], [H31]).Find("/", , , , , , False, False).Cut Cells(Range([F3], [H31]).Find("/", , , , , , False, False).Row, 256).End(xlToLeft)
Loop
End Sub[/GPECODE]

 

[hung2412]

Code đỡ cùi hơn Code ở #6:[GPECODE=vb]Sub Cut()
Do While Not Range([F3], [H31]).Find("/", , , , , , False, False) Is Nothing
Range([F3], [H31]).Find("/", , , , , , False, False).Cut Cells(Range([F3], [H31]).Find("/", , , , , , False, False).Row, 11)
Loop
End Sub
[/GPECODE]

 

[Ba Tê]

Vậy thì kết hợp cả 2 cách của Nghiaphuc và Bác Cò:
1/ Copy cái dấu cách cuối ở ô nào đó trong cột F-G
2/ Chọn cột F:G, Ctrl+H để bỏ cái dấu cách "ma" đó đi
3/ K=MAX(F3:G3).
Híc!

 

[bui_kiem]

Khi tôi chọn vùng F3:H31 rồi nhấn gì đó ?? để chọn được riêng các cell là ngày tháng năm sinh. Để chuyển tất cả cell ngày tháng sang cột khác ví dụ cột K.
Mong các thành viên trợ giúp!

Thêm một cách tà đạo:

=IF(CODE(F3)<65,F3,G3)

 

[vanle33]

Mong các thành viên trợ giúp cho tôi file đính kèm. Tôi muốn cách nào đó để chọn toàn bộ dòng trong khu vực từ dòng 287 đến dòng 380 theo điều kiện là các dòng đó có giá trị ở cột H bằng 0 (trong file hiển thị là dấu - ). Tôi muốn chọn bằng cách nhấn F5 nhưng chưa được.
Tôi xin cảm ơn các thành viên.

 

[Ba Tê]

Mong các thành viên trợ giúp cho tôi file đính kèm. Tôi muốn cách nào đó để chọn toàn bộ dòng trong khu vực từ dòng 287 đến dòng 380 theo điều kiện là các dòng đó có giá trị ở cột H bằng 0 (trong file hiển thị là dấu - ). Tôi muốn chọn bằng cách nhấn F5 nhưng chưa được.
Tôi xin cảm ơn các thành viên.

Sao không dùng Auto Filter?
Nếu muốn Macro thì Record Macros sẽ được cái này:

Sub Macro1()
    ActiveSheet.Range("$H$286:$H$380").AutoFilter Field:=1, Criteria1:="-"
End Sub

 

[vanle33]

Sao không dùng Auto Filter?
Nếu muốn Macro thì Record Macros sẽ được cái này:

Sub Macro1()
    ActiveSheet.Range("$H$286:$H$380").AutoFilter Field:=1, Criteria1:="-"
End Sub

Bác chỉ cho em cách không phải dùng code được không?

 

[Ba Tê]

Bác chỉ cho em cách không phải dùng code được không?

Code chỉ ghi lại thao tác làm thủ công, Muốn làm thủ công thì:
- Tô chọn H286 đến H380 (Hoặc chỉ cần từ H286 đến H290)
- Auto Filter
- Chọn dấu "-"
Cách khác nữa thì không biết.

 

[vanle33]

Cảm ơn bác Ba Tê nhiều khi bị lẫn mất không nghĩ ra chỉ cần kích bỏ chọn dấu - khi lọc là OK.

 

[adonis_thanh]

Uhm, thì có khi người ta cũng hay lẫn mà...hihi