Cần trợ giúp về bài tập Excel :D (1 người xem)

[S.Duc]

Chào các bạn,
Mình kính nhờ các bạn giúp về bài tập Excel sau: lập 1 hàm mà nó sẽ hiển thị các dãy số 1,2,3,.... tùy thuộc vào các dấu "x" đánh ở ô bên cạnh . Theo như file đính kèm.

Mình xin cảm ơn trước !

 

[giaiphap]

Bạn giải thích chứ nhìn vào file bạn tôi chẳng hiểu gì cả.

 

[S.Duc]

Bạn giải thích chứ nhìn vào file bạn tôi chẳng hiểu gì cả.

Ah vâng, mình cần lập 1 hàm tại các vị trí O3, O4, O5, ... tương ứng với những dấu x được đánh ở các hàng bên trái 3, 4, 5, ... của dãy số từ 1-13.
Ví dụ như hàng 3, mình dấu x ở các vị trí 1,2,3,4,5,9,13 thì hàng O3 phải hiển thị là 1,2,3,4,5,9,13

 

[khuongvietphong]

Ah vâng, mình cần lập 1 hàm tại các vị trí O3, O4, O5, ... tương ứng với những dấu x được đánh ở các hàng bên trái 3, 4, 5, ... của dãy số từ 1-13.
Ví dụ như hàng 3, mình dấu x ở các vị trí 1,2,3,4,5,9,13 thì hàng O3 phải hiển thị là 1,2,3,4,5,9,13

Thử với File này xem sao

 

[S.Duc]

Thử với File này xem sao

À, được rồi, mà enable macro mới ra bạn nhỉ, có thể chỉ mình cách làm được ko?

 

[khuongvietphong]

À, được rồi, mà enable macro mới ra bạn nhỉ, có thể chỉ mình cách làm được ko?

File đó bên trong chưa Macro nên khi mở file phải enable macro thì mới chạy kết quả được. Còn cách làm thì bạn xem

đoạn Macro đó trong Module tại cửa sổ VBA (bằng cách nhấn ALT+F11).

 

[S.Duc]

File đó bên trong chưa Macro nên khi mở file phải enable macro thì mới chạy kết quả được. Còn cách làm thì bạn xem

đoạn Macro đó trong Module tại cửa sổ VBA (bằng cách nhấn ALT+F11).

Nếu cái phần thống kê O3,O4 ... nằm ở sheet khác thì sao bạn nhỉ?

 

[khuongvietphong]

Nếu cái phần thống kê O3,O4 ... nằm ở sheet khác thì sao bạn nhỉ?

Thì vẫn như bình thường mà, tại B3 của sheet test (2) bạn gõ vào công thức:

=show(test!A3:M3)

Enter rồi fill xuống dưới thôi

 

[S.Duc]

Thì vẫn như bình thường mà, tại B3 của sheet test (2) bạn gõ vào công thức:

=show(test!A3:M3)

Enter rồi fill xuống dưới thôi

Cảm ơn bạn, phiền bạn xem giúp file tương tự này nữa, lần này có tới 3 bảng

 

[khuongvietphong]

Cảm ơn bạn, phiền bạn xem giúp file tương tự này nữa, lần này có tới 3 bảng

Bạn sửa lại đoạn Macro bên trong thành thế này nhé:

Option Explicit
Function show(vung As Range) As String
Dim mang(), i As Long, k As Long
For i = 1 To vung.Columns.Count
  If vung.Cells(1, i) = "x" Then
    k = k + 1
    ReDim Preserve mang(1 To k)
    mang(k) = i
  End If
Next i
show = Join(mang, ",")
End Function

 

[S.Duc]

[A19] =show(A4:M4)

[O19] =show(O4:AD4)

[AG19] =show(AG4:AW4)

Số thứ tự ở 2 bảng sau có thay đổi bạn ơi, 1-16, 1-17

 

[khuongvietphong]

Số thứ tự ở 2 bảng sau có thay đổi bạn ơi, 1-16, 1-17

Sorry, ban đổi thành đoạn Code này :

Option Explicit
Function show(vung As Range) As String
Dim mang(), i As Long, k As Long
For i = 1 To vung.Columns.Count
  If vung.Cells(1, i) = "x" Then
    k = k + 1
    ReDim Preserve mang(1 To k)
    mang(k) = i
  End If
Next i
show = Join(mang, ",")
End Function

 

[S.Duc]

OK, được rồi, cảm ơn bạn nhiều