nhập giá trị

[TienK.Tran]

Chào mọi người, mình có vấn đề cần giải quyết là: giả sử cells("A1"). value=31, mình muốn Cells("B2").value=32 thì viết code như thế nào nhỉ? các bạn xem file đính kèm nhé.
thanks all

 

[giaiphap]

Chào mọi người, mình có vấn đề cần giải quyết là: giả sử cells("A1"). value=31, mình muốn =32 thì viết code như thế nào nhỉ? các bạn xem file đính kèm nhé.
Cảm ơn all

Bạn thử dùng vầy xem sao?

Cells("B2").value=cells("A1").value+1

 

[TienK.Tran]

Bạn thử dùng vầy xem sao?

Cells("B2").value=cells("A1").value+1

Thanks bạn nhé. nhưng như vậy thì cells("B3").value= 1 là điều mình không mong muốn.....bạn xem giúp mình file đính kèm nhé...dữ liệu có tính lặp lại như trong file đính kèm

 

[giaiphap]

Cảm ơn bạn nhé. nhưng như vậy thì cells("B3").value= 1 là điều mình không mong muốn.....bạn xem giúp mình file đính kèm nhé...dữ liệu có tính lặp lại như trong file đính kèm

Bạn đưa file thực tế của mình lên đi, để giúp xong file này bạn lại bảo là áp dụng vào thực tế không được nửa mất công.

 

[snow25]

Cảm ơn bạn nhé. nhưng như vậy thì cells("B3").value= 1 là điều mình không mong muốn.....bạn xem giúp mình file đính kèm nhé...dữ liệu có tính lặp lại như trong file đính kèm

Cho nó chạy vòng lặp For next.

 

[TienK.Tran]

Bạn đưa file thực tế của mình lên đi, để giúp xong file này bạn lại bảo là áp dụng vào thực tế không được nửa mất công.

Chào bạn, bạn xem file đính kèm nhé

Bài đã được tự động gộp: 5/1/19

Cho nó chạy vòng lặp For next.

mình cũng nghĩ vậy nhưng không biết đặt điều kiện bạn à....hic

 

[giaiphap]

Dùng thử code này xam sao.

Sub GPE()
Dim Arr(), i As Integer
Arr = Sheet5.Range("A2:B" & (Sheet5.Range("A65000").End(xlUp) + 1)).Value
For i = 1 To UBound(Arr) - 1
    If IsNumeric(Arr(i, 1)) And Arr(i, 1) <> "" Then Arr(i + 1, 2) = Arr(i, 1) + 1
Next i
Sheet5.Range("A2").Resize(UBound(Arr), 2).Value = Arr
End Sub

 

[TienK.Tran]

Dùng thử code này xam sao.

Sub GPE()
Dim Arr(), i As Integer
Arr = Sheet5.Range("A2:B" & (Sheet5.Range("A65000").End(xlUp) + 1)).Value
For i = 1 To UBound(Arr) - 1
    If IsNumeric(Arr(i, 1)) And Arr(i, 1) <> "" Then Arr(i + 1, 2) = Arr(i, 1) + 1
Next i
Sheet5.Range("A2").Resize(UBound(Arr), 2).Value = Arr
End Sub

Cám ơn ad nhiều nha, mình làm được rồi