Dạ, em muốn show các thông tin cần thiết để tiết kiệm kích thước bảng, do khối lượng data lớn. Khi muốn ktra gì đó thì rê chuột để hiện lên. Excel ko làm đc việc này anh nhỉ? Ko yêu xin đừng nói lời cay đắng, haha
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rws As Long: Dim Rng As Range
Rws = [A99999].End(xlUp).Row
Set Rng = [A1].Resize(Rws)
If Not Intersect(Target, Rng) Is Nothing Then
MsgBox Target.Offset(, 1).Value, , "Xin Chào"
End If
End SubCám ơn bạn rất nhiều, để mình chạy thử. Ủa mà code này áp dụng cho đề bài của mình phải ko bạn? Thấy khác khác nhỉ
Trên bảng tính excel không có sự kiện Mouse Move, nhưng có thể ăn gian bằng cách chạy code nạp hết cột B vào comment thì khi ta đưa chuột đến ô nào đó của cột A thì comment sẽ tự hiện ra. Tuy nhiên thấy kỳ kỳ nên không muốn code
Dạ, e hiểu rồi. Cám ơn anh rất nhiều
Anh hướng dẫn em " chạy code nạp hết cột B vào comment" với ạ, e ghi cho 1 cell thì đc nhưng làm sao để nạp 1 lần comment cho cột A thì e ko rõ?
Thử code này. Thay thế tên sheet và vùng cần xử lý cho phù hợp cho phù hợp. Code này giả định dữ liệu bắt đầu từ A1
Sub Add_Comment()
Dim sArr(), i As Long
With Sheets("Sheet1")
sArr = .Range("A1", .Range("A" & Rows.Count).End(3)).Resize(, 2).Value
For i = 1 To UBound(sArr)
.Cells(i, 1).ClearComments
.Cells(i, 1).AddComment CStr(sArr(i, 2))
Next
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sCmt$
Range(Cells(1, 1), Cells(10000, 1)).ClearComments
If Target.Row > 1 And Target.Column = 1 And Target.Count = 1 Then
sCmt = Cells(Target.Row, 2).Text
Target.AddComment
Target.Comment.Text sCmt
End If
End Sub/-)úng là không có gì bất tiện khi vận hành, nhưng tốn điện là cái chắc!
← → ← → ← → ← → ← → ← → ← Cám ơn bác, mà hình như bác chưa hiểu ý tui
Em cám ơn anh
Bạn có thể gợi ý cho tớ cái ứng dụng của việc này được không? Tự nhiên tớ thấy hay hay.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly
.InputMessage = Target.Offset(, 1).Value
End With
End SubEm cũng đang tò mò ý của tác giả. Em thích SelectionChange của 2 bác hơn là chạy Sub (bác Hải đừng buồn nhé).
Ôi giời, buồn vụ gì chứ? Quan trọng là con thỏ thì thích ăn củ cải còn con cá thì thích ăn con giun con dế. Nhu cầu thực tế của người dùng đa dạng lắm mọi người ạ.
Xóa thì đơn giản, nhưng phụ thuộc việc DataValidation nó có ảnh hưởng đến mức cần thiết phải xóa hay không thôi. Nói thêm là DataValidation này không khống chế việc nhập dữ liệu hay ràng buộc kiểu dữ liệu, mà chỉ đơn thuần phục vụ chi việc "show" text ra thôi.
