hỏi cách hiển thị comment bằng một giá trị từ 1 cell (1 người xem)

[godanddogs]

Cho mình hỏi : mình nhập liệu theo cột và sẽ tính tổng tại một cell cố định(A100 chẳng hạn), giả sử mình nhập được 10 giá trị mà muốn biết tổng của chúng ngay tại comment của giá trị thứ 10, nếu nhập thêm giá trị 11 sẽ hiển thị tổng trên comment của giá trị 11 thì phải làm thế nào ? Hiểu đại khái là nhập đến đâu thì có cái tip báo giá trị tổng đến đó. chân thành cảm ơn

 

[comet_1701]

Cho mình hỏi : mình nhập liệu theo cột và sẽ tính tổng tại một cell cố định(A100 chẳng hạn), giả sử mình nhập được 10 giá trị mà muốn biết tổng của chúng ngay tại comment của giá trị thứ 10, nếu nhập thêm giá trị 11 sẽ hiển thị tổng trên comment của giá trị 11 thì phải làm thế nào ? Hiểu đại khái là nhập đến đâu thì có cái tip báo giá trị tổng đến đó. chân thành cảm ơn

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    If Target.Column = 1 Then
        Range("A1:A65000").ClearComments
        Target.AddComment
        Target.Comment.Visible = False
        Target.Comment.Text Text:="Tong cua gia tri thu i la :" & Chr(10) & Target.Offset(, 1).Value
    End If
End Sub

Nếu cột bên cạnh , Cột B mà dùng công thức tính tổng trước(cột phụ) thì có thể làm dễ hơn chăng

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 On Error GoTo Label ' Chu thich
Application.ScreenUpdating = False
 If Not Intersect(Target, Range("A1:A65000")) Is Nothing And Target.Value <> "" Then
   With Target
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:="Tong cua gia tri thu i la :" & Chr(10) & Target.Offset(, 1).Value
        .Shape.TextFrame.AutoSize = True
    End With
 End If
Err_Loiroi:            Exit Sub


Label: Select Case Err
    Case Is <> 4
        Resume Err_Loiroi
    Case Else
        Resume Next
    End Select
Application.ScreenUpdating = True
End Sub