Cần mọi người giải đáp thắc mắc liên quan đến việc khai báo biến và gán giá trị cho biến (1 người xem)

[anhtb82]

Em là gà macro nên viết code như trong file đính kèm không chạy được.

Mong mọi người chỉ giáo và chỉ cho e chỗ sai với ạ

Ví dụ của mình như sau:
1. Khai báo biến "newdate" và gán "newdate" cho các ô bôi màu xanh (có chạy vòng lặp)
2. Xét điều kiện, nếu giá trị ở các ô xanh (Newdate) < giá trị ô vàng thì các ô xanh sẽ được gán lại giá trị mới = giá trị của các ô đỏ cùng hàng tương ứng.

 

[phulien1902]

Em là gà macro nên viết code như trong file đính kèm không chạy được.

Mong mọi người chỉ giáo và chỉ cho e chỗ sai với ạ

Ví dụ của mình như sau:
1. Khai báo biến "newdate" và gán "newdate" cho các ô bôi màu xanh (có chạy vòng lặp)
2. Xét điều kiện, nếu giá trị ở các ô xanh (Newdate) < giá trị ô vàng thì các ô xanh sẽ được gán lại giá trị mới = giá trị của các ô đỏ cùng hàng tương ứng.

View attachment 197327

Bạn thử:

Sub abc()
     Dim i&, LR&
     LR = Cells(Rows.Count, 1).End(3).Row
  For i = 2 To LR
    With Cells(i, 8)
      If .Value < Cells(1, 13).Value Then
        .Value = Cells(i, 3).Value
      End If
    End With
  Next
End Sub

Tuy nhiên tôi thấy nó đúng trong trường hợp các cột C và M là dạng số, nếu dạng Date, chắc sẽ khác đấy.

 

[anhtb82]

Bạn thử:

Sub abc()
     Dim i&, LR&
     LR = Cells(Rows.Count, 1).End(3).Row
  For i = 2 To LR
    With Cells(i, 8)
      If .Value < Cells(1, 13).Value Then
        .Value = Cells(i, 3).Value
      End If
    End With
  Next
End Sub

Tuy nhiên tôi thấy nó đúng trong trường hợp các cột C và M là dạng số, nếu dạng Date, chắc sẽ khác đấy.

Cảm ơn bạn, mình thì có thể làm nó chạy được nếu k khai báo biến còn bài của mình thì mình đang muốn khai báo biến cơ, vì mình chưa biết nên sau lại có thể dùng nó để áp dụng cho các dạng bài khác. mình rất mong muốn mọi người giúp để sửa lỗi cho bài của mình

 

[phihndhsp]

Em là gà macro nên viết code như trong file đính kèm không chạy được.

Mong mọi người chỉ giáo và chỉ cho e chỗ sai với ạ

Ví dụ của mình như sau:
1. Khai báo biến "newdate" và gán "newdate" cho các ô bôi màu xanh (có chạy vòng lặp)
2. Xét điều kiện, nếu giá trị ở các ô xanh (Newdate) < giá trị ô vàng thì các ô xanh sẽ được gán lại giá trị mới = giá trị của các ô đỏ cùng hàng tương ứng.

View attachment 197327

Set newdate = Range("H" & i)
câu này là sao? lúc đầu i chỉ là 0 thôi mà! đâu có cái này range("H0") đâu???

 

[♫ђöล♥ßล†♥†µ♫]

Cảm ơn bạn, mình thì có thể làm nó chạy được nếu k khai báo biến còn bài của mình thì mình đang muốn khai báo biến cơ, vì mình chưa biết nên sau lại có thể dùng nó để áp dụng cho các dạng bài khác. mình rất mong muốn mọi người giúp để sửa lỗi cho bài của mình

Sao máy mình chạy đâu có lỗi gì đâu. Nó chậy rầm rầm mà

Sub test()
    Dim i As Integer
    Dim ngaygiao As Integer
    Dim newdate As Range
For i = 2 To 10
    Set newdate = Range("H" & i)
    If newdate < Sheet1.Cells(1, 13).Value Then
        newdate = Sheet1.Cells(i, 3).Value
    End If
Next i
End Sub

 

[phihndhsp]

Sao máy mình chạy đâu có lỗi gì đâu. Nó chậy rầm rầm mà

Sub test()
    Dim i As Integer
    Dim ngaygiao As Integer
    Dim newdate As Range
For i = 2 To 10
    Set newdate = Range("H" & i)
    If newdate < Sheet1.Cells(1, 13).Value Then
        newdate = Sheet1.Cells(i, 3).Value
    End If
Next i
End Sub

Lỗi là do Set newdate = Range("H" & i) trên For

 

[VetMini]

...
2. Xét điều kiện, nếu giá trị ở các ô xanh (Newdate) < giá trị ô vàng thì các ô xanh sẽ được gán lại giá trị mới = giá trị của các ô đỏ cùng hàng tương ứng.

.... mình rất mong muốn mọi người giúp để sửa lỗi cho bài của mình

Bài này từ cái yêu cầu nó đã sai rồi. Không cần xem đến cốt kiếc.
>>> nếu giá trị mới lại nhỏ hơn thì lại tiếp tục gán lần nữa?

 

[♫ђöล♥ßล†♥†µ♫]

Lỗi là do Set newdate = Range("H" & i) trên For

Dạ. Em đưa nó xuống dười rồi anh. Vì vậy nó mới chạy rầm rầm vậy í

 

[phulien1902]

Dạ. Em đưa nó xuống dười rồi anh. Vì vậy nó mới chạy rầm rầm vậy í

Dạo này "cô" đi nước ngoài hơi nhiều đấy!
Thật tự hào về em.

 

[VetMini]

Sao máy mình chạy đâu có lỗi gì đâu. Nó chậy rầm rầm mà

Sub test()
    Dim i As Integer
    Dim ngaygiao As Integer
    Dim newdate As Range
For i = 2 To 10
    Set newdate = Range("H" & i)
    If newdate < Sheet1.Cells(1, 13).Value Then
        newdate = Sheet1.Cells(i, 3).Value
    End If
Next i
End Sub

oSet = Range("C1").Column - Range("H1").Column
Set cmpDate = Sheet1.Range("M1")
For Each cDate In Sheet1.Range("H2:H10")
If cmpDate.Value < cmpDate.Value Then cmpDate.Value = cmpDate.Offset(, oSet).Value
Next cDate

 

[♫ђöล♥ßล†♥†µ♫]

Dạo này "cô" đi nước ngoài hơi nhiều đấy!
Thật tự hào về em.

Sao anh biết hay vậy . Em đang tính rủ Anh sang chơi cho vui