Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вычисление количества строк текста в ячейке
 
#1
28.01.2015 14:17:06
Привет всем. Озадачился подгонкой высоты строк путем макроса. Перерыл кучу информации в интернете, к сожалению ничего путного не нашел. Макрос уже существует написанный мною. Осталось только найти, как можно вычислить количество строк текста в ячейке, которые были образованы посредством автоматического переноса.  Помогите пожалуйста!
 
 
 
#2
28.01.2015 14:24:48
как макросом не знаю но мож поможет на мысль наведет
Лень двигатель прогресса, доказано!!!
 
 
 
#3
28.01.2015 14:32:46
Сергей, но ведь у Вас принудительные переносы строк?
 
 
 
#4
28.01.2015 14:33:03
Такой вариант не подходит, так как перенос строки был выполнен вручную... Увы... Спасибо за ответ)
 
 
 
#5
28.01.2015 14:36:10
Юрий М, Menestrel', точно не обратил на слово автоматические, звиняйте
Лень двигатель прогресса, доказано!!!
 
 
 
#6
29.01.2015 09:46:58
Смотрю ответа нет... Если решения нет, кто-нибудь может сказать что это невозможно?
 
 
 
#7
29.01.2015 10:29:14
Доброе утро.
Можно попробовать воспользоваться таким методом.
Изменено: CAHO - 29.01.2015 10:30:08
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
#8
29.01.2015 10:42:52
CAHO, этот метод известен мне, так мы идем от обратного заведомо зная высоту одной строки... А у меня такая ситуация, что есть текст в скрытых ячейках и эксель автоматически выставляет слишком широкую строку. А мне нужно что бы он выставлял автоматически в зависимости от определенной ячейки... Может я вообще не тем путем пошел и есть решение проблему стандартными функциями? версия эксель 2013... CAHO, спасибо за ответ )
 
 
 
#9
29.01.2015 10:51:11
Цитата
CAHO пишет: Можно попробовать воспользоваться таким методом.
Скорее вот так...
Изменено: LVL - 29.01.2015 11:18:02
 
 
 
#10
29.01.2015 10:55:36
Цитата
Menestrel' пишет: Может я вообще не тем путем пошел и есть решение проблему стандартными функциями?
AutoFit не подойдет?
 
 
 
#11
29.01.2015 11:31:38
А Автофит работает в зависимости от одной ячейки?
Цитата
LVL пишет: Скорее вот так...
Он так неправильно считает... Строк четыре а ответ 2 пишет...
 
 
 
#12
29.01.2015 11:36:20
Файл покажите
 
 
 
#13
29.01.2015 12:55:17
Вот пример... Спасибо за ответы...
 
 
 
#14
29.01.2015 14:10:37
Тогда вам просто надо воспользоваться такой фразой
Код
Rows.EntireRow.AutoFit
Привет электрикам.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
#15
30.01.2015 06:18:36
CAHO,спасибо за ответ, но опять не получается... Может я не правильно её использовал... Посмотрите... Вот результат и код макроса...  
 
 
 
#16
30.01.2015 06:19:57
Цитата
Menestrel' пишет: и код макроса...
Код
Sub Optimization()
'
' Ìàêðîñ7 Ìàêðîñ'
    Dim i As Integer, b As Integer, f As Integer             
                For b = 1 To 60
        If Cells(61, 14) <> Cells(61, 15) Then
                For i = 2 To 60
                     If Cells(i, 2) = "" Then
                     
                                For f = i To 60
                                If Cells(i, 2) = "" Then
                                If Cells(f + 1, 2) <> "" Then
                                     Cells(i, 3) = Cells(f + 1, 3)
                                     Cells(f + 1, 3) = ""
                                     Cells(i, 5) = Cells(f + 1, 5)
                                     Cells(f + 1, 5) = ""
                                     Cells(i, 6) = Cells(f + 1, 6)
                                     Cells(f + 1, 6) = ""
                                     Cells(i, 7) = Cells(f + 1, 7)
                                     Cells(f + 1, 7) = ""
                                     Cells(i, 2) = Cells(f + 1, 2)
                                     Cells(f + 1, 2) = ""
                                End If
                                End If
                                Next f
                End If
                Next i
             End If
             Next b

                For i = 2 To 60
                    Rows(i).EntireRow.AutoFit
                Next i
             
           Cells(2, 2).Select
End Sub
 
 
 
#17
30.01.2015 08:09:27
Пример во вложении
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
#18
30.01.2015 08:42:45
В вашем примере есть кнопочка на которую нажимаешь и автофит делается по строке всей... В том числе и по столбцу (D)... А он у меня не должен быть виден я выложу конечный результат, который хочу видеть...
 
 
 
#19
30.01.2015 20:19:14
Можно обхитрить немного тогда.
Например так.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
Страницы: 1
Читают тему
Наверх