Code lấy một số cộng với chính nó cho ra kq ngay trong cùng 1 ô (1 người xem)

[FPT_online]

Nhờ mọi người viết giúp em code như trong VD. Em cám ơn mọi người đã giúp đỡ

 

[vanle33]

Nhờ mọi người viết giúp em code như trong VD. Em cám ơn mọi người đã giúp đỡ

Xét về mặt luận lý, giải thuật toán học mà nói thì ý tưởng hay công thức hay kết quả hay gì gì ... bạn muốn là SAI và thực hiện thì ra KẾT QUẢ SAI + LỖI. Mà cụ thể là ra lỗi "tham chiếu vòng" khi đặt công thức mà bạn muốn.
Tôi đoán khi đặt code trong VBA cũng gây ra lỗi mà thôi.

 

[dhn46]

Xét về mặt luận lý, giải thuật toán học mà nói thì ý tưởng hay công thức hay kết quả hay gì gì ... bạn muốn là SAI và thực hiện thì ra KẾT QUẢ SAI + LỖI. Mà cụ thể là ra lỗi "tham chiếu vòng" khi đặt công thức mà bạn muốn.
Tôi đoán khi đặt code trong VBA cũng gây ra lỗi mà thôi.

Bạn vanle33 giờ cũng code VBA nữa cơ ah? Mời bạn thử cái sau

Sub Test()
    Dim Cls As Range
    For Each Cls In [B2:B19]
        Cls = Cls + Cls.Offset(, 1)
    Next
End Sub

 

[gtri]

Nhờ mọi người viết giúp em code như trong VD. Em cám ơn mọi người đã giúp đỡ

Thử code chuối này xem sao

Public Sub Cong()
Dim DL1, DL2, i

With Sheet1
DL1 = .Range("B2:B19")
DL2 = .Range("C2:C19")
For i = 1 To UBound(DL1)
DL1(i, 1) = DL1(i, 1) + DL2(i, 1)
Next
.Range("B2:B19").Value = DL1
End With

End Sub

 

[TrungChinhs]

Nhờ mọi người viết giúp em code như trong VD. Em cám ơn mọi người đã giúp đỡ

Bạn thử code này.

Sub Macro1()
    For Each cls In Range("b2:b" & [b65000].End(3).Row)
        cls.Value = cls + cls(1, 2)
    Next
End Sub

 

[FPT_online]

Bạn vanle33 giờ cũng code VBA nữa cơ ah? Mời bạn thử cái sau

Sub Test()
    Dim Cls As Range
    For Each Cls In [B2:B19]
        Cls = Cls + Cls.Offset(, 1)
    Next
End Sub

Đúng ý em rồi giúp em thêm 1 chút là sau khi cộng xong xóa các số mà đã cộng đi chỉ đi lại kết quả thôi. Em cám ơn

 

[SA_DQ]

Option Explicit
Sub Test()
    Dim Cls As Range, Rng As Range
    
    Set Rng = Range([b2], [b2].End(xlDown))
    For Each Cls In Rng
        Cls = Cls + Cls.Offset(, 1)
    Next
    Rng.Offset(, 1).Value = ""
End Sub

Theo iêu cầu của bạn thì với mình, tiêu đề sẽ viết khác đi 1 chút!

 

[VetMini]

Mình thắc mắc là chức năng copy/cut + Paste Special dùng để làm gì nhỉ?

 

[ndu96081631]

Mình thắc mắc là chức năng copy/cut + Paste Special dùng để làm gì nhỉ?

Chính xác là nên làm theo kiểu này ---> Copy-->Paste Special + Add
Còn muốn code thì tôi sẽ viết:

Sub Test()
 With Range("B2:B19")
   .Value = Evaluate(.Address & "+" & .Offset(, 1).Address)
   [COLOR=#ff0000].Offset(, 1).ClearContents[/COLOR]
 End With
End Sub

Dòng đỏ là yêu cầu mới tại bài #6