Cần giúp đoạn code VBA để tự động cộng vũng dự liệu thêm 1 số bất kì. (4 người xem)

[kiengietvoi92]

Em chào cả nhà ạ! Như tiêu đều em muốn nhờ mọi người viết 1 đoạn code để cộng tất cả các giá trị trong vùng dữ liệu với 1 số bất kì bên ngoài vùng, kết quả giá trị nhận được thay thế cho giá trị cũ ạ. Em có gửi kèm file và mong muốn như trong File.

 

[CHAOQUAY]

Em chào cả nhà ạ! Như tiêu đều em muốn nhờ mọi người viết 1 đoạn code để cộng tất cả các giá trị trong vùng dữ liệu với 1 số bất kì bên ngoài vùng, kết quả giá trị nhận được thay thế cho giá trị cũ ạ. Em có gửi kèm file và mong muốn như trong File.

....................

Sub congthem()
Dim Dl
Dim i, j, k
With Sheet1
    Dl = .Range("A2:B10")
    k = .Range("D2")
    For i = 1 To UBound(Dl)
        For j = 1 To UBound(Dl, 2)
            Dl(i, j) = Dl(i, j) + k
        Next j
    Next i
    .Range("A2:B10") = Dl
End With
End Sub

 

[kiengietvoi92]

....................

Sub congthem()
Dim Dl
Dim i, j, k
With Sheet1
    Dl = .Range("A2:B10")
    k = .Range("D2")
    For i = 1 To UBound(Dl)
        For j = 1 To UBound(Dl, 2)
            Dl(i, j) = Dl(i, j) + k
        Next j
    Next i
    .Range("A2:B10") = Dl
End With
End Sub

Vâng em cám ơn bác nhiều nhé! Code này hỗ trợ rất tốt, đúng cái em đang cần ạ!

 

[phulien1902]

Em chào cả nhà ạ! Như tiêu đều em muốn nhờ mọi người viết 1 đoạn code để cộng tất cả các giá trị trong vùng dữ liệu với 1 số bất kì bên ngoài vùng, kết quả giá trị nhận được thay thế cho giá trị cũ ạ. Em có gửi kèm file và mong muốn như trong File.

Bạn thử:

Sub Test()
    Dim Cll As Range
    For Each Cll In Selection
        Cll.Value = Cll + [d2]
    Next Cll
End Sub

 

[kiengietvoi92]

....................

Sub congthem()
Dim Dl
Dim i, j, k
With Sheet1
    Dl = .Range("A2:B10")
    k = .Range("D2")
    For i = 1 To UBound(Dl)
        For j = 1 To UBound(Dl, 2)
            Dl(i, j) = Dl(i, j) + k
        Next j
    Next i
    .Range("A2:B10") = Dl
End With
End Sub

Bác ơi! Giờ em muổn chỉ cột A được cộng thêm, cột B giữ nguyên thì cấu trúc code mới như nào ạ! Bác giúp xem giúp em với ạ!

 

[CHAOQUAY]

Bác ơi! Giờ em muổn chỉ cột A được cộng thêm, cột B giữ nguyên thì cấu trúc code mới như nào ạ! Bác giúp xem giúp em với ạ!

Bạn xem code dưới đây

Sub congthem()
Dim Dl
Dim i, j, k
With Sheet1
    Dl = .Range("A2:B10")
    k = .Range("D2")
    For i = 1 To UBound(Dl)
        'For j = 1 To UBound(Dl, 2)
            'Dl(i, j) = Dl(i, j) + k
        'Next j
        
        Dl(i, 1) = Dl(i, 1) + k
    Next i
    .Range("A2:B10") = Dl
End With
End Sub

 

[kiengietvoi92]

Bạn xem code dưới đây

Sub congthem()
Dim Dl
Dim i, j, k
With Sheet1
    Dl = .Range("A2:B10")
    k = .Range("D2")
    For i = 1 To UBound(Dl)
        'For j = 1 To UBound(Dl, 2)
            'Dl(i, j) = Dl(i, j) + k
        'Next j
       
        Dl(i, 1) = Dl(i, 1) + k
    Next i
    .Range("A2:B10") = Dl
End With
End Sub

Em cám ơn bác nhiều.

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

Bạn thử:

Sub Test()
    Dim Cll As Range
    For Each Cll In Selection
        Cll.Value = Cll + [d2]
    Next Cll
End Sub

Cái này của bác thực sự rất linh hoạt, muốn thêm đâu là chọn chỗ đó. Cám ơn bác đã giúp đỡ ạ!

 

[ptm0412]

Cái này của bác thực sự rất linh hoạt, muốn thêm đâu là chọn chỗ đó. Cám ơn bác đã giúp đỡ ạ!

Code bài 2 cũng muốn thêm đâu chọn đó, không cần xoá/ sửa như bài 6

 

[kiengietvoi92]

Code bài 2 cũng muốn thêm đâu chọn đó, không cần xoá/ sửa như bài 6

Vâng bác, em đã sửa lại vùng chọn trong code để theo nhu cầu của mình. Cái này tối ưu cho công việc của em hơn. Còn code theo cách chọn vùng trước kia nhiều lúc muốn tự động thao nút "Button" lại không làm đươc. Em nói vậy có đúng không bác nhỉ?

 

[ptm0412]

Vâng bác, em đã sửa lại vùng chọn trong code để theo nhu cầu của mình. Cái này tối ưu cho công việc của em hơn. Còn code theo cách chọn vùng trước kia nhiều lúc muốn tự động thao nút "Button" lại không làm đươc. Em nói vậy có đúng không bác nhỉ?

Quan trọng là biết đọc code và sửa chỗ cần. Không lệ thuộc vào chuyện có Button hay không.
Ban đầu biết ít dần dần biết nhiều lên.