0 / 0 / 0
Регистрация: 17.01.2020
Сообщений: 7
1

Изменение высоты строки по условию

08.10.2021, 11:02. Показов 799. Ответов 11

Добрый день.

Подскажите, пожалуйста, можно ли как-то (с помощью макроса или еще как) менять значение высоты строки ячейки (в единицах измерения пт) по вычисленному значению этой высоты (значение находится в ячейке) ?

Покажу на примере что мне нужно:
Имеется таблица, в которой по макросу были вычислены высоты строк в необходимых excel единицах измерения (столбец K во вложенном файле). Например, было вычислено, что высота строки 6 равна 37,5 пт. Мне нужно установить высоту этой строки 40 пт.

Можно ли это как-то автоматизировать, чтоб не устанавливать высоту в каждой строчке вручную?
0
Вложения
Тип файла: xlsx Книга1.xlsx (11.8 Кб, 8 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2021, 11:02
Ответы с готовыми решениями:

Изменение высоты формы (клиента) по условию через case
На форме есть Edit и button эта кнопка, в зависимости от числа, введенного в Edit, должна изменить...

Изменение высоты строки в dataGridView
В событии изменения высоты строки изменяю высоту всех строк в гриде. private void...

Изменение высоты строки в DbGrid
Всем доброго времени суток, собственно вопрос в названии темы "Изменение высоты строки в DbGrid" ...

Изменение высоты строки в dataGridView
Добрый вечер! Возникла такая проблема: Нужно сделать так что бы при вводе текста в ячейку её...

Изменение высоты новой строки TableLayoutPanel
Здравствуйте. Заполняю строки TableLayoutPanel объектами, изначально в конструкторе всего одна...

11
1961 / 1340 / 629
Регистрация: 23.03.2015
Сообщений: 4,359
08.10.2021, 11:12 2
Maidar,
Цитата Сообщение от Maidar Посмотреть сообщение
с помощью макроса
Цитата Сообщение от Maidar Посмотреть сообщение
то высота строки 6 равна 37,5 пт. Мне нужно установить высоту этой строки 40 пт.
Visual Basic
1
2
3
Sub MMM()
Rows(6).RowHeight = 40
End Sub
0
1830 / 963 / 195
Регистрация: 13.12.2016
Сообщений: 3,286
Записей в блоге: 3
08.10.2021, 11:20 3
Лучший ответ Сообщение было отмечено Maidar как решение

Решение

можно макросом
1
Миниатюры
Изменение высоты строки по условию  
0 / 0 / 0
Регистрация: 17.01.2020
Сообщений: 7
08.10.2021, 11:45  [ТС] 4
Narimanych,
Надо полагать, Ваш макрос отработает только для 6 строки и только для значения 40.
Мне нужно немного иное - выставить значения высот в определенном столбце для всех ячеек в рассматриваемой таблице, и после автоматически применить эти значения к высотам строк. Строку 6 и значение 40 я привел для примера.

Цитата Сообщение от АЕ Посмотреть сообщение
можно макросом
Возможно, я чего-то не понимаю. Попробовал Ваш макрос, эксель выдает ошибку и выделяет (x1Up)
0
1830 / 963 / 195
Регистрация: 13.12.2016
Сообщений: 3,286
Записей в блоге: 3
08.10.2021, 12:28 5
Цитата Сообщение от Maidar Посмотреть сообщение
Возможно, я чего-то не понимаю.
тогда найдите другой способ найти последнюю заполненную строку в 11 столбце или явно укажите 20 или 30 (сколько там строк)
1
0 / 0 / 0
Регистрация: 17.01.2020
Сообщений: 7
08.10.2021, 12:35  [ТС] 6
Цитата Сообщение от АЕ Посмотреть сообщение
тогда найдите другой способ найти последнюю заполненную строку в 11 столбце или явно укажите 20 или 30 (сколько там строк)
Простите за глупый вопрос. Куда именно нужно прописать количество строк?
lr = 20 ?

Изменено:

Разобрался. Спасибо!
0
1830 / 963 / 195
Регистрация: 13.12.2016
Сообщений: 3,286
Записей в блоге: 3
08.10.2021, 12:36 7
а лучше писать без ошибок. С картинки оно так....
Цитата Сообщение от Maidar Посмотреть сообщение
lr = 20 ?
да
1
1961 / 1340 / 629
Регистрация: 23.03.2015
Сообщений: 4,359
08.10.2021, 17:07 8
Цитата Сообщение от Maidar Посмотреть сообщение
Narimanych,
Надо полагать, Ваш макрос отработает только для 6 строки и только для значения 40.
Мне нужно немного иное

Цитата Сообщение от Maidar Посмотреть сообщение
Например, было вычислено, что высота строки 6 равна 37,5 пт. Мне нужно установить высоту этой строки 40 пт.
Цитата Сообщение от Maidar Посмотреть сообщение
Мне нужно немного иное - выставить значения высот в определенном столбце для всех ячеек в рассматриваемой таблице
Почему бы в начале не написать это совсем другое?

Пы.Сы Научитесь ставить правильно вопросы!
0
776 / 471 / 155
Регистрация: 22.12.2015
Сообщений: 1,396
08.10.2021, 17:27 9
Цитата Сообщение от Maidar Посмотреть сообщение
Мне нужно немного иное - выставить значения высот в определенном столбце для всех ячеек в рассматриваемой таблице, и после автоматически применить эти значения к высотам строк.
выделите свой определенный столбец для всех ячеек, чтобы эти слова ни значили, затем запустите код ниже, он установит для каждой строки значение высоты, равное значению ячейки (или нескольких по очереди, если выделите по горизонтали) из этой строки. Ячейки можно выделить контролом из нескольких несвязанных диапазонов.
Visual Basic
1
2
3
4
5
6
7
8
Sub row_h()
Dim rngCell As Range
For Each rngCell In Selection
    If rngCell.Value > 0 Then
        rngCell.EntireRow.RowHeight = rngCell.Value
    End If
Next rngCell
End Sub

Не по теме:

Цитата Сообщение от Narimanych Посмотреть сообщение
Почему бы в начале не написать это совсем другое?
Подпишусь под каждым словом :D

0
Fairuza
08.10.2021, 18:29
  #10

Не по теме:

Цитата Сообщение от Narimanych Посмотреть сообщение
Пы.Сы Научитесь ставить правильно вопросы!
скоро все будем копировать подпись АЕ

0
Dinoxromniy
08.10.2021, 18:49
  #11

Не по теме:

Цитата Сообщение от Fairuza Посмотреть сообщение
скоро все будем копировать подпись АЕ
Сие вряд ли - у меня как минимум отключено отображение подписей участников.

0
74 / 40 / 15
Регистрация: 16.07.2020
Сообщений: 129
08.10.2021, 19:42 12
Цитата Сообщение от Maidar Посмотреть сообщение
Возможно, я чего-то не понимаю. Попробовал Ваш макрос, эксель выдает ошибку и выделяет (x1Up)
После "x" должна быть латинская буква "l" (эль), а не единица "1".
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2021, 19:42

Изменение высоты строки TableLayoutPanel в рунтайме
Есть форма, с растянутой по ней TableLayoutPanel. На TableLayoutPanel висят контролы. Отношение...

Как анимировать изменение высоты строки грида?
Я пытался применить int, double, size анимацию на свойство rowdefenition.heightproperty. Но все они...

Изменение высоты разделителя (нижней границы строки)
всем доброго дня. у меня есть две связанные таблицы DGV где в одном столбце есть пустые строки...

Автоматическое изменение высоты строки под шрифт в DbGrid
Как можно чтобы DBGrid автоматический менял высоту строки под шрифт, когда меняю шрифт на больше...

Автоматическое изменение высоты строки формул Excel 2010
Приветствую! В старом Excel'е (2000, 2003) высота строки формул менялась автоматом. Если формула...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.