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

Вход

Регистрация

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

 

= Мир MS Excel/распределение текста по ширине ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » распределение текста по ширине ячейки (Формулы/Formulas)
распределение текста по ширине ячейки
Serjik113 Дата: Суббота, 22.11.2014, 23:39 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, друзья.
Очень нужна помощью
В ячейке имеется текст в виде 12345 на эту ячейку будет ссылка в которой текст должен будет выглядеть распределенным по ширине ячейке 1 2 3 4 5 .
В идеале количество свободного места между символами будет автоматически в зависимости от ширины ячейки.
Возможно ли это ? Спасибо большое за возможные решения.
К сообщению приложен файл: 4538077.xlsx (9.6 Kb)
 
Ответить
СообщениеДобрый день, друзья.
Очень нужна помощью
В ячейке имеется текст в виде 12345 на эту ячейку будет ссылка в которой текст должен будет выглядеть распределенным по ширине ячейке 1 2 3 4 5 .
В идеале количество свободного места между символами будет автоматически в зависимости от ширины ячейки.
Возможно ли это ? Спасибо большое за возможные решения.
Автор - Serjik113
Дата добавления - 22.11.2014 в 23:39
gling Дата: Воскресенье, 23.11.2014, 00:24 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Формат ячейки-выравнивание-по горизонтали: распределенный и галочка распределять по ширине. Только между цифрами должен быть пробел.
К сообщению приложен файл: 4352248.xlsx (9.6 Kb)

ЯД-41001506838083
 
Ответить
СообщениеФормат ячейки-выравнивание-по горизонтали: распределенный и галочка распределять по ширине. Только между цифрами должен быть пробел.
Автор - gling
Дата добавления - 23.11.2014 в 00:24
krosav4ig Дата: Воскресенье, 23.11.2014, 00:31 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
вариант с UDF
К сообщению приложен файл: 4538077.xls (36.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениевариант с UDF
Автор - krosav4ig
Дата добавления - 23.11.2014 в 00:31
Serjik113 Дата: Воскресенье, 23.11.2014, 00:34 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
К сожалению в этом то и проблема что пробела между ними нет, а ставить этот пробел достаточно трудоемко. Может быть возможно поставить пробелы с помощью какой-либо формулы ? Количество символов в ячейке всегда будет неизменно.
 
Ответить
СообщениеК сожалению в этом то и проблема что пробела между ними нет, а ставить этот пробел достаточно трудоемко. Может быть возможно поставить пробелы с помощью какой-либо формулы ? Количество символов в ячейке всегда будет неизменно.
Автор - Serjik113
Дата добавления - 23.11.2014 в 00:34
gling Дата: Воскресенье, 23.11.2014, 00:42 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Интересная UDF может пригодится, только с иностранным алфавитом работает, а с нашим нет.

ЯД-41001506838083
 
Ответить
СообщениеИнтересная UDF может пригодится, только с иностранным алфавитом работает, а с нашим нет.
Автор - gling
Дата добавления - 23.11.2014 в 00:42
Serjik113 Дата: Воскресенье, 23.11.2014, 00:58 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
krosav4ig, Спасибо большое, это то что надо, только не совсем понимаю как это работает ввожу аналогичную формулу в своей таблице появлется #ИМЯ? может быть что-то не так с форматом ячейки?
 
Ответить
Сообщениеkrosav4ig, Спасибо большое, это то что надо, только не совсем понимаю как это работает ввожу аналогичную формулу в своей таблице появлется #ИМЯ? может быть что-то не так с форматом ячейки?
Автор - Serjik113
Дата добавления - 23.11.2014 в 00:58
krosav4ig Дата: Воскресенье, 23.11.2014, 01:00 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
gling, ну тогда [vba]
Код
Public Function rr$(s$)
rr = Trim(Join(Evaluate("TRANSPOSE(MID(""" & s & """,ROW(1:" & Len(s) & "),1))"), " "))
End Function
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеgling, ну тогда [vba]
Код
Public Function rr$(s$)
rr = Trim(Join(Evaluate("TRANSPOSE(MID(""" & s & """,ROW(1:" & Len(s) & "),1))"), " "))
End Function
[/vba]
Автор - krosav4ig
Дата добавления - 23.11.2014 в 01:00
gling Дата: Воскресенье, 23.11.2014, 01:05 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Скопируйте функцию UDF к себе в файл. Нажмите Alt+F11 и скопируйте к себе в книгу модуль с UDF. Почитайте здесь

ЯД-41001506838083
 
Ответить
СообщениеСкопируйте функцию UDF к себе в файл. Нажмите Alt+F11 и скопируйте к себе в книгу модуль с UDF. Почитайте здесь
Автор - gling
Дата добавления - 23.11.2014 в 01:05
gling Дата: Воскресенье, 23.11.2014, 01:14 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
krosav4ig Спасибо!

ЯД-41001506838083
 
Ответить
Сообщениеkrosav4ig Спасибо!
Автор - gling
Дата добавления - 23.11.2014 в 01:14
Serjik113 Дата: Воскресенье, 23.11.2014, 15:43 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
krosav4ig, твой вариант подходит как нельзя лучше, но у меня возникли проблемы при воспроизведении аналогичного в моем файле. Я приложил два файла так как это получается в файле krosav4ig, и так как это получается у меня. В одном файле цифры распределяются равномерно по всей ширине ячейки(именно то что мне требуется), а в моем случае между ними просто появляется пробел. Как мне рекомендовал gling, я скопировал функцию UDF к себе в файл но не получил нужного результата. Помогите пожалуйста если это возможно. Подскажите пожалуйста в чем именно моя ошибка? Если возможно то хотелось бы чтобы перед первой и после последней цифры тоже появлялся промежуток(то есть свободное пространство распределялось бы следующим образом"_1_2_3_4_5_")
P.S. Я чайник в VBA и EXCEL познаю самостоятельно в том числе с огромной помощью этого сайта, поэтому прошу не серчайте на меня.

Спасибо.
К сообщению приложен файл: UDF.xls (35.0 Kb) · 5180952.xlsm (15.2 Kb)
 
Ответить
Сообщениеkrosav4ig, твой вариант подходит как нельзя лучше, но у меня возникли проблемы при воспроизведении аналогичного в моем файле. Я приложил два файла так как это получается в файле krosav4ig, и так как это получается у меня. В одном файле цифры распределяются равномерно по всей ширине ячейки(именно то что мне требуется), а в моем случае между ними просто появляется пробел. Как мне рекомендовал gling, я скопировал функцию UDF к себе в файл но не получил нужного результата. Помогите пожалуйста если это возможно. Подскажите пожалуйста в чем именно моя ошибка? Если возможно то хотелось бы чтобы перед первой и после последней цифры тоже появлялся промежуток(то есть свободное пространство распределялось бы следующим образом"_1_2_3_4_5_")
P.S. Я чайник в VBA и EXCEL познаю самостоятельно в том числе с огромной помощью этого сайта, поэтому прошу не серчайте на меня.

Спасибо.
Автор - Serjik113
Дата добавления - 23.11.2014 в 15:43
Pelena Дата: Воскресенье, 23.11.2014, 18:18 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Вы забыли установить формат ячейки -- Выравнивание по горизонтали -- Распределенный

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВы забыли установить формат ячейки -- Выравнивание по горизонтали -- Распределенный
Автор - Pelena
Дата добавления - 23.11.2014 в 18:18
Serjik113 Дата: Воскресенье, 23.11.2014, 18:24 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Огромное спасибо. Теперь все работает.
 
Ответить
СообщениеPelena, Огромное спасибо. Теперь все работает.
Автор - Serjik113
Дата добавления - 23.11.2014 в 18:24
Nic70y Дата: Воскресенье, 23.11.2014, 20:30 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 8761
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Код
=ЛЕВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;0;"0 ");1;"1 ");2;"2 ");3;"3 ");4;"4 ");5;"5 ");6;"6 ");7;"7 ");8;"8 ");9;"9 ");ДЛСТР(B2)*2-1)
для разнообразия

ЮMoney 41001841029809
 
Ответить
Сообщение
Код
=ЛЕВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;0;"0 ");1;"1 ");2;"2 ");3;"3 ");4;"4 ");5;"5 ");6;"6 ");7;"7 ");8;"8 ");9;"9 ");ДЛСТР(B2)*2-1)
для разнообразия
Автор - Nic70y
Дата добавления - 23.11.2014 в 20:30
krosav4ig Дата: Воскресенье, 23.11.2014, 21:58 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Serjik113, чтобы
Цитата Serjik113, 23.11.2014 в 15:43, в сообщении № 10
свободное пространство распределялось бы следующим образом"_1_2_3_4_5_")

в коде [vba]
Код
Trim(Join(Split(StrConv(s, vbUnicode), Chr(0)), " "))
[/vba] замените на [vba]
Код
" " & Join(Split(StrConv(s, vbUnicode), Chr(0)), " ") & chr(160)
[/vba], а еще лучше на [vba]
Код
" " & Join(Evaluate("TRANSPOSE(MID(""" & s & """,ROW(1:" & Len(s) & "),1))"), " ") & " " & chr(160)
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 23.11.2014, 22:02
 
Ответить
СообщениеSerjik113, чтобы
Цитата Serjik113, 23.11.2014 в 15:43, в сообщении № 10
свободное пространство распределялось бы следующим образом"_1_2_3_4_5_")

в коде [vba]
Код
Trim(Join(Split(StrConv(s, vbUnicode), Chr(0)), " "))
[/vba] замените на [vba]
Код
" " & Join(Split(StrConv(s, vbUnicode), Chr(0)), " ") & chr(160)
[/vba], а еще лучше на [vba]
Код
" " & Join(Evaluate("TRANSPOSE(MID(""" & s & """,ROW(1:" & Len(s) & "),1))"), " ") & " " & chr(160)
[/vba]
Автор - krosav4ig
Дата добавления - 23.11.2014 в 21:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » распределение текста по ширине ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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