Попытка перебрать столбцы в поиске - PullRequest
Новая
       9

Попытка перебрать столбцы в поиске

0 голосов
/ 05 сентября 2018

Я пытаюсь создать модуль в Excel 2016, который будет сканировать лист и автоматически изменять размер всех найденных комментариев. Мой текущий код требует от меня корректировать букву столбца при каждом запуске. Я ищу метод, чтобы пройти по столбцам в моем цикле. Мой текущий код указан ниже, и я заранее благодарю всех за любую помощь, которую я могу получить. Мой текущий лист использует только столбцы от A до P. 

Sub cmtsize()
    ActiveSheet.Unprotect pswd

    Range("a7:I7").Select
    lrow = Cells(Rows.Count, 1).End(xlUp).Row

    For xrow = 7 To lrow
        xcell = "c" & lrow
        Range(xcell).Select
        If ActiveCell.Comment Is Nothing Then
            GoTo nxt
        Else
            With Range(xcell).Comment.Shape
                .TextFrame.AutoSize = True
            End With
nxt:
        End If
    Next xrow

    ActiveSheet.Protect pswd
    Range("A6").Select
    MsgBox "Finished!"
End Sub

1 Ответ

0 голосов
/ 05 сентября 2018

Это изменит размер всех комментариев на указанном листе. [Обновить] включена опция для защищенных паролем листов. А также Готовый Msgbox. 

Sub test()
    Call ResizeComments(Sheet1)
    MsgBox ("Finished!")
End Sub

Private Sub ResizeComments(ByVal ws As Worksheet, Optional ByVal Pass As String = "")
    If Pass <> "" Then ws.Unprotect Pass

    Dim oComment As Comment
    For Each oComment In ws.Comments
        oComment.Shape.TextFrame.AutoSize = True
    Next

    If Pass <> "" Then ws.Protect Pass
End Sub
...