Xin giúp đỡ vòng lặp For (1 người xem)

[lyly2626]

Nếu dòng 2 của mỗi cột = 1 thì lấy giá trị của ô ở dòng 1 tương ứng cột đó.
Nếu = 0 thì bỏ qua sao cho được đoạn text như dưới này ạ

"00-01-02-03-04-22-23-24-25-26-27-29-30-31-32-54-56-57-59-60-61-62-63-64-65-66-67-69-70-71-72-73-74-75-76-77-79-81-82-83-84-85-86-87-89"

Nếu C3=1 thì C1 ko thì bỏ qua
Nếu D3=1 thì D1 ko thì bỏ qua


Em mới chập chững VBA xin hỏi bài toán này dùng For thế nào ạ. Em cám ơn!

 

[anhtuanle123]

Sub aaa()
            Dim i As Integer
            Dim st As String
            i = 1
            st = ""
            Do While Cells(1, i) <> ""
               If Cells(2, i) = 1 Then
                  st = st & Cells(1, i) & "-"
               End If
               i = i + 1
            Loop
            MsgBox st


End Sub

 

[lyly2626]

Thần kỳ. Em cám ơn nhiều ạ!

 

[lyly2626]

- cho em hỏi nếu dữ liệu nhiều hơn phải sửa code thế nào
- đoạn text mong muốn cho hiển thị lần lượt từ trên xuống ở các cells CW2, CW3, CW4…

 

[chuot0106]

- cho em hỏi nếu dữ liệu nhiều hơn phải sửa code thế nào
- đoạn text mong muốn cho hiển thị lần lượt từ trên xuống ở các cells CW2, CW3, CW4…

Hỏi riêng tư bạn 1 chút. File này bạn ứng dụng để làm gì vậy? Có phải thông kê lô hay đề gì đó không? Hỏi vậy thôi công việc bạn làm gì mình vẫn sẽ giúp!

 

[anhtuanle123]

Sub aaa()




            Dim i, j As Integer
            Dim st As String
            j = 2 ' bat dau tu dong 2
                 
            Do While Cells(j, 1) <> ""
                    i = 1
                    st = ""
                    Do While Cells(1, i) <> ""
                       If Cells(j, i) = 1 Then
                          st = st & Cells(1, i) & "-"
                       End If
                       i = i + 1
                    Loop
                    MsgBox "dong " & j & "  " & st
             j = j + 1
           Loop


End Sub

 

[chuot0106]

Sub aaa()




            Dim i, j As Integer
            Dim st As String
            j = 2 ' bat dau tu dong 2
                 
            Do While Cells(j, 1) <> ""
                    i = 1
                    st = ""
                    Do While Cells(1, i) <> ""
                       If Cells(j, i) = 1 Then
                          st = st & Cells(1, i) & "-"
                       End If
                       i = i + 1
                    Loop
                    MsgBox "dong " & j & "  " & st
             j = j + 1
           Loop


End Sub

Theo mình để linh hoạt thì nên viết UDF.

 

[lyly2626]

Hỏi riêng tư bạn 1 chút. File này bạn ứng dụng để làm gì vậy? Có phải thông kê lô hay đề gì đó không? Hỏi vậy thôi công việc bạn làm gì mình vẫn sẽ giúp!

dạ đúng rồi ạ. Em thống kê chơi lấy ví dụ thôi.