Cho hỏi có công thức nào tính ra kết quả như file mình gửi không, mong mọi người chỉ giúp
Anh lập VBA giúp được không akHổng có công thức nào đáp ứng được nhu cầu của bạn đâu, khỏi suy nghĩ (trừ phi là lập trình VBA)
Anh lập VBA giúp được không ak
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ExitSub
If Not Intersect(Range("C3:C10"), Target) Is Nothing Then
Set rng = Intersect(Range("C3:C10"), Target)
rng.Offset(, [COLOR=#ff0000]-1[/COLOR]).Value = Evaluate(rng.Address & "+" & rng.Offset(, [COLOR=#ff0000]-1[/COLOR]).Address)
End If
ExitSub:
End Sub
em hỏi bị sai rùi anh ak, anh giúp thêm lần nữa nhé Khi thay đổi dữ liệu cột C thì cột B sẽ tự động cộng cột C vào dữ liệu có sẵn của cột B. Ví dụ cột c là 123 thì dữ liệu cột B sẽ là dữ liệu 123 có sẵn, cộng với 123 của cột C TỒNG cột B sẽ là 246 Nhờ anh giúp nha.Code được đặt vào sự kiện Change của sheet1:Xem file và tự thí nghiệm nhé! Lưu ý quan trọng: - Để code chạy được phải Enable Macros - Phải lưu file theo định dạng xlsmMã:Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range On Error GoTo ExitSub If Not Intersect(Range("C3:C10"), Target) Is Nothing Then Set rng = Intersect(Range("C3:C10"), Target) rng.Offset(, 1).Value = Evaluate(rng.Address & "+" & rng.Offset(, 1).Address) End If ExitSub: End Sub
Cái dữ liệu thật đâu mình không nhìn thấyem hỏi bị sai rùi anh ak, anh giúp thêm lần nữa nhé Khi thay đổi dữ liệu cột C thì cột B sẽ tự động cộng cột C vào dữ liệu có sẵn của cột B. Ví dụ cột c là 123 thì dữ liệu cột B sẽ là dữ liệu 123 có sẵn, cộng với 123 của cột C TỒNG cột B sẽ là 246 Nhờ anh giúp nha.
em hỏi bị sai rùi anh ak, anh giúp thêm lần nữa nhé Khi thay đổi dữ liệu cột C thì cột B sẽ tự động cộng cột C vào dữ liệu có sẵn của cột B. Ví dụ cột c là 123 thì dữ liệu cột B sẽ là dữ liệu 123 có sẵn, cộng với 123 của cột C TỒNG cột B sẽ là 246 Nhờ anh giúp nha.
Thì cái code để tự động hóa mình viết cũng làm việc gần giống với nguyên tắc bạn vừa nêu đấyBạn bôi đen phần cần cộng của cột C\Ctrl+c\chọn ô đầu cần cộng\chuột phải\Paste Special..\Add\Ok