Rdg2004 Пользователь Сообщений: 335 |
Сцепляю текст вида =СЦЕПИТЬ(«Настоящий договор действует»;»A1″) Мне надо что бы вот этот А1 был жирным. А ещё иногда надо что бы только НАстоящий договор был жирным, или просто слово договор. Можно ли это сделать? МОжет там как то ставится это я хз например слово в скобки берётся. Мало ли |
{quote}{login=Паша}{date=31.03.2010 03:54}{thema=Жирный текст при сцеплении}{post}Можно ли это сделать?{/post}{/quote} |
|
vikttur Пользователь Сообщений: 47199 |
Формула не позволят форматировать. |
Rdg2004 Пользователь Сообщений: 335 |
Блииин это конец… |
Hugo Пользователь Сообщений: 23249 |
|
vikttur Пользователь Сообщений: 47199 |
Попросите макрос. Люди жалостливые, помогут |
{quote}{login=Паша}{date=31.03.2010 04:03}{thema=}{post}Блииин это конец… |
|
оч часто так делаю, когда надо 30-40 типовых договоров сделать |
|
Микки Пользователь Сообщений: 3280 |
Создайте типовой договор в ворде , создайте базу клиентов в экселе и из Ворда слиянием подключите ее к типовому договору… 5 мин работы .. а уж в ворде хоть обвыделяйтесь. |
Ну просто во первых хочется один файл с простым интерфейсом у нас люди работают в регионах и им некоторым за 60. Нужна простота а слияние… они повесятся. И плюс надо защитить текст догвоора от изменений |
|
Хотя есть вариант такой что, работник сидит отвечает на вопросике в экселе тем самым заполняет нужные поля а в конце макрос запускает нужный вордовский файл лежащий по соседству в этой папке там всё тот же макрос делает слияние и печатает например договор сразу. Так можно? |
|
Hugo Пользователь Сообщений: 23249 |
Поправочка, а то на второй смене слетало: Private Sub worksheet_calculate() |
Микки Пользователь Сообщений: 3280 |
{quote}{login=}{date=31.03.2010 05:08}{thema=}{post}Ну просто во первых хочется один файл с простым интерфейсом у нас люди работают в регионах и им некоторым за 60. Нужна простота а слияние… они повесятся. И плюс надо защитить текст догвоора от изменений{/post}{/quote} |
Rdg2004 Пользователь Сообщений: 335 |
Ок всем спасибо за то что натолкнули на мысль о ворде и слиянии. Всё сделал всё вводится здорово. Но вот пару вопросов: 1. Как сделать что бы макрос в экселе запускался автоматически при входе что надо вначале прописать? Вот макрос (если честно то я его украл из соседней темы и вроде его Автор Pavel55 и кто то ещё) Dim oWord As Word.Application ‘ объявляем переменную oWord Set oWord = CreateObject(«Word.Application») Set oWord = Nothing End Sub |
подскажите пожалуйста как сделать так чтобы при использовании функции сцепить каждая строка сцепляемых колонок после сцепления начиналась с новой строки но в одной колонке. |
|
Scooter Пользователь Сообщений: 3 |
{quote}{login=Паша}{date=01.04.2010 08:29}{thema=}{post}1. Как сделать что бы макрос в экселе запускался автоматически при входе что надо вначале прописать?{/post}{/quote} |
KuklP Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
#18 06.09.2012 11:17:07 Scooter, Вы дату того поста видели? Бедный Паша сидит и ждет 2,5 года. И тут Вы:-) Я сам — дурнее всякого примера! … |
На листе Excel после объединения двух значений ячеек с формулами вы можете обнаружить, что часть текста в объединенной ячейке формулы не будет выделена жирным шрифтом. Иногда это может раздражать, как вы можете выделить текст жирным шрифтом при объединении двух столбцов в Excel?
Полужирный текст части при объединении двух столбцов с кодом VBA
Полужирный текст части при объединении двух столбцов с кодом VBA
Например, у меня есть данные из двух столбцов, теперь я хочу объединить эти два столбца в один столбец и отформатировать первое значение жирным шрифтом, как показано на следующем снимке экрана:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: полужирный текст части при объединении двух столбцов:
Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Set xRg = xRg.Resize(xRg.Rows, 3)
On Error Resume Next
For Each xCell In xRg.Columns(3).Cells
xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
xCell.Font.Bold = False
xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
Next
End Sub
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе диапазона данных, который вы хотите объединить, и выделение жирным шрифтом, см. снимок экрана:
4, Затем нажмите OK Кнопка, и все два слова в строках были объединены вместе в ячейки рядом с диапазоном данных, и первое слово также выделено жирным шрифтом, см. снимок экрана:
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (4)
Оценок пока нет. Оцените первым!
Несомненно лучше делать «.Font.Bold=true» вместо «.FontStyle=», иначе при запуске в нерусифицированной windows работать не будет.
Я тут попробовал набросать альтернативную функцию СЦЕПИТЬ2, но оказалось что из пользовательской функции листа нельзя делать активных действий с ячейками. Тогда я попробовал все данные запихать в глобальные переменные и запланировать запуск другого макроса через секунду, но и тут засада — Application.OnTime игнорируется в процессе работы пользовательской функции листа
Т.е. выход один — самый тупой — вместо функции СЦЕПИТЬ написать обработчик события у нужного листа:
Код: Выделить всё
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Select Case Target.Address
Case "$B$1", "$C$1" 'Тут делается D1=СЦЕПИТЬ(B1;C1) и C1 жирным
[D1] = [B1] & [C1]
[D1].Characters(Len([B1]) + 1, Len([C1])).Font.bold = True
Case .... 'Аналогичных секций добавить по вкусу столько сколько надо
...........
End Select
End Sub
Функция СЦЕПИТЬ в Эксель позволяет объединить содержимое двух и более ячеек в одну общую, что делает ее одним из самых полезных и необходимых инструментов программы, которым непременно нужно овладеть для эффективной работы. Давайте посмотрим, как работать с данной функцией.
Описание и синтаксис функции СЦЕПИТЬ
Данная функция начиная с Excel 2016 сменила название на “СЦЕП”, однако, для тех, кто привык к старому наименованию (“СЦЕПИТЬ”), оператор под этим названием также доступен в программе. СЦЕП и СЦЕПИТЬ абсолютно взаимозаменяемы и выполняют одну и ту же операцию по объединению содержимого выбранных ячеек в одну общую.
Формула функций выглядит так:
=СЦЕП(текст1;текст2;...)
или =СЦЕПИТЬ(текст1;текст2;...)
Максимальное количество аргументов – 255.
Вставка и настройка функции
Как мы знаем, при объединении нескольких ячеек в одну, содержимое всех элементов за исключением самой верхней левой стирается. Чтобы этого не происходило, нужно использовать функцию СЦЕПИТЬ (СЦЕП).
- Для начала определяемся с ячейкой, в которой планируем объединить данные из других. Переходим в нее (выделяем) и щелкаем по значку “Вставить функцию” (fx).
- В открывшемся окне вставки функции выбираем категорию “Текстовые” (или “Полный алфавитный перечень”), отмечаем строку “СЦЕП” (или “СЦЕПИТЬ”) и кликаем OK.
- На экране появится окно, в котором нужно заполнить аргументы функции, в качестве которых могут быть указаны как конкретные значения, так и ссылки на ячейки. Причем последние можно указать как вручную, так и просто кликнув по нужным ячейкам в самой таблице (при это курсор должен быть установлен в поле для ввода значения напротив соответствующего аргумента). В нашем случае делаем следующее:
- находясь в поле “Текст1” щелкаем по ячейке (A2), значение которой будет стоять на первом месте в объединенной ячейке;
- кликаем по полю “Текст2”, где ставим запятую и пробел (“, “), которые будут служит разделителем между содержимыми ячеек, указанных в аргументах “Текст1” и “Текст3” (появится сразу же после того, как мы приступим к заполнению аргумента “Текст2”). Можно на свое усмотрение указывать любые символы: пробел, знаки препинания, текстовые или числовые значения и т.д.
- переходим в поле “Текст3” и кликаем по следующей ячейке, содержимое которой нужно добавить в общую ячейку (в нашем случае – это B2).
- аналогичным образом заполняем все оставшиеся аргументы, после чего жмем кнопку OK. При этом увидеть предварительный результат можно в нижней левой части окна аргументов.
- находясь в поле “Текст1” щелкаем по ячейке (A2), значение которой будет стоять на первом месте в объединенной ячейке;
- Все готово, нам удалось объединить содержимое всех выбранных ячеек в одну общую.
- Выполнять действия выше для остальных ячеек столбца не нужно. Просто наводим указатель мыши на правый нижний угол ячейки с результатом, и, после того как он сменит вид на небольшой черный плюсик, зажав левую кнопку мыши тянем его вниз до нижней строки столбца (или до строки, для которой требуется выполнить аналогичные действия).
- Таким образом, получаем заполненный столбец с новыми наименованиями, включающими данные по размеру и полу.
Аргументы функции без разделителей
Если разделители между содержимыми ячеек не нужны, в этом случае в значении каждого аргумента сразу указываем адреса требуемых элементов.
Правда, таким способом пользуются редко, так как сцепленные значения сразу будут идти друг за другом, что усложнит дальнейшую работу с ними.
Указание разделителя в отдельной ячейке
Вместо того, чтобы вручную указывать разделитель (пробел, запятая, любой другой символ, текст, число) в аргументах функции, его можно добавить в отдельную ячейку, и затем в аргументах просто ссылаться на нее.
Например, мы добавляем запятую и пробел (“, “) в ячейку B16.
В этом случае, аргументы функции нужно заполнить следующим образом.
Но здесь есть один нюанс. Чтобы при копировании формулы функции на другие ячейки не произошло нежелательного сдвига адреса ячейки с разделителем, ссылку на нее нужно сделать абсолютной. Для этого выделив адрес в поле соответствующего аргумента нажимаем кнопку F4. Напротив обозначений столбца и строки появятся символы “$”. После этого можно нажимать кнопку OK.
Визуально в ячейке результат никак не будет отличаться от полученного ранее.
Однако формула будет выглядет иначе. И если мы решим изменить разделитель (например, на точку), нам не нужно будет корректировать аргументы функции, достаточно будет просто изменить содержимое ячейки с разделителем.
Как ранее было отмечено, добавить в качестве разделителя можно любую текстовую, числовую и иную информацию, которой изначально не было в таблице.
Таким образом, функция СЦЕП (СЦЕПИТЬ) предлагает большую вариативность действий, что позволяет наилучшим образом представить объединенные данные.
Редактирование функции
Если функция уже добавлена в ячейку, но в ее аргументы требуется внести определенные правки, сделать это можно двумя способами.
Способ 1: изменения в окне аргументов
Перейти к редактированию функции можно, просто нажав на кнопку “Вставить функцию” (fx), которая находится слева от строки формул. При этом предварительно нужно выбрать ячейку, содержащую функцию.
Таким образом мы попадем в окно с аргументами функции, где можем внести требуемые изменения, после чего нажать кнопку OK.
Мы получим результат с учетом скорректированных данных.
Способ 2: ручная корректировка формулы
Альтернативный метод изменения аргументов функции – ручная корректировка формулы. Перейти в режим редактирования можно двумя по-разному:
- Выделяем ячейку с функцией, затем щелкаем по строке формул и вносим в ней изменения.
- Двойным щелчком мыши по ячейке с формулой активируем режим редактирования и корректируем формулу, непосредственно, в самой ячейке.
Независимо от выбранного метода, при ручной корректировке формул нужно быть предельно внимательным, соблюдая следующие правила:
- адреса ячеек пишутся без кавычек;
- перечисление аргументов – через знак “;”
- если в качестве аргумента используется символ или текст, наличие кавычек с двух сторон указанного значения обязательно.
Заключение
Благодаря умению пользоваться функцией СЦЕП (СЦЕПИТЬ) можно автоматизировать процесс объединения содержимого разных ячеек в одну общую, что в некоторых случаях, является единственным условием успешного выполнения поставленной задачи. Поэтому очень важно научиться правильно работать с данной функцией в программе Эксель.
Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Excel для Mac 2011 Excel Starter 2010 Еще…Меньше
Используйте функцию СЦЕПИТЬ, относящуюся к текстовым функциям, для объединения двух или нескольких текстовых строк в одну.
Важно: В Excel 2016, Excel Mobile и Excel в Интернете эта функция была заменена функцией СКАЙТ. Функция СЦЕПИТЬ пока еще доступна для обратной совместимости, однако рекомендуем использовать вместо нее функцию СЦЕП. В последующих версиях Excel функция СЦЕПИТЬ может быть недоступна.
Синтаксис: СЦЕПИТЬ(текст1;[текст2];…)
Ниже приведены примеры.
-
=СЦЕПИТЬ(«Популяция рек для «;A2;» «;A3;» составляет «;A4;» на километр.»)
-
=СЦЕПИТЬ(В2;» «;C2)
Имя аргумента |
Описание |
текст1 (обязательный) |
Первый элемент для объединения. Это может быть текстовое значение, число или ссылка на ячейку. |
текст2,… (необязательные) |
Дополнительные текстовые элементы для объединения. Можно указать до 255 элементов и до 8 192 символов. |
Примеры
Чтобы использовать эти примеры в Excel, скопируйте данные из приведенной ниже таблицы и вставьте их на новый лист в ячейку A1.
Данные |
||
вида |
Виталий |
Токарев |
речная форель |
Fourth |
Pine |
32 |
||
Формула |
Описание |
|
=СЦЕПИТЬ(«Популяция рек для «;A2;» «;A3;» составляет «;A4;» на километр.») |
Создает предложение, объединяя данные в столбце А с остальным текстом. Результат: «Популяция рек для вида речная форель составляет 32 на километр». |
|
=СЦЕПИТЬ(В2;» «;C2) |
Объединяет строку в ячейке В2, пробел и значение в ячейке С2. Результат: «Виталий Токарев». |
|
=СЦЕПИТЬ(С2;», «;В2) |
Объединяет текст в ячейке C2, строку, состоящую из запятой и пробела, и значение в ячейке B2. Результат: «Виталий Токарев». |
|
=СЦЕПИТЬ(B3;» & «;C3) |
Объединяет строку в ячейке B3, строку, состоящую из пробела, амперсанда и еще одного пробела, и значение в ячейке C3. Результат: Fourth & Pine. |
|
=B3 & » & » & C3 |
Объединяет те же элементы, что и в предыдущем примере, но с помощью оператора & (амперсанд) вместо функции СЦЕПИТЬ. Результат: Fourth & Pine. |
Распространенные неполадки
Проблема |
Описание |
Кавычки отображаются в строке результата. |
Используйте точку с запятой для разделения текстовых элементов. Например: Excel отобразит результат функции =СЦЕПИТЬ («Привет, «»мир!») как «Привет,»мир!» с лишней кавычкой, так как пропущена точка с запятой между текстовыми аргументами. Числа не нужно заключать в кавычки. |
Слова расположены впритык друг к другу. |
Если не поместить пробелы между текстовыми элементами, в строке результата они будут отображаться слитно. Добавьте пробелы в формулу с функцией СЦЕПИТЬ. Это можно сделать двумя способами.
|
Ошибка #ИМЯ? отображается вместо ожидаемого результата. |
Ошибка #ИМЯ? обычно означает, что для текстового аргумента не хватает кавычек. |
Рекомендации
Необходимые действия |
Описание |
Вместо функции СЦЕПИТЬ используйте знак & (амперсанд). |
С помощью оператора & можно объединять текстовые элементы, не прибегая к функции. Например, =A1 & B1 возвращает то же значение, что и =С CONCATENATE(A1;B1). Во многих случаях воспользоваться оператором амперсанда проще и быстрее, чем создавать строки с помощью функции СЦЕПИТЬ. См. дополнительные сведения об использовании операторов вычислений. |
Для объединения и форматирования строк используйте функцию ТЕКСТ. |
Функция ТЕКСТ преобразует числовое значение в текст и объединяет числа с текстом или символами. Предположим, что ячейка A1 содержит число 23,5. Чтобы отформатировать число как сумму в рублях, можно использовать следующую формулу: =ТЕКСТ(A1;»0,00 ₽») Результат: 23,5 ₽ |
Дополнительные сведения
-
Для объединения и форматирования строк используйте функцию ТЕКСТ.
-
Ознакомьтесь с дополнительными сведениями об использовании операторов вычислений.