Chuyển Comment sang Text

[NgaQuin]

Chào mọi người,

File mình nhận được bị tình trạng comment như thế này, cả nhà giúp mình cách chuyển tất cả các comment sang text ở ngoài với. Cảm ơn mọi người nhìu.

 

[HeSanbi]

Bạn chỉ có thể sử dụng VBA trong trường hợp này.

Bạn thêm và vào tab Developer, mở trình chỉnh sửa VBE, thêm module và thêm mã bên dưới vào module, sau đó sử dụng ngoài trang tính như sau:
=commentCell(A1)

Function commentCell(Cell As Range) As String
  If Not Cell.Comment Is Nothing Then commentCell = Cell.Comment.Text
End Function

 

[NgaQuin]

Bạn chỉ có thể sử dụng VBA trong trường hợp này.

Bạn thêm và vào tab Developer, mở trình chỉnh sửa VBE, thêm module và thêm mã bên dưới vào module, sau đó sử dụng ngoài trang tính như sau:
=commentCell(A1)

Function commentCell(Cell As Range) As String
  If Not Cell.Comment Is Nothing Then commentCell = Cell.Comment.Text
End Function

Nó hiện như thế này là mình thiếu bước nào hay sao nhỉ, mình bấm Akt+F11 để insert module vào rùi

Bài đã được tự động gộp: 19/12/22

Bạn chỉ có thể sử dụng VBA trong trường hợp này.

Bạn thêm và vào tab Developer, mở trình chỉnh sửa VBE, thêm module và thêm mã bên dưới vào module, sau đó sử dụng ngoài trang tính như sau:
=commentCell(A1)

Function commentCell(Cell As Range) As String
  If Not Cell.Comment Is Nothing Then commentCell = Cell.Comment.Text
End Function

à mình làm được rồi nhưng nó chỉ hiện ra note á, còn comment thì ko ra

 

[HeSanbi]

Excel của bạn là Excel version 365

Function commentCell(Cell As Object) As String
  On Error Resume Next
  If Not Cell.Comment Is Nothing Then 
     commentCell = Cell.Comment.Text
  Else
     commentCell = Cell.CommentThreaded.Text
  End if
End Function

 

[NgaQuin]

ui trời được rùi, xuất sắc quá, cảm ơn bạn nhìu lắm ♥♥