Автоматический перенос текста на другую строку - Страница 6

Дата: Воскресенье, 15.07.2012, 22:43 | Сообщение № 102

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

Ранг: Участник

Сообщений: 57

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

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

видимо я тормоз. что СТРОКА(1:95) дает в моей формуле? если я меняю значения, а ничего не меняется.

Дата: Воскресенье, 15.07.2012, 23:00 | Сообщение № 103

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Вариативный ряд: {1;2;3;...;95}

ЮMoney:41001419691823 | WMR:126292472390

Дата: Понедельник, 16.07.2012, 23:35 | Сообщение № 104

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

Ранг: Участник

Сообщений: 57

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

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

Quote (aleksasha888)

есть текст в ячейке A1 и 6 ячеек B1,B2,B3,B4,B5 и B6 по которым он должен распределится по порядку, но если текст не достаточно длинный (например на 4 ячейки), то остальные 2 остаются свободными (т.е. чистыми визуально).
Помогите решить такую задачу!!!

все таки я не разобрался (опыта нет). как же ее написать?

Дата: Вторник, 17.07.2012, 00:23 | Сообщение № 105

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Посмотрите файл

К сообщению приложен файл: aleksasha888_un.xls (29.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 17.07.2012, 00:56 | Сообщение № 106

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

Ранг: Участник

Сообщений: 57

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

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

спасибо, но есть небольшая проблема.

К сообщению приложен файл: 5085794.xls (32.5 Kb)

Дата: Вторник, 17.07.2012, 00:59 | Сообщение № 107

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Удалось посмотреть файл на другом компе.
Вы текст в желтых ячейках читали?
Про участие ячейки А3?

И то что исходный текст должен быть в ячейке А1 - понятно?
А если его перемещать, то в формуле должна быть ссылка на эту ячейку, а не на А1?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 17.07.2012, 01:55 | Сообщение № 108

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

Ранг: Участник

Сообщений: 57

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

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

я полностью разобрался. загвоздка была в том что я писал формулу на сноску из другого листа вот так ($Лист!1А$1) а необходимо писать (Лист!1$A$1).
Вам огромное спасибо. я проделал большую работу благодаря помощи форума.
Я бы показал, да тут ограничения на размер файла.
Спасибо!!!

Сообщение отредактировал aleksasha888 - Вторник, 17.07.2012, 01:55

Дата: Среда, 18.07.2012, 10:30 | Сообщение № 109

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

Ранг: Прохожий

Сообщений: 5

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

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

День добрый. Попросил меня знакомый хирург сваять ему формы выписок, на просторах ничего такого нет. Вчера посидел вечерок, собрал на скорую руку. Просторы интернета вынесли на ваш форум.
Вопрос в тему - перенос со строки на строку - перечитал раздел, посмотрел примеры, но так и не понял, как это работает. Прикрепил филе, помогите пожалуйста, как перенос по строкам с подчеркиванием сделать. Заранее спасибо. Пароль защиты 12345
А также - как печатать без заливки. Сам сетевик, в макросах не очень.

К сообщению приложен файл: _3.xls (86.5 Kb)

Дата: Среда, 18.07.2012, 10:49 | Сообщение № 110

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (KPEMJIuH)

...как перенос по строкам с подчеркиванием сделать?

Думаю что в вашем случае, автоматически никак не получится. Никакой закономерности в расположении заполняемых ячеек я не нашел. Если только в каждую ячейку вручную прописать необходимую формулу

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 18.07.2012, 10:52 | Сообщение № 111

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

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

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

KPEMJIuH, А чем не устраивает нажатие клавиши Enter в конце каждой строки?

"Ничто не приносит людям столько неприятностей, как разум."

Дата: Среда, 18.07.2012, 10:57 | Сообщение № 112

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

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

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

Quote (KPEMJIuH)

А также - как печатать без заливки.

Можно просто поставить галочку Черно-белая печать в Параметрах страницы на закладке Лист. Думаю Ваша заливка с этой галочка на печать выходить не будет.

"Ничто не приносит людям столько неприятностей, как разум."

Дата: Среда, 18.07.2012, 11:00 | Сообщение № 113

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

Ранг: Участник

Сообщений: 57

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

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

я делал примерно тоже у себя для ФМС бланки. тут только методом

Quote (Serge_007)

Если только в каждую ячейку вручную прописать необходимую формулу

напиши почту я файл пришлю, а то он много весит на форуме разместить не могу.

Дата: Среда, 18.07.2012, 11:04 | Сообщение № 114

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

Ранг: Прохожий

Сообщений: 5

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

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

Хотелось бы автоматически текст переносить - там, где длинные строки - например 027 - строки 48,50,52...76 - не поднимать голову туда сюда, а сразу набрать текст в 48й строке, ткнуть Enter и раскидать по строкам 48-76.
Перескакивать то понятно, но неудобно.
KPEMJIuH@rambler.ru

Сообщение отредактировал KPEMJIuH - Среда, 18.07.2012, 11:05

Дата: Среда, 18.07.2012, 11:07 | Сообщение № 115

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

Ранг: Участник

Сообщений: 57

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

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

так это не реализовать. тут только если создать 1 лист для заполнения, а весь текст из него будет раскидываться по твоим формам.

Дата: Среда, 18.07.2012, 11:17 | Сообщение № 116

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

Ранг: Прохожий

Сообщений: 5

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

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

А как реализовать - тут в принципе то простор для воображения, ток я еще так не пробовал.
Мне бы пример какой нибудь дельный, попробую разобраться.
Получил на почту файл, понял ущербность своих знаний об Excel sad

Но за попытку помочь - спасибо.

Сообщение отредактировал KPEMJIuH - Среда, 18.07.2012, 11:24

Дата: Среда, 18.07.2012, 11:22 | Сообщение № 117

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

Ранг: Участник

Сообщений: 57

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

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

здесь реализовано следующее:
"Для заполнения" - этот лист используется для ввода всей повторяющейся информации
"Заявление РВП" - это бланк заявления о выдаче вида на жительства в котором в необходимых ячейках по формулам заполняются все необходимые сведения из предыдущего листа.
по этой же аналогии заполняются последующие листы.
Реализовано все благодаря форуму и личное спасибо: Serge_007 и ABC

Так я тоже не профи. Главное - это стремление. потихоньку помаленьку с помощью форума. Вам тут если, что помогут.

К сообщению приложен файл: 0023097.xls (1.59 Mb)

Сообщение отредактировал aleksasha888 - Среда, 18.07.2012, 11:27

Дата: Среда, 18.07.2012, 15:53 | Сообщение № 118

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

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

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

В файле вариант с макросом.
Немного не доработан, сейчас совсем нет времени. Если нравится, то будет время доделаю.

К сообщению приложен файл: 2816054.xls (51.5 Kb)

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Среда, 18.07.2012, 16:27

Дата: Среда, 18.07.2012, 16:04 | Сообщение № 119

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

Ранг: Прохожий

Сообщений: 5

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

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

Просто супер !!! То что и было нужно !!! После защиты листа все печатает там где надо !!! Спасибо !!!
Так и не понял как это работает, никаких формул макросов не нашел, не мой конек.

Если кому надо - пользуйте на здоровье - формы 027/у , 315/у и 316/у - актуально для хирургов, ортопедов поликлинической и стационарной деятельности.

Если кто посчитает возможным что то улучшить - респект вам в руки!

Всем спасибо.

К сообщению приложен файл: Forms3.xls (87.5 Kb)

Сообщение отредактировал KPEMJIuH - Среда, 18.07.2012, 16:25

Дата: Среда, 18.07.2012, 16:10 | Сообщение № 120

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

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

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

Работать будет не правильно, если между строчками больше или меньше одной строки, а так же для других бланков макрос нужно немного дорабатывать.
Файл первложил! Код макроса:
[vba]

Code

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a$, i#, nach#, konch#, ch#
On Error Resume Next
If Cells(Target.Row, 9) = 0 Then Exit Sub
Application.EnableEvents = False
a = Target.Value
If Cells(Target.Row, 9) < Len(a) Then
     nach = 1: ch = 0: i = 1
     konch = InStr(Cells(Target.Row, 9), a, " ")
     Do While ch <= 1
         Cells(Target.Row + i * 2 - 2, Target.Column).MergeArea = Mid(a, nach, konch)
         nach = nach + konch
         konch = InStr(nach + Cells(Target.Row + i * 2, 9), a & " ", " ") - nach
         If konch <= 0 Then konch = Cells(Target.Row + i * 2, 9): ch = ch + 1
         i = i + 1
     Loop
End If
Application.EnableEvents = True
End Sub

[/vba]

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Среда, 18.07.2012, 16:35