Xin hàm trích xuất ra ngày tháng được đánh dấu. (1 người xem)

[aduc]

Em có một bảng liệt kê các ngày tháng dươi dạng chấm bằng " x". Giờ em muốn trích xuất ra một danh sách ngày tháng được đánh dấu đó theo thứ tự từ tháng 1 - tháng 12 thì làm thế nào. Có file kèm theo. Mong mọi người giúp đỡ.

 

[SA_DQ]

Mình chỉ có thể làm ra hàm tự tạo thôi

Bạn có thể tham khảo trong khi chờ đợi các "Nhà Đại Công thức" trợ giúp theo iêu cầu

 

[concogia]

Bạn có thể tham khảo trong khi chờ đợi các "Nhà Đại Công thức" trợ giúp theo iêu cầu

Hihi, nếu kết quả bạn í muốn như trong bài của bác Sa thì "Nhà ....Làm Đại Công thức" sẽ làm thế này.
Thân

 

[dhn46]

Thêm một cách sử dụng công thức nữa cho bạn

 

[aduc]

Thêm một cách sử dụng công thức nữa cho bạn

Mình muốn năm thi công chọn theo một ô trong bảng excel thì làm thế nào.

 

[dhn46]

Mình muốn năm thi công chọn theo một ô trong bảng excel thì làm thế nào.

Giả sử năm tại AI1 thì công thức tại AH2 sẽ là:

=IFERROR(DATE(AI1,IF(--RIGHT(LEFT(Tmp,2),1)=0,LEFT(Tmp,1),LEFT(Tmp,2))-1,RIGHT(Tmp,2)-1),"")

Bạn định dạng ngày tháng cho AH2 sẽ có kết quả như ý

 

[SA_DQ]

Trường hợp hàm tự tạo thì vầy:

Mình muốn năm thi công chọn theo một ô trong bảng excel thì làm thế nào.

[ThongBao]

Option Explicit:                        Option Base 1
Function LietKeNgay(Rng As Range)
 ReDim Arr(Rng.Rows.Count * Rng.Columns.Count, 1)
 Dim Cls As Range:              Const Nm As Integer = 2013   '<=|'
 Dim Thg As Byte, Ngay As Byte, Rw As Long, Col As Byte, J As Integer
4
  
 For Each Cls In Rng
    If Cls.Value = "x" Then
        Rw = Cls.Row:               Col = Cls.Column
        Thg = CByte(Mid(Cells(Rw, "A").Value, 2, 2))
        Ngay = Cells(1, Col).Value
        J = J + 1
        Arr(J, 1) = DateSerial(Nm, Thg, Ngay)
    End If
 Next Cls
 LietKeNgay = Arr()
End Function

[/ThongBao]

Thêm vô dòng có số 4 2 dòng lệnh sau:

 Dim Nn As Integer
 Nm = [GPE].Value

Chú i:
Bạn bỏ mệnh đề thứ 2 trong dòng lệnh có '<=|' đi
[GPE] là ô được gán tên, nơi mà bạn muốn chọn số liệu cho năm!