Vòng lặp for if (1 người xem)

[ishikawangocthuy]

Xin chào các anh chị trong diễn đàn!
xin mọi nguời cho em xin ý kiến ,vòng lặp chổ em bị sai của nào, em mày mò cả tiếng đông hồ vẫn chưa xong ah.
Em cảm ơn!

  Sub a()
 Dim mark As Long
 Dim last As Long
 Dim m As Long
        last = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row

         For m = 2 To last
         mark = Sheet2.Range("A" & m).Value
            If mark = "" Then
            Sheet2.Range("C" & m).Value = ""
            Sheet2.Range("B" & m).Value = ""


      
             Else
                Sheet2.Range("C" & m).Value = Format(Now, "yyyy-mm-ddhh:mm:ss")
                Sheet2.Range("B" & m).Value = Format(Now, "yyyy-mm-ddhh:mm:ss")
                
      
     End If
        
        Next
        
 End Sub

 

[Nhattanktnn]

Xin chào các anh chị trong diễn đàn!
xin mọi nguời cho em xin ý kiến ,vòng lặp chổ em bị sai của nào, em mày mò cả tiếng đông hồ vẫn chưa xong ah.
Em cảm ơn!

  Sub a()
Dim mark As Long
Dim last As Long
Dim m As Long
        last = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row

         For m = 2 To last
         mark = Sheet2.Range("A" & m).Value
            If mark = "" Then
            Sheet2.Range("C" & m).Value = ""
            Sheet2.Range("B" & m).Value = ""


     
             Else
                Sheet2.Range("C" & m).Value = Format(Now, "yyyy-mm-ddhh:mm:ss")
                Sheet2.Range("B" & m).Value = Format(Now, "yyyy-mm-ddhh:mm:ss")
               
     
     End If
       
        Next
       
End Sub

Xem lại cái này, kiểu Long sao <>""

Bài đã được tự động gộp: 6/11/20

 If mark = "" Then

 

[SA_DQ]

Vòng lặp sai là sai làm sao:
Báo lỗi, Lỗi gì?
Chạy không ra kết quả;
Chạy đưa ra kết quả chưa mong muốn?

 

[Nhattanktnn]

Làm đại xem đúng ý bạn không nha, mà vòng lặp "for next" chứ sao for if
Chỗ else thấy dư một cột không biết để làm gì mà cho kết quả giống nhau

 Sub a()
Dim mark As Range
Dim last As Long
Dim m As Long
        last = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row
        If last < 2 Then Exit Sub
         For m = 2 To last
         Set mark = Sheet2.Range("A" & m)
            If mark = "" Then
                mark.Offset(, 1).Resize(, 2) = ""
            Else
                mark.Offset(, 1) = Format(Now, "yyyy-mm-ddhh:mm:ss")
                mark.Offset(, 2)= Format(Now, "yyyy-mm-ddhh:mm:ss")
            End If
       
        Next
End Sub

 

[ishikawangocthuy]

Vòng lặp sai là sai làm sao:
Báo lỗi, Lỗi gì?
Chạy không ra kết quả;
Chạy đưa ra kết quả chưa mong muốn?

Vòng lặp sai là sai làm sao:
Báo lỗi, Lỗi gì?
Chạy không ra kết quả;
Chạy đưa ra kết quả chưa mong muốn?

Dạ chạy ko ra lỗi nhưng kết quả thì không ra ah

Bài đã được tự động gộp: 6/11/20

Làm đại xem đúng ý bạn không nha, mà vòng lặp "for next" chứ sao for if
Chỗ else thấy dư một cột không biết để làm gì mà cho kết quả giống nhau

 Sub a()
Dim mark As Range
Dim last As Long
Dim m As Long
        last = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row
        If last < 2 Then Exit Sub
         For m = 2 To last
         Set mark = Sheet2.Range("A" & m)
            If mark = "" Then
                mark.Offset(, 1).Resize(, 2) = ""
            Else
                mark.Offset(, 1) = Format(Now, "yyyy-mm-ddhh:mm:ss")
                mark.Offset(, 2)= Format(Now, "yyyy-mm-ddhh:mm:ss")
            End If
      
        Next
End Sub

Cảm ơn bạn,nhưng mình chạy không ra kết quả mặc dù không báo lỗi gì cả

 

[Nhattanktnn]

Dạ chạy ko ra lỗi nhưng kết quả thì không ra ah

Bài đã được tự động gộp: 6/11/20

Cảm ơn bạn,nhưng mình chạy không ra kết quả mặc dù không báo lỗi gì cả

Thôi không chơi đoán nữa, mình đưa file lên nhé

 

[Phuocam]

Dim mark As Long

Thử thay bằng:

Dim mark As Variant

 

[ishikawangocthuy]

Thôi không chơi đoán nữa, mình đưa file lên nhé

Bạn xem giúp mình với

Bài đã được tự động gộp: 6/11/20

Thử thay bằng:

Dim mark As Variant

cảm ơn bạn nhưng vẫn không ra ah

 

[Nhattanktnn]

Bạn xem giúp mình với

Bài đã được tự động gộp: 6/11/20

cảm ơn bạn nhưng vẫn không ra ah

Căn cứ vào đâu bạn nói không lỗi code thế nhỉ

 Sub a()
Dim mark As Range
Dim last As Long
Dim m As Long
        last = Sheets("sheet2").Cells(Sheets("sheet2").Rows.Count, 1).End(xlUp).Row
        If last < 2 Then Exit Sub
         For m = 2 To last
         Set mark = Sheets("sheet2").Range("A" & m)
            If mark = "" Then
                mark.Offset(, 1).Resize(, 2) = ""
            Else
                mark.Offset(, 1) = Format(Now, "yyyy-mm-ddhh:mm:ss")
                mark.Offset(, 2) = Format(Now, "yyyy-mm-ddhh:mm:ss")
            End If
      
        Next
End Sub

 

[ishikawangocthuy]

Căn cứ vào đâu bạn nói không lỗi code thế nhỉ

Sub a()
Dim mark As Range
Dim last As Long
Dim m As Long
        last = Sheets("sheet2").Cells(Sheets("sheet2").Rows.Count, 1).End(xlUp).Row
        If last < 2 Then Exit Sub
         For m = 2 To last
         Set mark = Sheets("sheet2").Range("A" & m)
            If mark = "" Then
                mark.Offset(, 1).Resize(, 2) = ""
            Else
                mark.Offset(, 1) = Format(Now, "yyyy-mm-ddhh:mm:ss")
                mark.Offset(, 2) = Format(Now, "yyyy-mm-ddhh:mm:ss")
            End If
     
        Next
End Sub

cảm ơn bạn do mình chạy trên file gốc kết quả không ra ah.
Bây giờ dươc rồi ah