Làm sao khi đưa chuột (MouseMove) thì hiển thị bảng thông báo (New Comment) ??? (1 người xem)

[nqdn2010]

Làm sao khi đưa chuột (MouseMove) thì hiển thị bảng thông báo (New Comment) như sheet2 ? (không cần thể hiện màu). Tôi có gởi file đính kèm!

 

[phucbugis]

Làm sao khi đưa chuột (MouseMove) thì hiển thị bảng thông báo (New Comment) như sheet2 ? (không cần thể hiện màu). Tôi có gởi file đính kèm!

- hiện tại, Sheet2 có các comment ở các ô 15.33 | 9.12 | 80.87
- ý của bạn là khi "Mousemove" (rê chuột) vào C5, E10, F2 của Sheet1 thì hiện các comment cúa Sheet2 sang Sheet1 đó ha?

 

[nqdn2010]

Ở Sheet2 là kết quả
file của mình gởi ở sheet2 làm minh họa hiện giờ mình làm thủ công.
Ý mình là muốn tự động Mousemove ở Sheet2 sẽ ra hiệu ứng như mình minh họa.
Rõ hơn là ở sheet2 sau khi mình tính toán sẽ ra kết quả. khi kết quả nào thuộc vùng (B1:F11) của sheet1 tương ứng kết quả nào thì Comment ở kết quả đó. Còn kết quả không thuộc vùng (B1:F11) thì không Comment.

 

[Quang_Hải]

Ở Sheet2 là kết quả
file của mình gởi ở sheet2 làm minh họa hiện giờ mình làm thủ công.
Ý mình là muốn tự động Mousemove ở Sheet2 sẽ ra hiệu ứng như mình minh họa.
Rõ hơn là ở sheet2 sau khi mình tính toán sẽ ra kết quả. khi kết quả nào thuộc vùng (B1:F11) của sheet1 tương ứng kết quả nào thì Comment ở kết quả đó. Còn kết quả không thuộc vùng (B1:F11) thì không Comment.

Trên sheet không có sự kiện Mouse Move nên chắc là yêu cầu của bạn khó thực hiện.
Bạn nên chọn phương án khác đi.

 

[phucbugis]

Trên sheet không có sự kiện Mouse Move nên chắc là yêu cầu của bạn khó thực hiện.
Bạn nên chọn phương án khác đi.

p/a1: (cần thời gian "mò" )
"vẫn có thể" đó bác: nhờ Hyperlink + "1 ít Macro" ...
(Interactive Periodic Table of Elements in Excel)


p/a2: (ko đáp ứng được y/c mousemove)

dùng Shapes hoặc ActiveX control + sự kiện Worksheet_SelectionChange.

 

[ndu96081631]

Trên sheet không có sự kiện Mouse Move nên chắc là yêu cầu của bạn khó thực hiện.
Bạn nên chọn phương án khác đi.

Thật ra thì vẫn Mouse Move được, có điều tôi đọc hoài vẫn không hiểu sẽ "hiện ra" cái gì

 

[nqdn2010]

Thật ra thì vẫn Mouse Move được, có điều tôi đọc hoài vẫn không hiểu sẽ "hiện ra" cái gì

Ở sheet1 tử Ô C1:F1 có ghi các mã MX1; MX2;AM;FY.
Khi em Mouse Move vào các ô ở cột C ở sheet2 nếu có giá trị nào tương ứng thì hiện mã trong Comment.
Chẵng hạn: Sheet2 Ở ô B3: 01; Ô C3: 15,33 tương ứng ở bên sheet1 ô B2: 01; Ô F2: 15,33 và có mã là FY
Em muốn Comment sẽ hiện mã này ra khi Move đến ô nào ở cột C sheet2 có giá trị tương ứng với mã nào sẽ hiện mã đó ra, còn không có thì không có Comment.

 

[Zerothink]

Ở sheet1 tử Ô C1:F1 có ghi các mã MX1; MX2;AM;FY.
Khi em Mouse Move vào các ô ở cột C ở sheet2 nếu có giá trị nào tương ứng thì hiện mã trong Comment.
Chẵng hạn: Sheet2 Ở ô B3: 01; Ô C3: 15,33 tương ứng ở bên sheet1 ô B2: 01; Ô F2: 15,33 và có mã là FY
Em muốn Comment sẽ hiện mã này ra khi Move đến ô nào ở cột C sheet2 có giá trị tương ứng với mã nào sẽ hiện mã đó ra, còn không có thì không có Comment.

vậy thì làm thử cách này xem sao
Mỗi lần gõ thay đổi giá trị ở cột B hay C thì sẽ chỉnh lại comment (sau khi cho code sau vào file --> như thế bạn phải vào từng ô hiện thời bấm F2 rồi Enter, để nhập comment lại cho đúng)

nháy phải lên tab sheet2 chọn view code và paste nội dung sub sau

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect([B3:C65000], Target) Is Nothing Then
        On Error GoTo 1
        Application.EnableEvents = False
        Dim b As Range, c As Range
        Set b = Cells(Target.Row, "B")
        Set c = Cells(Target.Row, "C")
        c.ClearComments
        If b.Value <> "" And c.Value <> "" Then
            Dim Arr, i As Long, j As Long
            With Sheet1
                Arr = .Range(.[B1], .[B65000].End(xlUp).Offset(, 4)).Value
            End With
            For i = 2 To UBound(Arr)
                If Arr(i, 1) = b Then
                    For j = 2 To UBound(Arr, 2)
                        If Arr(i, j) = c Then
                            c.AddComment
                            c.Comment.Text Text:=Arr(1, j)
                            Exit For
                        End If
                    Next j
                    Exit For
                End If
            Next i
        End If
1:      Application.EnableEvents = True
    End If
End Sub

 

[nqdn2010]

Text thử thấy OK!
Vận dụng vào thử, nếu có phát sinh gì làm phiền bạn ti e p
Cám ơn bạn nhiều!