Cần giúp! Tạo Message cho từng ô dữ liệu bằng công thức

  • Thread starter chungtalabanls
  • Ngày gửi
C

chungtalabanls

Sơ cấp
4/3/17
25
1
3
38
Em lại đang cần các Bác giúp em cái này với ạ.
Mỗi một ô có Message tương ứng với nội dung khác nhau. Em nghĩ mãi mà chưa ra. Nhờ các BÁc giúp em với ạ,
Hình Minh họa thế này:
y3mkiLBp4X0BmAhKIk6YOOGvpE5OkGrDDctU99pciuuDHozmj4Z4zd9M34bvXL7Tu755Lj4M_1Bwbj2rdbK2vkfwFyVkb7XLpJO3MBIaOW2KdwXXDys5B-lkDRWxWPimojyRtxeGQw90bGlEEgzCnkI-Q9DirebyyAGr7wUbKL_Qjw


y3mQbYxy6gXtacOiDJZ8tXLYG8r7TE7xrC8Xkw-wOHDxnZPRVZ8khOnLMX5hjLESW3Afxd388aOXBmJWk1K9QpjnhU2rr_jGm8-_5jrJnvOytTWkyLhJBsZppbRNYHbK5xMVIvNFh1gOHQs2qQUBB6kJRta9G3UXNBEGCg5m-ql_Yc

Các Bác hiểu ý em chưa ạ.
Khi nhấp vào ô của Cột " Tên Tiếng Việt" thì hiện ghi chú ở hàng tương ứng ở cột " Model".
rất mong được các anh Pro giúp ạ ! Thank alot !
 

Đính kèm

  • test_msg_auto.xlsx
    10.3 KB · Lượt xem: 41
Sửa lần cuối:
Khóa học Quản trị dòng tiền
thinhvd

thinhvd

Cao cấp
25/11/09
1,336
234
63
Hà Nội
bluesofts.net
Em lại đang cần các Bác giúp em cái này với ạ.
Mỗi một ô có Message tương ứng với nội dung khác nhau. Em nghĩ mãi mà chưa ra. Nhờ các BÁc giúp em với ạ,
Hình Minh họa thế này:
y3mkiLBp4X0BmAhKIk6YOOGvpE5OkGrDDctU99pciuuDHozmj4Z4zd9M34bvXL7Tu755Lj4M_1Bwbj2rdbK2vkfwFyVkb7XLpJO3MBIaOW2KdwXXDys5B-lkDRWxWPimojyRtxeGQw90bGlEEgzCnkI-Q9DirebyyAGr7wUbKL_Qjw


y3mQbYxy6gXtacOiDJZ8tXLYG8r7TE7xrC8Xkw-wOHDxnZPRVZ8khOnLMX5hjLESW3Afxd388aOXBmJWk1K9QpjnhU2rr_jGm8-_5jrJnvOytTWkyLhJBsZppbRNYHbK5xMVIvNFh1gOHQs2qQUBB6kJRta9G3UXNBEGCg5m-ql_Yc

Các Bác hiểu ý em chưa ạ.
Khi nhấp vào ô của Cột " Tên Tiếng Việt" thì hiện ghi chú ở hàng tương ứng ở cột " Model".
rất mong được các anh Pro giúp ạ ! Thank alot !
Bạn tham khảo đoạn code này nhé
PHP:
Sub AutoComment()
    Dim i&, d&
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets("Sheet1")
    d = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
    For i = 2 To d
        sh.Range("A" & i).AddComment
        sh.Range("A" & i).Comment.Text Text:="Doi Xe ap dung: " & sh.Cells(i, 1).Value
    Next i
End Sub
 
C

chungtalabanls

Sơ cấp
4/3/17
25
1
3
38
Bạn tham khảo đoạn code này nhé
PHP:
Sub AutoComment()
    Dim i&, d&
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets("Sheet1")
    d = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
    For i = 2 To d
        sh.Range("A" & i).AddComment
        sh.Range("A" & i).Comment.Text Text:="Doi Xe ap dung: " & sh.Cells(i, 1).Value
    Next i
End Sub
Em đã làm rồi, Không chạy bác ơi !
Bác hướng dẫn kỹ cho em xíu ạ. Em Gà mờ quá !
 
N

nguoiconxunui

Khách vãng lai
29/6/04
1,280
215
63
Bình Định
aso2pc.co.cc
xin hỏi là làm để chi ợ
 
thinhvd

thinhvd

Cao cấp
25/11/09
1,336
234
63
Hà Nội
bluesofts.net
Em đã làm rồi, Không chạy bác ơi !
Bác hướng dẫn kỹ cho em xíu ạ. Em Gà mờ quá !
Bạn nhận code thì bạn phải xem tên sheets, tên cột...đã ok chưa chứ. Bạn không attach file của bạn lên thì đương nhiên code viết ra chắc chắn ko dùng được luôn
 
C

chungtalabanls

Sơ cấp
4/3/17
25
1
3
38
Bạn nhận code thì bạn phải xem tên sheets, tên cột...đã ok chưa chứ. Bạn không attach file của bạn lên thì đương nhiên code viết ra chắc chắn ko dùng được luôn
Em đã làm theo và sửa đổi chỗ Bác tô đậm, Nhưng vẫn chưa được.
Nay em gửi lại File. Nhờ Bác coi giúp em. Thực sự thì cái này nó cũng không quan trọng lắm, không có cũng được, nhưng mình muốn nó giúp mình tiện hơn khi theo dõi và Quản lý Phụ tùng trong Kho.
rất cảm ơn bác !
 

Đính kèm

  • test_msg_auto.xlsx
    10.3 KB · Lượt xem: 39

Xem nhiều

Webketoan Zalo OA