Высота строки увеличивается без видимых причин

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Высота строки увеличивается без видимых причин (Макросы/Sub)

Oleg34

Дата: Вторник, 11.09.2018, 21:28 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

На форме девять Checkbox. Выбрав нужные, копирую их .Caption на Лист. При копировании высота строк возрастает с 15 до 45 пунктов. Из-за чего, не могу понять.
[vba]

Код

Dim i As Integer
Dim X As Object

'находим на Frame1 активные CheckBox
For i = 0 To Me.Frame1.Controls.count - 1
       For Each X In Me.Frame1.Controls
           If X.TabIndex = i Then
               If TypeOf Me.Frame1.Controls(i) Is MSForms.CheckBox Then
                    If Me.Frame1.Controls(i).Value = True Then

                    Worksheets("Лист1").Cells(i + 1, 1).Value = Me.Frame1.Controls(i).Caption
                    Worksheets("Лист1").Cells(i + 1, 2).Value = Me.Frame1.Controls("TextBox" & (i + 3)).Value
                    'Worksheets("Лист1").Rows(i + 1).AutoFit
                   End If
               End If
           End If
       Next
   Next

[/vba]