Làm thế nào để thay đổi số liệu

[AnhTuan-Hacinco]

Dữ liệu tại ô D5 hiện tại là 125
Bây giờ mình muốn sửa lại dữ liệu ở ô D5 thành dữ liệu: lấy dữ liệu hiện tại là 125 nhân với một hệ số nào đó chẳng hạn 1,3 " thì làm thế nào?
Nhờ mọi người giúp đỡ.

 

[sealand]

Giả sử bạn có vùng B2:B15 cần nhân lên 1,3 lần. Bạn gõ 1,3 vào 1 ô nào đó rồi copy. Chọn vùng B2:B15-->Chọn Paste Speacial-->Multiply-->OK . Xóa ô tạm 1,3 là xong

 

[AnhTuan-Hacinco]

Cảm ơn bạn rất nhiều.
Mình còn một thắc mắc nữa mà không biết có làm được không?
đó là tại ô vừa thay đổi số liệu mình muốn đặt một lời nhắn mà không phải làm thủ công là đánh trực tiếp với nội dung như sau: dữ liệu cũ nhân với hệ số , tức là ở ô D5 sẽ có một lời nhắn là: "125 x 1.3"

 

[tigertiger]

Cảm ơn bạn rất nhiều.
Mình còn một thắc mắc nữa mà không biết có làm được không?
đó là tại ô vừa thay đổi số liệu mình muốn đặt một lời nhắn mà không phải làm thủ công là đánh trực tiếp với nội dung như sau: dữ liệu cũ nhân với hệ số , tức là ở ô D5 sẽ có một lời nhắn là: "125 x 1.3"

Thì bạn làm cách:

+ Nháy phải mouse -> Insert comment
+ Cộng lời nhắn vào
là xong

 

[ndu96081631]

Cảm ơn bạn rất nhiều.
Mình còn một thắc mắc nữa mà không biết có làm được không?
đó là tại ô vừa thay đổi số liệu mình muốn đặt một lời nhắn mà không phải làm thủ công là đánh trực tiếp với nội dung như sau: dữ liệu cũ nhân với hệ số , tức là ở ô D5 sẽ có một lời nhắn là: "125 x 1.3"

Đương nhiên là được ---> Quá dể nếu dùng VBA
Bạn xem file thử
Đây chỉ là ví dụ đơn giản ---> Có thể cải tiến tốt hơn

 

[le tin]

Trường hợp chọn 1 vùng thì chỉnh thế nào vậy bạn và không báo lỗi khi để trống .

 

[solomon2211]

Trong VBA ban chi viec xac dinh vung. Sau do cho chay het tat ca cac cell. Dua dieu kien, neu trong thi k nhan he so va k chen comment. The thoi!
Xin loi k bo dau tieng Viet vi minh dag online = dtdd
Than

 

[ndu96081631]

Trường hợp chọn 1 vùng thì chỉnh thế nào vậy bạn và không báo lỗi khi để trống .

Thì vầy đây:

Option Explicit
Sub AddCom()
  Dim Sonhan As Double, Src As Range, Clls As Range
  On Error Resume Next
  Sonhan = InputBox("Ban muon nhan them may?")
  Set Src = Selection
  For Each Clls In Src.SpecialCells(2, 1)
    Clls.ClearComments
    With Clls.AddComment
      .Text Clls.Value & " * " & Sonhan
      .Shape.AutoShapeType = 16
    End With
    Clls = Clls * Sonhan
  Next
End Sub

Xem thử đúng ý bạn không nha

 

[AnhTuan-Hacinco]

bạn ndu... xem lại xem mình không thấy comment xuất hiện mà đôi khi code báo lỗi chỗ viết comment.
Mình hay sử dụng addcom.01 của bạn hơn bạn có thể add thêm code xuất hiện comment vào code đó được không.

- Lỗi xảy ra khi:
+ Nhân cùng một lúc 2 hệ số
+ Nhân thêm các lần tiếp theo.
Mới tham gia diễn đàn, hiểu biết về VBA còn hạn hẹp ndu... giúp hộ mình nha.
Thanks.

 

[ndu96081631]

- Lỗi xảy ra khi:
+ Nhân cùng một lúc 2 hệ số
+ Nhân thêm các lần tiếp theo.
Mới tham gia diễn đàn, hiểu biết về VBA còn hạn hẹp ndu... giúp hộ mình nha.
Thanks.

Tôi vẩn không hiểu:
+ Nhân cùng một lúc 2 hệ số là nhân thế nào nhỉ?
+ Nhân thêm các lần tiếp theo. ---> Tôi test đâu có vấn đề gì
???

 

[le tin]

Thì vầy đây:

Option Explicit
Sub AddCom()
  Dim Sonhan As Double, Src As Range, Clls As Range
  On Error Resume Next
  Sonhan = InputBox("Ban muon nhan them may?")
  Set Src = Selection
  For Each Clls In Src.SpecialCells(2, 1)
    Clls.ClearComments
    With Clls.AddComment
      .Text Clls.Value & " * " & Sonhan
      .Shape.AutoShapeType = 16
    End With
    Clls = Clls * Sonhan
  Next
End Sub

Xem thử đúng ý bạn không nha

Hình như phải bỏ cái này .SpecialCells(2, 1) mới đúng

 

[AnhTuan-Hacinco]

- Nhân hai lần liên tiếp ví dụ như nhân thêm: 3x4 chẳng hạn.
- Nhân lần tiếp theo không báo lỗi nhưng comment chưa thể hiện được : chẳng hạn lần thứ nhất nhân thêm 3, lần thứ hai nhân thêm 4 thì comment báo là: 125x3x4
Mình mới tham gia, không hiểu mấy về code nên bạn giúp mình nha.

 

[ndu96081631]

- Nhân hai lần liên tiếp ví dụ như nhân thêm: 3x4 chẳng hạn.
- Nhân lần tiếp theo không báo lỗi nhưng comment chưa thể hiện được : chẳng hạn lần thứ nhất nhân thêm 3, lần thứ hai nhân thêm 4 thì comment báo là: 125x3x4
Mình mới tham gia, không hiểu mấy về code nên bạn giúp mình nha.

Thấy cũng hơi lạ! Bạn nhân 1 lần 3*4 vậy sao không nhân với 12 luôn?
Tuy nhiên, thích thì chiều:

Option Explicit
Sub AddCom()
  Dim Sonhan As Variant, Src As Range, Clls As Range
  On Error Resume Next
  Sonhan = InputBox("Ban muon nhan them may?")
  Set Src = Selection
  For Each Clls In Src.SpecialCells(2, 1)
    Clls.ClearComments
    With Clls.AddComment
      .Text Clls.Value & " * " & Sonhan
      .Shape.AutoShapeType = 16
    End With
    Clls = Evaluate(Clls & "*" & Sonhan)
  Next
End Sub

 

[AnhTuan-Hacinco]

Cảm ơn bạn nhưng file của bạn vẫn chưa thật sự đúng ý mình:
- Thứ nhất khi nhân một hệ số cho một ô thì tất cả các ô khác đều nhân theo.
- Thứ hai bạn có thể sửa comment lại sao cho luôn luôn lưu trữ số đầu tiên khi nhân không: ví dụ số đầu tiên là 125 sau khi nhân thêm 2 thi comment báo là 125x2 sau đó lại nhân thêm 3 nữa thì commnet báo là 125x2x3
Cảm ơn bạn.

 

[ndu96081631]

Cảm ơn bạn nhưng file của bạn vẫn chưa thật sự đúng ý mình:
- Thứ nhất khi nhân một hệ số cho một ô thì tất cả các ô khác đều nhân theo.
- Thứ hai bạn có thể sửa comment lại sao cho luôn luôn lưu trữ số đầu tiên khi nhân không: ví dụ số đầu tiên là 125 sau khi nhân thêm 2 thi comment báo là 125x2 sau đó lại nhân thêm 3 nữa thì commnet báo là 125x2x3
Cảm ơn bạn.

Phần 1: Lổi này do sơ xuất thôi, chỉ cần sửa lại

Sub AddCom()
  Dim Sonhan As Variant, Src As Range, Clls As Range
  On Error Resume Next
  Sonhan = InputBox("Ban muon nhan them may?")
  Set Src = Selection
  For Each Clls In Src
    If Clls <> "" Then
      Clls.ClearComments
      Clls.AddComment.Text Clls.Value & " * " & Sonhan
      Clls = Evaluate(Clls & "*" & Sonhan)
    End If
  Next
End Sub

Phần 2: Yêu cầu này tôi vẩn chưa nghĩ ra nên dùng code gì để giữ lại "phần gốc" ---> Xin các cao thủ khác trỡ giúp vậy

 

[AnhTuan-Hacinco]

Phần 1: Lổi này do sơ xuất thôi, chỉ cần sửa lại

Sub AddCom()
  Dim Sonhan As Variant, Src As Range, Clls As Range
  On Error Resume Next
  Sonhan = InputBox("Ban muon nhan them may?")
  Set Src = Selection
  For Each Clls In Src
    If Clls <> "" Then
      Clls.ClearComments
      Clls.AddComment.Text Clls.Value & " * " & Sonhan
      Clls = Evaluate(Clls & "*" & Sonhan)
    End If
  Next
End Sub

Phần 2: Yêu cầu này tôi vẩn chưa nghĩ ra nên dùng code gì để giữ lại "phần gốc" ---> Xin các cao thủ khác trỡ giúp vậy

Cảm ơn bạn ndu.. rất nhiều. Mình đã thử và thấy chạy rất tốt.
Các cao thủ khác giải nốt hộ mình phần 2 của bài toán này nha. Xin cảm ơn.
Chúc diễn đàn ngày càng phát triển.

 

[anhtuan1066]

Cảm ơn bạn ndu.. rất nhiều. Mình đã thử và thấy chạy rất tốt.
Các cao thủ khác giải nốt hộ mình phần 2 của bài toán này nha. Xin cảm ơn.
Chúc diễn đàn ngày càng phát triển.

Có thể file này đúng ý bạn đây! Xem thử

 

[AnhTuan-Hacinco]

Có thể file này đúng ý bạn đây! Xem thử

Cảm ơn bạn anhtuan1066 file của bạn rất đúng ý mình.
Chúc diễn đàn ngày càng phát triển.

 

[AnhTuan-Hacinco]

Sau một thời gian sử dụng mình phát hiện ra một số lỗi như sau:
Nếu nhân các số nguyên liên tiếp thì không có vấn đề j
Nhưng khi nhân liên tiếp số thập phân hay phân số thì báo lỗi.
Nhờ các cao thủ giúp đỡ.

 

[Po_Pikachu]

Đâu thấy lỗi gì đâu.
Bạn thử lại xem.
Thân.