Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Высота строки увеличивается без видимых причин - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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]
К сообщению приложен файл: 4512380.xlsm(21.2 Kb)


Сообщение отредактировал Oleg34 - Вторник, 11.09.2018, 21:30
 
Ответить
СообщениеНа форме девять 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]

Автор - Oleg34
Дата добавления - 11.09.2018 в 21:28
Pelena Дата: Вторник, 11.09.2018, 21:47 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13216
Репутация: 2908 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Вы, видимо, откуда-то копировали эти фамилии и захватили символы перевода строки, поэтому в две строки и выводится.
Посмотрите так
К сообщению приложен файл: 7682127.xlsm(22.5 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВы, видимо, откуда-то копировали эти фамилии и захватили символы перевода строки, поэтому в две строки и выводится.
Посмотрите так

Автор - Pelena
Дата добавления - 11.09.2018 в 21:47
Oleg34 Дата: Среда, 12.09.2018, 09:55 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, да, Вы правы. Для экономии времени копировал с главного листа Книги. Спасибо)!
 
Ответить
СообщениеPelena, да, Вы правы. Для экономии времени копировал с главного листа Книги. Спасибо)!

Автор - Oleg34
Дата добавления - 12.09.2018 в 09:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Высота строки увеличивается без видимых причин (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!