Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Высота строки
 
#1
11.03.2010 20:32:13
Привет всем!  
Как сделать чтобы высота строки A1:H1 регулировалась в зависемости от количесва строк в тексте, при условии:  
-ширина фиксированная  
-ячейки A1:H1 объеденены в одну строку  
-Объединять A2-H2 нельзя  
-В ячейке A1:H1 формула результат которой может быть равен разному количеству знаков
 
 
 
#2
11.03.2010 20:33:14
Перенос по словам не спасает?
 
 
 
#3
11.03.2010 21:59:10
НЕт - высота строки остается такой же
 
 
 
#4
11.03.2010 22:51:47
Неправда. 2003: Формат - Ячейка - Выравнивание - Отображание - ставим птицу "переносить по словам". Высота строки меняется.
 
 
 
#5
11.03.2010 23:16:25
ну а всетаки естьли возможность задать высоту строки взависимости от кол-ва символов в ячейке вручную/каким-нибудь способом?
 
 
 
#6
11.03.2010 23:18:15
Юрий М - яверю в ВАС-ВЫ гений!
 
 
 
#7
11.03.2010 23:25:11
Ну вот гляньте на пример.
 
 
 
#8
12.03.2010 07:16:35
{quote}{login=Юрий М}{date=11.03.2010 11:25}{thema=}{post}Ну вот гляньте на пример.{/post}{/quote}  
 
Это работает еслия ячейки не объеденены, если объединить ячейки A1-A3 то не получается:(
 
 
 
#9
12.03.2010 07:17:58
{quote}{login=(0_o)}{date=12.03.2010 07:16}{thema=Re: }{post}{quote}{login=Юрий М}{date=11.03.2010 11:25}{thema=}{post}Ну вот гляньте на пример.{/post}{/quote}  
 
Это работает еслия ячейки не объеденены, если объединить ячейки A1-A3 то не получается:({/post}{/quote}  
A1-C3
 
 
 
#10
12.03.2010 08:19:34
А может быть как-нибудь  
   Rows("1:1").EntireRow.AutoFit  
можно применить?  
Правда, при объединённых ячейках это почему-то не действует... :-(
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#11
12.03.2010 10:34:44
Не объединять ячейки.  
Объединение зло!  
А сделать такой формат, чтобы казалось, что ячейки объединенные.  
Тогда и .EntireRow.AutoFit работает.
Bite my shiny metal ass!      
 
 
 
#12
12.03.2010 12:12:23
Лузер™,  
вы просто монстр какой-то!  
Сижу над вашим примером, все мозги вскипели, никак не могу понять, как вы такой классный формат сделали...  
Научите!
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#13
12.03.2010 13:04:38
форматировать по горизонтали по центру выделения (т е выделяете ячейки, которые как бы объединяются) и галочки переноса
 
 
 
#14
12.03.2010 13:16:23
Тоже долго думал, так и не догадался :)  
Спасибо за просветление :)
 
 
 
#15
12.03.2010 14:19:51
Да-а-а...  
Я тоже, пока не ткнули пальцем, так сам и не догадался...  
Всё, оказывается, очень просто.  
И кто бы мог подумать?    
А ведь именно из-за того, что не знают такого простого решения, многие, хоть и не любят объединённых ячеек, а вынуждены их применять.
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#16
12.03.2010 19:12:19
Для объединённых ячеек.  
Год назад задавал этот вопрос, хороший человек скинул макрос - большое ему СПАСИБО.  
См. файл (макрос оригинал)
 
 
 
#17
13.03.2010 21:19:29
ЛЮДИИИИ- как сказать экселю что если в ячейке 199 символов, то высота должна быть 40, а если 87 символов то 21.  
нуженименно макрос - автоподбор высоты, автоперенос по словам - не подходят
 
 
 
#18
13.03.2010 21:21:56
А если 102 символа? Вы условия более конкретно ставьте. Макросу нужно "чиста канкректна".
 
 
 
#19
13.03.2010 21:30:16
{quote}{login=тухачевский}{date=12.03.2010 01:04}{thema=}{post}форматировать по горизонтали по центру выделения (т е выделяете ячейки, которые как бы объединяются) и галочки переноса{/post}{/quote}Можно было Ctrl+1 ткнуть, там всё видно (вкладка "Выравнивание").  
Тока если в соседней ячейке хотя бы один знак поставить, то олл мэджик ис зе энд...
 
 
 
#20
13.03.2010 21:37:55
{quote}{login=Юрий М}{date=13.03.2010 09:21}{thema=}{post}А если 102 символа? Вы условия более конкретно ставьте. Макросу нужно "чиста канкректна".{/post}{/quote}  
-Ширина стобца A всегада одинакова = 830 пикселей  
-высота строк зависит от количества символов в результате формулы в ячейке Ах (где х - номер строки)  
-если в результате А1 число символов >0 то высота этой строки = 20 пикселей, если число символов > 80 то высота = 40, если символов бельше 160 то 60 и т.д.  
__________________  
-надо прописать так 250 строк :( (или для всего листа(колонки А))  
-разрыв слова делать не надо
 
 
 
#21
13.03.2010 21:44:09
{quote}{login=}{date=13.03.2010 09:37}{thema=Re: }{post}{quote}{login=Юрий М}{date=13.03.2010 09:21}{thema=}{post}А если 102 символа? Вы условия более конкретно ставьте. Макросу нужно "чиста канкректна".{/post}{/quote}  
-Ширина стобца A всегада одинакова = 830 пикселей  
-высота строк зависит от количества символов в результате формулы в ячейке Ах (где х - номер строки)  
-если в результате А1 число символов >0 то высота этой строки = 20 пикселей, если число символов > 80 то высота = 40, если символов бельше 160 то 60 и т.д.  
__________________  
-надо прописать так 250 строк :( (или для всего листа(колонки А))  
-разрыв слова делать не надо{/post}{/quote}  
 
забыл авторизоваться
 
 
 
#22
13.03.2010 21:49:33
Попробуйте так. Вставьте код в модуль листа.  
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Not Intersect(Target, Range("A:A")) Is Nothing Then  
       If Len(Target) > 1 And Len(Target) <= 80 Then  
           Target.RowHeight = 20  
       ElseIf Len(Target) > 80 And Len(Target) <= 160 Then  
           Target.RowHeight = 40  
       ElseIf Len(Target) > 160 Then  
           Target.RowHeight = 60  
       End If  
   End If  
End Sub
 
 
 
#23
13.03.2010 21:56:48
{quote}{login=Юрий М}{date=13.03.2010 09:49}{thema=}{post}Попробуйте так. Вставьте код в модуль листа.  
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Not Intersect(Target, Range("A:A")) Is Nothing Then  
       If Len(Target) > 1 And Len(Target) <= 80 Then  
           Target.RowHeight = 20  
       ElseIf Len(Target) > 80 And Len(Target) <= 160 Then  
           Target.RowHeight = 40  
       ElseIf Len(Target) > 160 Then  
           Target.RowHeight = 60  
       End If  
   End If  
End Sub{/post}{/quote}  
чето ошибка какаято выскакиевае- непойму почему
 
 
 
#24
13.03.2010 22:05:50
И чо за ошибка?
 
 
 
#25
13.03.2010 22:12:15
{quote}{login=Юрий М}{date=13.03.2010 10:05}{thema=}{post}И чо за ошибка?{/post}{/quote}  
выделяетпервую строку 424
 
 
 
#26
13.03.2010 22:13:36
{quote}{login=(0_o)}{date=13.03.2010 10:12}{thema=Re: }{post}{quote}{login=Юрий М}{date=13.03.2010 10:05}{thema=}{post}И чо за ошибка?{/post}{/quote}  
выделяетпервую строку 424{/post}{/quote}  
ошибка424
 
 
 
#27
13.03.2010 22:21:15
У меня работает без каких-либо ошибок.
 
 
 
#28
14.03.2010 20:50:53
{quote}{login=Юрий М}{date=13.03.2010 10:21}{thema=}{post}У меня работает без каких-либо ошибок.{/post}{/quote}  
 
Этот макрос работает только в той ячейке в которую вводиш текст, возможно ли написать макрос, чтобы при активации листа просматрелись результаты всех строк (1-250) столбеца А , и выполнилось то самоеусловие?
 
 
 
#29
14.03.2010 20:54:58
Т.е. Вам нужно обработать уже готовые данные?
 
 
 
#30
14.03.2010 20:56:43
{quote}{login=Юрий М}{date=14.03.2010 08:54}{thema=}{post}Т.е. Вам нужно обработать уже готовые данные?{/post}{/quote}  
ДА, в ячейках формулы (отбражается результат)
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх