Xin giúp đỡ tự động thêm giá trị vào các ô được chọn

[manhlevn]

Gửi các anh chị
Nhờ các anh chị giúp đỡ thêm giá trị
= * a ( trong đó a là một giá trị bất kỳ )
Ví dụ em có bảng tính như sau

EM muốn thêm vào các ô đã chọn giá trị = *1.2 thì làm như thế nào ạ
Em cảm ơn

 

[giangleloi]

Gửi các anh chị
Nhờ các anh chị giúp đỡ thêm giá trị
= * a ( trong đó a là một giá trị bất kỳ )
Ví dụ em có bảng tính như sau
View attachment 148286
EM muốn thêm vào các ô đã chọn giá trị = *1.2 thì làm như thế nào ạ
Em cảm ơn

Hãy mô tả rõ và kỹ hơn bằng file. Còn mơ hồ quá xá.

 

[phulien1902]

Gửi các anh chị
Nhờ các anh chị giúp đỡ thêm giá trị
= * a ( trong đó a là một giá trị bất kỳ )
Ví dụ em có bảng tính như sau
View attachment 148286
EM muốn thêm vào các ô đã chọn giá trị = *1.2 thì làm như thế nào ạ
Em cảm ơn

Bạn làm như sau:
- Bạn nhập số 1.2 vào 1 Cell nào đó, tiếp đó Copy Cell này
- Quét chon vùng A1:C2, chọn Paste Special
- Chọn Multiply, OK
Xong.
Chúc bạn thành công

 

[manhlevn]

Vâng. File đính kèm đây ạ

 

[phulien1902]

Vâng. File đính kèm đây ạ

Dùng tạm cái này đã, tý nữa viết gọn hơn:

Sub Nhan()
    Dim Cll As Range
    For Each Cll In Range("A3:E3")
        If Not IsError(Cell) Then Cll.Offset(, 6) = Cll * 1.9
    Next Cll
    For Each Cll In Range("A4:E4")
        If Not IsError(Cell) Then Cll.Offset(, 6) = Cll * 1.4
    Next Cll
    For Each Cll In Range("A5:E5")
        If Not IsError(Cell) Then Cll.Offset(, 6) = Cll * 1.2
    Next Cll
    For Each Cll In Range("A6:E6")
        If Not IsError(Cell) Then Cll.Offset(, 6) = Cll * 1.1
    Next Cll

End Sub

 

[giangleloi]

Vâng. File đính kèm đây ạ

Nếu muốn dùng code thì xài tạm cái này thử:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim núm, x
    x = Application.InputBox("Nhap so")
    If x = False Or Not IsNumeric(x) Then
        Exit Sub
      Else
        For Each núm In Selection
            núm.Value = núm.Value * x
        Next
    End If
End Sub

 

[Ba Tê]

Gửi các anh chị
Nhờ các anh chị giúp đỡ thêm giá trị
= * a ( trong đó a là một giá trị bất kỳ )
Ví dụ em có bảng tính như sau
View attachment 148286
EM muốn thêm vào các ô đã chọn giá trị = *1.2 thì làm như thế nào ạ
Em cảm ơn

Dữ liệu lớn là bao nhiêu cột? khoảng bao nhiêu dòng?
Cả bảng 1 nhân cho 1 số cố định hay mỗi dòng nhân cho các số khác nhau? Như trong file đính kèm thì mỗi dòng nhân cho 1 số khác nhau, số đó ở đâu mà có?
Bảng 1 nằm ở đâu và muốn bảng 2 nằm ở đâu?
Hỏi mơ hồ, làm mơ hồ, rồi lại hỏi tiếp mơ hồ, biết sao mà kết thúc?

 

[Ba Tê]

Dùng tạm cái này đã, tý nữa viết gọn hơn:

Sub Nhan()
    Dim Cll As Range
    For Each Cll In Range("A3:E3")
        If Not IsError(Cell) Then Cll.Offset(, 6) = Cll * 1.9
    Next Cll
    For Each Cll In Range("A4:E4")
        If Not IsError(Cell) Then Cll.Offset(, 6) = Cll * 1.4
    Next Cll
    For Each Cll In Range("A5:E5")
        If Not IsError(Cell) Then Cll.Offset(, 6) = Cll * 1.2
    Next Cll
    For Each Cll In Range("A6:E6")
        If Not IsError(Cell) Then Cll.Offset(, 6) = Cll * 1.1
    Next Cll

End Sub

Người ta nói dữ liệu lớn mà làm từng dòng, từng dòng như vậy chắc ... tới tết Công Gô quá.

 

[manhlevn]

Dạ vâng. Cảm ơn tất cả các bạn. Mình đã giải quyết được vấn đề rồi.