шрифт в Екселі - Мир MS Excel

Дата: Пятница, 06.04.2012, 11:54 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Допоможіть будь-ласка! в файлові питання

К сообщению приложен файл: 2156511.xlsx (12.1 Kb)

Jhonson

Дата: Пятница, 06.04.2012, 12:48 | Сообщение № 2

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

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

Сообщений: 514

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

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

Сомневаюсь что такое возможно, альтернативный вариант в файле:
Это можно реализовать макросом, но вместо формулы будет уже необходимое Вам значение.

К сообщению приложен файл: 2156511-2-.xlsx (12.4 Kb)

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

Сообщение отредактировал Jhonson - Пятница, 06.04.2012, 12:51

Дата: Пятница, 06.04.2012, 12:57 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Quote (Jhonson)

Это можно реализовать макросом

жаль( подожду может кто то знает. а может ету формулу можно в макрос закинуть и уже там задать для нужных ячеек нужный мне шрифт. если да то напишите как ето зделать.

Дата: Пятница, 06.04.2012, 12:58 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

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

Дата: Пятница, 06.04.2012, 12:59 | Сообщение № 5

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

Ранг: Участник клуба

Сообщений: 3213

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

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

2003

Да, Jhonson прав. Формулы не умеют форматировать текст в ячейках. А макросы не дадут "живой связи" ячеек-аргументов с результатом.

anger47, вы бы поделились задумкой: для чего это и куда должно вставляться. Может быть тут какое-то другое решение предложат?

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Пятница, 06.04.2012, 13:00

Jhonson

Дата: Пятница, 06.04.2012, 13:02 | Сообщение № 6

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

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

Сообщений: 514

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

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

Quote (Alex_ST)

А макросы не дадут "живой связи" ячеек-аргументов с результатом.

Да что это, можно повесить макрос на изменение значений в ячейках-аргументах и будет живая связь.

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

Дата: Пятница, 06.04.2012, 13:08 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Вопшем на листе "2" виделено красным цветом что мне надо зделать. там название машин и номер должно быть жырним стилем (что бы виделялось). смотрите если что можно придумать или переписать пишите. Жду

К сообщению приложен файл: 5103685.xlsm (62.2 Kb)

Дата: Пятница, 06.04.2012, 13:24 | Сообщение № 8

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

Ранг: Участник клуба

Сообщений: 3213

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

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

2003

anger47, а может, как-то примерно так
(xlsm я не понимаю biggrin

)

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

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Пятница, 06.04.2012, 13:33

Дата: Пятница, 06.04.2012, 13:25 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Quote (Alex_ST)

как-то примерно так:

ето как????

Дата: Пятница, 06.04.2012, 13:34 | Сообщение № 10

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

Ранг: Участник клуба

Сообщений: 3213

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

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

2003

Quote (anger47)

ето как????

файл никак не прицеплялся. Почему-то слишком большой был.
Пришлось переписать.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Jhonson

Дата: Пятница, 06.04.2012, 13:48 | Сообщение № 11

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

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

Сообщений: 514

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

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

В старом файле сделал, переделывать и дорабатывать пока нет времени.

К сообщению приложен файл: 2156511-2-.xlsm (17.6 Kb)

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

Сообщение отредактировал Jhonson - Пятница, 06.04.2012, 13:48

shanemac51

Дата: Пятница, 06.04.2012, 14:25 | Сообщение № 12

Группа: Проверенные

Ранг: Новичок

Сообщений: 33

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

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

Quote (anger47)

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

Дата: Пятница, 06.04.2012, 14:31 | Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Jhonson, пасибо я посмотрю макрос чуть попоже и отпишусь.
shanemac51, у меня в ворде такой есть но поскольку в день делать 5-6 отчетов на ето уходит много времени и ето уже немного надоело. поетому хочю зделать что бы было в екселе

Дата: Пятница, 06.04.2012, 15:04 | Сообщение № 14

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Alex_ST, может на пошту скинете то файл что у вас получался?

shanemac51

Дата: Пятница, 06.04.2012, 15:09 | Сообщение № 15

Группа: Проверенные

Ранг: Новичок

Сообщений: 33

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

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

Quote (anger47)

shanemac51, у меня в ворде такой есть но поскольку в день делать 5-6 отчетов на ето уходит много времени и ето уже немного надоело. поетому хочю зделать что бы было в екселе

я делаю отчеты программно, а у вас 2 столбика и 10 ячеек-----ерунда
--выделяю нужных людей в екселе
--кнопка вызова макроса
--распечатка кучки бланков

не смогла только сопоставить поля в ворде и ячейки в екселе
да и языка не понимаю

Сообщение отредактировал shanemac51 - Пятница, 06.04.2012, 15:22

Дата: Пятница, 06.04.2012, 15:24 | Сообщение № 16

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

Ранг: Участник клуба

Сообщений: 3213

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

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

2003

Quote (anger47)

может на пошту скинете то файл что у вас получался?

так я же в тот пост вложил-таки.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Дата: Пятница, 06.04.2012, 15:32 | Сообщение № 17

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Alex_ST, не увидел) не могу пока написать что виберу. вечером дома посижу подумаю. Сечас на работе и сложно одновремено много дел делать. Вечером отпишусь что выбрал.

всем

Дата: Пятница, 06.04.2012, 15:59 | Сообщение № 18

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Jhonson, скажите а можно ваш макрос переписать под ячейки, ну что б по обычному были (А1,В1,С1 и т.д.)? или он работает только в стиле ссылок R1C1??? Мне так привичней просто)) я не так давно начал читать об VBA и только учусь.

Сообщение отредактировал anger47 - Пятница, 06.04.2012, 16:01

Serge_007

Дата: Пятница, 06.04.2012, 16:33 | Сообщение № 19

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (anger47)

...он работает только в стиле ссылок R1C1?

Почему Вы так решили?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Пятница, 06.04.2012, 16:39 | Сообщение № 20

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Serge_007, Ну я так понимаю по тексту макроса. здесь нету ссылок на ячейки
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(3, 5).Value = "Автомобиль: " & Cells(3, 3).Value & " " & Cells(4, 3).Value _
& ", державний реэстрационый номер " & Cells(5, 3).Value
l1 = Len(Cells(4, 3).Value)
l2 = Len(Cells(5, 3).Value)
st1 = InStr(1, Cells(3, 5).Value, Cells(4, 3).Value)
st2 = InStr(1, Cells(3, 5).Value, Cells(5, 3).Value)

Cells(3, 5).Characters(Start:=1, Length:=st1 - 1).Font.FontStyle = "обычный"
Cells(3, 5).Characters(Start:=st1, Length:=l1).Font.FontStyle = "полужырный"
Cells(3, 5).Characters(Start:=st1 + l1 + 1, Length:=st2 - 1).Font.FontStyle = "обычный"
Cells(3, 5).Characters(Start:=st2, Length:=l2).Font.FontStyle = "полужырный"
End Sub

[/vba]

Сообщение отредактировал anger47 - Пятница, 06.04.2012, 16:47