Comment bị thu nhỏ khi group?

[mivudemen]

Không hiểu tại sao sau khi mình group các hàng trong bảng tính thì các comment bị thu nhỏ khung, không đọc được (không phải là thu nhỏ size chữ).
Muốn đọc được phải kéo rộng khung ra (rất mất thời gian).
Bác nào chỉ giúp mình cách xử lý với!
Thanks trước!

 

[mivudemen]

chưa ai giúp đỡ nhỉ?

 

[mivudemen]

vẫn chưa ai giúp đỡ sao?

 

[1t2u3a4n]

Mình cũng gặp tình trạng y chang vậy, search google hoài không ra. Xin gia nhập fb's group của nhóm thì không thấy ai duyệt.

Có bác nào chỉ hộ cái được không ạ? Một số khung comment trong excel bị thu nhỏ lại khiến không thể đọc chữ trong cmt đó khi rê chuột vào. Mình phải sử dụng cách thủ công giống bạn trên là edit cmt -> dùng tay kéo để khung to ra.

Mình xin gửi 1 hình minh họa để có bác nào vào giúp thì hiểu rõ hơn. Khi rê chuột vào cmt thì chỉ hiện ra thế này.

 

[huonglien1901]

Mình cũng gặp tình trạng y chang vậy, search google hoài không ra. Xin gia nhập fb's group của nhóm thì không thấy ai duyệt.

Có bác nào chỉ hộ cái được không ạ? Một số khung comment trong excel bị thu nhỏ lại khiến không thể đọc chữ trong cmt đó khi rê chuột vào. Mình phải sử dụng cách thủ công giống bạn trên là edit cmt -> dùng tay kéo để khung to ra.

Mình xin gửi 1 hình minh họa để có bác nào vào giúp thì hiểu rõ hơn. Khi rê chuột vào cmt thì chỉ hiện ra thế này.

Bạn đưa cái file lên đi, chứ hình ảnh thì nhìn rối hơn,

 

[1t2u3a4n]

Cám ơn bạn huonglien1901.

Mình sẽ up file lên ngay dưới đây, bạn xem hộ nhé. Trong tệp này, cột J chứa các cmt, và một số bị tình trạng như trên : https://drive.google.com/open?id=0Bwoi-vbN7DbmcERYdV9mT2pmcnc

 

[1t2u3a4n]

Mình đã đăng lên fb's group và nhận được giải đáp rồi nha. Thanks mọi người. Giải pháp cho trường hợp này của một bạn trên đó như sau, ghi lại để nếu ai gặp thì khắc phục:

Sub ResetComments()
Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 300 Then
lArea = .Shape.Width * .Shape.Height
.Shape.Width = 200
.Shape.Height = (lArea / 200) * 1.1
End If
.Shape.Top = .Parent.Top + 5
.Shape.Left = .Parent.Offset(0, 1).Left + 5
End With
Next
End Sub

 

[Mutants Men]

Mình đã đăng lên fb's group và nhận được giải đáp rồi nha. Thanks mọi người. Giải pháp cho trường hợp này của một bạn trên đó như sau, ghi lại để nếu ai gặp thì khắc phục:

Sub ResetComments()
Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 300 Then
lArea = .Shape.Width * .Shape.Height
.Shape.Width = 200
.Shape.Height = (lArea / 200) * 1.1
End If
.Shape.Top = .Parent.Top + 5
.Shape.Left = .Parent.Offset(0, 1).Left + 5
End With
Next
End Sub

nếu muốn chỉnh 1 lần mà mấy lần sau mấy cái comment đó không bị lại nữa thì thêm dòng này vào
.Shape.Placement = xlMove

Sub ResetComments()
    Dim MyComments As Comment
    Dim lArea As Long
    For Each MyComments In ActiveSheet.Comments
        With MyComments
            .Shape.Placement = xlMove
            .Shape.TextFrame.AutoSize = True
            If .Shape.Width > 300 Then
                lArea = .Shape.Width * .Shape.Height
                .Shape.Width = 200
                .Shape.Height = (lArea / 200) * 1.1
            End If
            .Shape.Top = .Parent.Top + 5
            .Shape.Left = .Parent.Offset(0, 1).Left + 5
        End With
    Next
End Sub

 

[leetenchin1]

nếu muốn chỉnh 1 lần mà mấy lần sau mấy cái comment đó không bị lại nữa thì thêm dòng này vào
.Shape.Placement = xlMove

Sub ResetComments()
    Dim MyComments As Comment
    Dim lArea As Long
    For Each MyComments In ActiveSheet.Comments
        With MyComments
            .Shape.Placement = xlMove
            .Shape.TextFrame.AutoSize = True
            If .Shape.Width > 300 Then
                lArea = .Shape.Width * .Shape.Height
                .Shape.Width = 200
                .Shape.Height = (lArea / 200) * 1.1
            End If
            .Shape.Top = .Parent.Top + 5
            .Shape.Left = .Parent.Offset(0, 1).Left + 5
        End With
    Next
End Sub

bạn cho mình hỏi cái code này chạy như nào