Không edit được comment (1 người xem)

[nguyendinhtutw]

Dear các bác,
Em có file như đính kèm, trong đó không edit được comment ở các ô G3, H3, I3 (và một số ô khác).
Trước đây comment chạy lung tung trong file, em có tìm hiểu được một số sub và đã áp dụng trong file này.. Tuy nhiên các sub này chỉ giúp hiển thị các comment ở vị trí gần với cell khi rê chuột đến cell đó, khi muốn edit các comment này thì bắt buộc phải chọn Hide/Show comment trước, sau đó thì comment lại chạy ra một vị trí rất xa với cell.
Có cách nào để khắc phục được vấn đề này không ạ?
Em cảm ơn các bác,

 

[AnhPhong411]

Dear các bác,
Em có file như đính kèm, trong đó không edit được comment ở các ô G3, H3, I3 (và một số ô khác).
Trước đây comment chạy lung tung trong file, em có tìm hiểu được một số sub và đã áp dụng trong file này.. Tuy nhiên các sub này chỉ giúp hiển thị các comment ở vị trí gần với cell khi rê chuột đến cell đó, khi muốn edit các comment này thì bắt buộc phải chọn Hide/Show comment trước, sau đó thì comment lại chạy ra một vị trí rất xa với cell.
Có cách nào để khắc phục được vấn đề này không ạ?
Em cảm ơn các bác,

Chào bạn,
Bạn muốn Edit comments nào thì chuột phải vào ô chưa comment sau đó chọn Show/Hide comments -> khi chọn xong do comments dài nên nó chưa hiển thị, bạn di chuột vào ô chứa comments thì nó sẽ hiển thị cho bạn => bạn tha hồ chỉnh sưa theo ý nhé!

 

[nguyendinhtutw]

Chào bạn,
Bạn muốn Edit comments nào thì chuột phải vào ô chưa comment sau đó chọn Show/Hide comments -> khi chọn xong do comments dài nên nó chưa hiển thị, bạn di chuột vào ô chứa comments thì nó sẽ hiển thị cho bạn => bạn tha hồ chỉnh sưa theo ý nhé!

Em cảm ơn bác, vậy có sub nào kéo comment về gần với ô chứa comment được không ạ? vì có những comment nó chạy ra rất xa ô chứa comment, có khi phải lăn chuột để tìm tới comment đó. Nếu làm thủ công bằng tay thì sẽ rất lâu do có rất nhiều comment chạy lung tung cả

 

[giaiphap]

Bạn sử dụng code này thử xem.

Sub ResetComments()
Dim pComment As Comment
For Each pComment In Sheet1.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

 

[nguyendinhtutw]

Bạn sử dụng code này thử xem.

Sub ResetComments()
Dim pComment As Comment
For Each pComment In Sheet1.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

Em cảm ơn bác