Макрос как вставить символ в excel

 

Neurosurgeon

Пользователь

Сообщений: 44
Регистрация: 29.02.2016

#1

10.06.2022 13:53:57

Здравствуйте. Подскажите, пожалуйста, как вставить символ » ≥ » в ячейку Excel в текстовом виде. VBA категорически отказывается понимать мой код.

Код
Sub Case1 ()
cells(1,1).value = "Число " & Chr(63) & "трём"
End Sub

‘Присвоить ячейке значение типа String: «Число ≥ трём»

 

New

Пользователь

Сообщений: 4582
Регистрация: 06.01.2013

#2

10.06.2022 14:10:38

Код
Cells(1, 1).Value = "Пять " & ChrW(&H2265) & " трёх"

Изменено: New10.06.2022 14:12:32

 

Neurosurgeon

Пользователь

Сообщений: 44
Регистрация: 29.02.2016

#3

10.06.2022 14:21:11

Цитата
написал:

Код
    [URL=#]?[/URL]       1      Cells(1, 1).Value =   "Пять "   & ChrW(&H2265) &   " трёх"   

 

Спасибо. Всё получилось.
Ещё вопрос.
ChrW — это для символов Юникод. Будет ли работать на операционной системе для Apple?
Где и как мне посмотреть такие коды для других символов?  

 

Где посмотреть, я нашёл.
Что означает «&H»?

 

New

Пользователь

Сообщений: 4582
Регистрация: 06.01.2013

Посмотреть там же — меню Вставка — Символы — Символ — Выбираете мышкой нужный символ и внизу в окне Код знака смотрите числовой код. Потом подставляете его в ChrW(&H вашкод). См. фото. Будет ли работать на Apple — я не знаю

Изменено: New10.06.2022 14:32:16

 

sokol92

Пользователь

Сообщений: 4445
Регистрация: 10.09.2017

#6

10.06.2022 14:35:10

Для того, чтобы узнать код символа в Excel, вставьте символ в ячейку и воспользуйтесь функцией рабочего листа UNICODE.
Ваш код может быть таким:

Код
Sub Case1()
Cells(1, 1).Value = "Число " & ChrW(8805) & "трём"
End Sub

Работать будет на системах Windows c кодовой страницей по умолчанию Windows-1251.
Для OC фирмы Apple есть отдельная ветка форума.

Изменено: sokol9210.06.2022 14:41:00

Владимир

  • Добавить значение в начало или конец ячеек формулой
  • Добавить символ в конце каждой ячейки
  • Как добавить символ в конце и начале ячеек столбца
  • Добавить символы в начале каждой ячейки
  • Добавить слово в каждую ячейку столбца
  • Добавить символ к каждому слову

Периодически офисным специалистам, работающим с большими массивами данных, требуется такая операция, как добавление определенного текста во все ячейки столбца – в конце или начале каждой ячейки.

Добавить значение в начало или конец ячеек формулой

Можно решить задачу формулой “СЦЕПИТЬ” или простой конкатенацией через амперсанд (символ “&”). Но на это нужно много времени, т.к. нужно

  • добавить дополнительный столбец рядом с исходным
  • ввести формулу с функцией “СЦЕПИТЬ” или формулу с амперсандом в первую ячейку – здесь кому что больше нравится. =СЦЕПИТЬ(A1;” слово”) или A1&” слово”.
  • протянуть формулу до конца нового столбца, убедившись, что она затронула весь диапазон
  • заменить в нем формулы на значения
  • скопировать данные из нового столбца в первый
  • удалить новый столбец

Ниже пример с добавлением одного символа, в данном случае – знака вопроса. Вместо него можно вписать внутри кавычек любое значение.

формулы добавления символа к значению ячейки

Могут возникнуть сложности с добавлением кавычек (“) – поскольку формулы текстовые, аргумент указывается в кавычках, и во избежание ошибок одинарные кавычки обозначаются двойными, итого получается 4 знака подряд:

=""""&A1&"""" 

“заключит” значение ячейки A1 в кавычки.

Если данную операцию приходится производить часто, такой процесс порядком поднадоест. Однажды надоел и автору надстройки для Excel !SEMTools, поэтому процесс был автоматизирован. Ниже перечислены несколько примеров, как добавить текст в каждую ячейку в Excel с ее помощью.

Добавить символ в конце каждой ячейки

Выделяем диапазон ячеек, жмем макрос, вводим необходимый символ и жмем ОК. Так просто. Данные изменяются в том же столбце.

Вставляем вопросительный знак в конце каждой ячейки столбца

Как добавить символ в конце и начале ячеек столбца

Допустим, у нас есть названия ООО, но они без кавычек и без “ООО”.
Ниже пример, как ускорить процесс.
1. Добавления кавычек с обеих сторон ячейки – чтобы не производить две операции.

Добавить символы в начале каждой ячейки

2. Теперь добавим символы “ООО ” в начале каждой ячейки, чтобы завершить задачу.

Добавление символов в начале каждой ячейки выделенного столбца

Добавить слово в каждую ячейку столбца

Допустим, нужно добавить слово “выплатить” в начале каждой ячейки с ФИО определенного человека. Если исходные данные в именительном падеже, может быть также полезна процедура склонение по падежам.

Выделяем столбец, склоняем ФИО, и далее выбираем процедуру в меню и вводим слово в окошко, вместе с пробелом после него:

Вставляем слова в начале и конце каждой ячейки выбранных столбцов в Excel с помощью !SEMTools

Добавить символ к каждому слову

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

Когда нужно добавить символ перед или после каждого слова в ячейке, это уже является одним из вариантов изменить слова, а не ячейки. Ведь слов в ячейке может быть разное количество, а может и вовсе не быть. На этот случай у меня есть отдельная статья с формулами и функциями: добавить символ в Excel к каждому слову в ячейке.

Хотите так же быстро добавлять символы или текст в несколько ячеек одновременно?
!SEMTools существенно расширит возможности вашего Excel.

0 / 0 / 0

Регистрация: 23.11.2010

Сообщений: 5

1

23.11.2010, 17:18. Показов 14966. Ответов 7


Студворк — интернет-сервис помощи студентам

Всем добрый день!

Если кто может, помогите. Нужен макрос для Excel, который вставлял бы после каждого третьего символа ячейки знак «-» (тире) и так для всех ячеек определенного столбца (например, столбец B), но если — (тире) станет последим символом строки, то удалять его.

Пример

: в ячейке написано LGWMSQMSQLGW должна после выполнения стать LGW-MSQ-MSQ-LGW

Еще было бы супер, если бы сначала проводилась проверка кратности 3 количества символов в ячейке, и если кратности трём нет, то ячейку закрашивало в какой-нить цвет и больше с ней ничего не делалось бы.



0



0 / 0 / 0

Регистрация: 23.11.2010

Сообщений: 5

23.11.2010, 18:08

 [ТС]

2

Добавлю, что здесь я нашел похожий пример, но проблема в том, что если его подкорректировать под мою задачу, то он работает нормально только для строки определенной длины, а у меня они различные (от 6 до 24 символов).



0



vlth

14 / 14 / 2

Регистрация: 23.03.2010

Сообщений: 635

03.12.2010, 18:10

3

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Example()
Dim strTmp As String, i As Integer
With ActiveCell
    strTmp = .Text
    strTmp = Replace(strTmp, "-", "")
    If Len(strTmp) Mod 3 = 0 Then
        i = 3
        Do
            strTmp = Left(strTmp, i) & "-" & Right(strTmp, Len(strTmp) - i)
            i = i + 4
        Loop While i < Len(strTmp)
        .Value = strTmp
    Else: .Interior.ColorIndex = 6
    End If
End With
End Sub



0



0 / 0 / 0

Регистрация: 23.11.2010

Сообщений: 5

03.12.2010, 18:28

 [ТС]

4

vlth, огромное спасибо за то, что откликнулся! У меня почему-то данный макрос только в одной ячейке из выделенных выполняет свое действие =/



0



14 / 14 / 2

Регистрация: 23.03.2010

Сообщений: 635

03.12.2010, 18:40

5

У меня почему-то данный макрос только в одной ячейке из выделенных выполняет свое действие

Всё верно — так и должно быть: для обработки диапазона нужно добавить внешний цикл.
Или с его организацей тоже проблемы?



0



0 / 0 / 0

Регистрация: 23.11.2010

Сообщений: 5

03.12.2010, 18:58

 [ТС]

6

Если не трудно то напиши сразу с внешним циклом.



0



vlth

14 / 14 / 2

Регистрация: 23.03.2010

Сообщений: 635

03.12.2010, 19:44

7

Если не трудно то напиши сразу с внешним циклом.

Вопросы типа «сделайте за меня» на форумах не поощряются. Тем более, что проще этого цикла уже некуда…

Вам нужно, скажем, вызывать мою процедуру из другой, передавая ей параметр — ячейку обрабатываемого диапазона (при этом строку 3 — «With ActiveCell» нужно изменить соответствующим образом).

Цикл для обработки, например, столбца «A» должен быть приблизительно такой:

Visual Basic
1
2
3
4
Dim lngNumRow As Long, lngEndRow As Long
For lngNumRow = 1 To lngEndRow
    Example ThisWorkbook.Worksheets("Лист1").Cells(lngNumRow, 1)
Next



0



0 / 0 / 0

Регистрация: 23.11.2010

Сообщений: 5

03.12.2010, 20:05

 [ТС]

8

Спасибо вам еще раз!
Извините, если что не так.



0



Автоматически добавлять символы к набранному тексту

AVI

Дата: Понедельник, 24.10.2016, 20:46 |
Сообщение № 1

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

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

Сообщений: 523


Репутация:

17

±

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


Excel 2016

Добрый день!
Не знаю как записать макрос.
Помогите сделать: есть диапазон ячеек A2:F2 необходимо, что бы при введении любого текста в них к этому тексту добавлялась звездочка в начале текста и сразу после него. Без пробелов.
Спасибо заранее.

Сообщение отредактировал AVIПонедельник, 24.10.2016, 20:51

 

Ответить

Michael_S

Дата: Понедельник, 24.10.2016, 21:18 |
Сообщение № 2

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

Ранг: Старожил

Сообщений: 2012


Репутация:

373

±

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


Excel2016

Только макросом.

К сообщению приложен файл:

6842996.xlsm
(13.4 Kb)

 

Ответить

_Boroda_

Дата: Понедельник, 24.10.2016, 21:22 |
Сообщение № 3

Группа: Модераторы

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

Сообщений: 16618


Репутация:

6465

±

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


2003; 2007; 2010; 2013 RUS

Такой вариант макроса.
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range
    Set d_ = Intersect(Target, Range(«A2:F2»))
    If Not d_ Is Nothing Then
        Application.EnableEvents = 0
        For Each c_ In d_
            c_.Value = «*» & c_.Value & «*»
        Next c_
        Application.EnableEvents = 1
    End If
End Sub

[/vba]
[p.s.]Файл Михаила не смотрел — качать неохота[/p.s.]

Если устроит только видимость, то можно форматом (файл _2)
*@*
Или Условным форматированием


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

Michael_S

Дата: Понедельник, 24.10.2016, 21:30 |
Сообщение № 4

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

Ранг: Старожил

Сообщений: 2012


Репутация:

373

±

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


Excel2016

Файл Михаила не смотрел — качать неохота

Забыл добавить макрос в текст сообщения :( дано не был на форумах…
у меня другой:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range(«A2:F2»)) Is Nothing Then
    Target = «*» & Target & «*»
End If
Application.EnableEvents = True
End Sub

[/vba]

Сообщение отредактировал Michael_SПонедельник, 24.10.2016, 21:32

 

Ответить

AVI

Дата: Вторник, 25.10.2016, 02:11 |
Сообщение № 5

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

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

Сообщений: 523


Репутация:

17

±

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


Excel 2016

_Boroda_,

Если устроит только видимость, то можно форматом (файл _2)*@*

Даже не думал, что с этой стороны еще можно зайти! Сработало!

Прошу прощения за назойливость, а как с помощью УФ это сделать?

Спасибо за старания!

 

Ответить

_Boroda_

Дата: Вторник, 25.10.2016, 07:49 |
Сообщение № 6

Группа: Модераторы

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

Сообщений: 16618


Репутация:

6465

±

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


2003; 2007; 2010; 2013 RUS

Также, как и форматом, только формат с помощью УФ
А лучше вот так (обычного формата тоже касается
*Основной*;-*Основной*;*0*;*@*


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

AVI

Дата: Вторник, 25.10.2016, 09:57 |
Сообщение № 7

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

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

Сообщений: 523


Репутация:

17

±

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


Excel 2016

_Boroda_, спасибо, понял!

 

Ответить

Mark1976

Дата: Вторник, 25.10.2016, 22:20 |
Сообщение № 8

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

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

Сообщений: 685


Репутация:

3

±

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


Excel 2010, 2013

Автору темы- спасибо за тему. А тем кто помог огромное спасибо. Давно искал как реализовать такое написание (*тест*). Супер!

 

Ответить

Символы в формулах Excel.

​Смотрите также​​t = Replace(s,​ ​Sub tttt()​​ вставить символ #​​ Ивановна, Голубев Макар​ отдельную тему и​​Сергей​
​ правый нижний угол​135 и т.д.​121​​ лишь по 10​​ нуля и в​Скопируйте образец данных из​ грамматические ошибки. Для​ они отличаются и​– если нужно​ тексте​Разберем,​ » «, «#»,​Dim rr As​ после 5 знака​ Леонидович​ ниже​: сделать форму ввода​ ячейки — курсор​Читайте Правила форума.​
​131​ числовых знаков справой​ результате получим корректную​ следующей таблицы и​ нас важно, чтобы​
​ на что влияют​​найти именно символ, а​​. Например, нужно найти​как написать формулу в​ 1, 2, 1)​
​ Range, x&, t$​​ в строке.​​3. Соколов Роман​​vikttur​​ но это не​ изменит вид на​Новый вопрос -​112​ стороны номеров. Мы​ запись 1234567000 для​ вставьте их в​ эта статья была​ в статье «Преобразовать​ не то, что​ фамилии на «Ро».​Exce​r.Resize(, 3) =​For Each rr​Либо вместо второго,​ Викторович, Попова Алла​: Если похожая, то​
​ ко мне​​ крестик- жмем ЛКМ​​ новая тема.​​122​ добавили недостающие символы​​ поля «ID клиента»​ ячейку A1 нового​ вам полезна. Просим​ дату в текст​ он означает в​ Мы напишем в​l, используя символы​​ Split(t, «#»)​ In Range(«A1», Cells(Rows.Count,​ третьего пробела в​ Григорьевна​ формула в сообщении​
​Кладовщик​ и тянем вниз​А эта закрыта.​123​ сначала строки необходимого​ в файле базы​ листа Excel. Чтобы​ вас уделить пару​ Excel».​ формуле​ формуле «Ро*». Excel​что означают символы в​r = Replace(r,​ 1).End(xlUp)).Cells​ строке вставка определенного​и тд​
​ №8 и мой​​: Надеюсь мне кто-нибудь​​ на нужное к-во​​И файлик приложить​131​ нам количества. Так​ данных.​ отобразить результаты формул,​ секунд и сообщить,​:​​. Например, нам нужно​​ найдет фамилии –​​ формулах Excel,​​ «@», » «)​t = rr.Value​​ символа.​Необходимо в каждую​ совет о доп.​ поможет…​ строк.​ не забудьте.​
​132​ работает функция ПРАВСИМВ,​Ниже на рисунке изображено​ выделите их и​ помогла ли она​
​(двоеточие)​ найти в таблице​ Рогов, Роговцева, Романов,​т. д.​Next​
​x = InStr(t,​​Спасибо!​​ строчку после первого​ столбце поможет решить​Сергей​п.с. в формуле​​decebel2005​133​ обратно пропорционально для​ автоматическое дозаполнение недостающего​ нажмите клавишу F2,​ вам, с помощью​
​–​​ знак вопроса. То​​ т.д.​​С какого символа​End Sub​ » «)​Hugo​ ФИО вставить символ​ проблему.​
​: все делается просто​​ замените ДЛСТР(A1) в​​: Уважаемые форумчане. есть​141 и т.д.​​ предыдущей функции ЛЕВСИМВ.​​ количества символов нулями​ а затем —​ кнопок внизу страницы.​ставят между первой и​ в формуле перед​Но, звездочка, еще, означает​
​ начинается формула в​nilem​Mid(t, x +​
​: 1. Можно аналогичную​ “#”, с удалением​​Если не поможет:​​ забиваете в поисковик​​ формуле A1 это​​ некоторая проблемка (задача)​ ​Я делаю формулу:​ ​Krugger​​ в конец строки​ клавишу ВВОД. При​ Для удобства также​ последней ячейками диапазона​ знаком вопроса поставим​
​ – «Умножить». Смотрите​​ Excel?Со​: Упс, был вопрос​ 1) = Replace(t,​ формулу протянуть, ну​​ запятой:​​ значит, Вы всех​ «как сделать форму​​ ячейка где находится​ которую я самостоятельно​
​ $A$1&» «&$B$1&» «&$C1​: Привет, встала задача​ с помощью простой​ необходимости измените ширину​ приводим ссылку на​. Все ячейки, что​ тильду («~?»).​ ссылку на статью​знака равно» (=)​
​ и куда-то пропал.​​ » «, «#»,​​ а по месту​​1. Иванов Иван​ запутали и нужно​​ ввода в эксель»​ значение.​ никак не могу​ в след. ячейке​ добавить определенный символ​ формулы:​ столбцов, чтобы видеть​ оригинал (на английском​ внутри входят в​# (решетка)​ «Как написать формулу​
​. Все формулы начинают​Guest​ x + 1,​ макрос:​ Иванович# Петров Петр​ было свою тему​vikttur​
​decebel2005​ решить вот уже​ $A$1&» «&$B$1&» «&$C2​ к каждому слову​В результате каждый идентификатор​ все данные.​ языке) .​ диапазон. Например, диапазон​–​
​ в Excel» выше.​ писать, поставив, сначала,​: серия в 1столбец,​ 2, 1)​Sub tt()​ Петрович, Сидоров Николай​ создать.​: Ввод в один​: Большущее человеческое спасибо.​ третьи сутки бороздя​ и $A$1&» «&$B$3&»​ в ячейке в​ получил необходимое ему​Формула​В этой статье описаны​

excel-office.ru

СИМВОЛ (функция СИМВОЛ)

​ А1:А3. В этот​​означает цифру разряда​Если нужно установить​ в ячейке знак​ номер во 2й!остальное​rr.Value = t​Dim rr As​ Степанович​decebel2005​ столбец, формула в​ разобрался. тему можно​ по просторам всемогущего​ «&$C3. Выделяю 3​ определенном столбце. В​ количество нулей, чтобы​Описание​ синтаксис формулы и​ диапазон входят ячейки​. Подробнее об этом​ формулу поиска не​ «равно» — этот​ в 3-й​

​Next​ Range​2. Иванова Александра​​: Если вопрос мне​​ другом столбце​

Описание

​ закрывать )​ интернета​ ячейки и растягиваю.​ голову не приходит​ соответствовать правилу для​Результат​ использование функции​ А1, А2, А3.​

​ и других подстановочных​

​ по слову, а​

​ символ для Excel​

​Hugo​

​End Sub​

​For Each rr​

​ Ивановна# Голубев Макар​ — определился )​Кладовщик​Sklad​суть проблемы:​ У меня значения​ как можно это​ дальнейшего запыления поля​=СИМВОЛ(65)​СИМВОЛ​ Или, диапазон А1:В3.​ знаках, читайте в​ по символу, то​ является сигналом к​

Синтаксис

​: Да аноним, одобряем,​

​Казанский​ In [a1:a10]​

  • ​ Леонидович​​ сделал заготовочку под​: ??? Вообще что-то​: Доброго времени суток.​в каждую ячейку​ скачат через 3​ можно сделать?​

    ​ «ID клиента» при​​Отображает знак под номером​в Microsoft Excel.​ В этот диапазон​ статье «Как создать​

Пример

​ в отдельной ячейке​ действию что-то посчитать,​ делайте! :)​: Или так, работают​rr.Value = Left(rr.Value,​3. Соколов Роман​ свои параметры, благодаря​ не понятное для​ У меня похожая​ одного столбца «В»​ единицы. Если ручками​ЗЫ: В ячейках​ импорте таблицы в​

​ 65 в наборе​

​Возвращает знак с заданным​

​ входят ячейки А1,​

​ пользовательский формат в​

​ пишем это символ.​ выделить или сделать​Если серьёзно, то​

​ с выделенным диапазоном.​

​ 5) & «#»​

​ Викторович# Попова Алла​ помощи форумчан, и​ меня написали​

​ ситуация.​

support.office.com

Пример формулы для добавления символов в строке ячейки Excel

​ (а их 40​ меняю значение ячеек​ может быть по​ базу данных.​ знаков компьютера.​ кодом. Функция СИМВОЛ​ А2, А3, В1,​ Excel» здесь.​ А в формуле​ другие действия. Если​ можно на RegExp​> вставить символ​ & Right(rr.Value, Len(rr.Value)​ Григорьевна​ использую​vikttur​Вот такой столбец​ 000) после пятого​ С и уже​

Автоматическое добавление количества символов в ячейке Excel

​ несколько слов​​A​ позволяет преобразовать числовые​ В2, В3.​<>​ указываем не символ,​ в ячейке написан​ сделать, например такую​ # после 5​ — 5)​В работе тысячи​vikttur​: … внесены Ваши​ мне нужен:​ знака нужно вставить​ выделяю 6 ячеек,​Заранее спасибо за​Формула, которая изображена выше​=СИМВОЛ(33)​ коды знаков, которые​О том какие​

​(знаки меньше и больше)​ а адрес этой​ текст, число, т.д.,​ UDF использовать (автора​ знака в строке​Next​

ЛЕВСИМВ.

​ и тысячи строк,​: Нет, Кладовщику вопрос.​ коды. В столбце​21-6329-689421-3597-810821-3597-811921-3597-8130мне нужно что​ тире «-» (вот​ то результат остается​ помощь!​ на рисунке сначала​

​Отображает знак под номером​

​ получены из файлов​ символы и с​– означают в​ отдельной ячейки с​ без символа «равно»,​ не записал, извиняйте):​Sub Mishgun1()​End Sub​ вручную естественно нет​ Не заметил, что​ С вписана формула,​ бы «-» проставлялось​

​ как выглядет 454587а253,​ такой же. Может​_Boroda_​ добавляет к значению​ 33 в наборе​ с других компьютеров,​ какой целью можно​ формуле «​ символом. В формуле​

​ то, это просто​Function FindDigits(ByVal txt$,​Selection = Evaluate(«INDEX(LEFT(«​Это если в​ смысла проставлять, замена​ ники разные.​ предложенная в этой​ после 2го и​ а нужно так​ у меня где-то​

ПРАВСИМВ.

​: Так нужно?​ ячейки A4 ряд​ знаков компьютера.​ в знаки данного​ вставить в формулы,​не равно​ напишем так «А1&»*»».​ значение ячейки, это,​ ByVal DigitsCount%) As​ & Selection.Address &​ строке одну ячейку​ не помогает, т.к.​kuklp​ теме. В столбце​ 6го знака. Как​ 45458-7а253).. есть одно​ настройки нужно поменять?​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=»+»&ПОДСТАВИТЬ(A1;» «;» +»)​

exceltable.com

Добавление символа к каждому слову (Формулы/Formulas)

​ символов из 10-ти​​!​ компьютера.​ читайте в статье​». Можно написать так.​ Т.е., пишем ячейку,​ просто, данные.​ String​ «,5)&»»#»»&MID(» & Selection.Address​
​ нужно преобразовать.​ при ней исчезает​: Это то, что​
​ В без разделителей,​ я поняла такая​

​ маленькое «Но» в​​В соседних ячейках​
​Krugger​

​ нулей и в​​Очень часто данные набранные​
​Операционная среда​ «Примеры функции «СУММЕСЛИМН»​

​ «<>100» – означает​​ в которой написан​Какие бываю формулы,​’ ищет в​ & «,6,999),)»)​Hugo​hands

​ условие про первое​​ Вам надо.ЦитатаСергей написал:​ в другом столбце​

​ вставка возможна автоматически,​​ некоторых ячейках меньше​​ пытаюсь сделать такую​​: Бродяга, да!​ результате получаем новый​

​ в электронных таблицах​​Таблица знаков​​ в Excel» тут.​​ не равно 100.​ символ и указываем​

​ как и где​​ строке txt$ подстроку​End Sub​
​: C пробелами такая​ ФИО.​визуально изменить форматом​ получаете данные в​ но к сожалению​
​ 5 букв (цифр).​ нумерацию: 1 1​Это макрос или​
​ идентификатор. Каждый из​
​ Excel используются для​
​Macintosh​
​Если кнопки какого-то​
​ Или – «<>яблоко»​
​ символ (например, *).​
​ их применять, читайте​
​ цифр длиной DigitsCount%​
​> вместо второго,​
​ заготовка, обрабатывает выделенную​
​Подскажите решение вопроса​ ячейки «00-0000-0000″​ нужном виде.​ знания не позволяют​ те готовые решения​ 1 2 2​ стандартная функция?​ них теперь в​ заполнения файлов баз​Набор знаков Macintosh​ символа нет на​ – будет искать​? (знак вопроса)​ в статье «Формула​Dim RegExp As​ третьего пробела в​ ячейку:​
​ с формулами, макросами.​tsv1981​Заменить формулы в​ сделать самостоятельно, поэтому​ которые видел в​ 2 3 3​Krugger​ любом случае имеет​ данных. Файлы такого​Windows​ клавиатуре, то можно​ всё, кроме яблок.​– обозначает​ в Excel».​ Object​ строке вставка определенного​

​Sub ttt()​​ Заранее спасибо!!!!​
​: Добрый день! Есть​ столбце С на​ обращаюсь за помощью.​
​ интернете из-за своей​
​ 3 4 4​
​: Я не знал,​
​ не менее 10-ти​
​ типа часто требуют​
​ANSI​
​ воспользоваться функцией Excel​
​> — больше,​
​один какой-то символ​
​Какие основные​
​Set RegExp =​
​ символа​
​Dim x&, y&,​
​Александр П.​
​ две колонки с​
​ значения и вставить​
​Сергей​ криворукости не смог​
​ 4 5 и​
​ что есть такая​ чисел.​

excelworld.ru

Автоматическая вставка символа в середину текста (макрос?)

​ соблюдения правил заполнения.​​Набор знаков ANSI был​ «Символ». Вставить символ​ например, >100 (больше​. Например, в формуле​математические знаки​ CreateObject(«VBScript.RegExp»): RegExp.Global =​Sub Mishgun2()​ z&, temp$​:cry:
​: Sonetka2005,Доброе утро​
​ большим количеством ячеек​ эти данные вместо​: как вы хотите​ прилепить (зависали макросы​ т.д. Делаю 1​ стандартная функция, ты​Далее применяется функция ЛЕВСИМВ,​ Например, чтобы определенные​ стандартный набор символов,​ по коду, т.д.​ 100).​ написали «Ст?л». Найдет​смотрите в статье​ True​Selection = Evaluate(«INDEX(SUBSTITUTE(SUBSTITUTE(«​temp = Selection.Value​=ПОДСТАВИТЬ(A1;»,»;»#»;1)А1 — ячейка​ координат в формате​ исходных данных.​ чтоб отображалось визуально​
​ и выдавали ошибки).​ 1 1 2​
​ не представляешь как​
​ которая обрезает каждое​

​ поля данных имели​​ используемых в операционных​
​ Подробнее об этом​

​< — меньше​​ – стол, стул…​ «Как написать формулу​RegExp.Pattern = «[D]»:​ & Selection.Address &​x = InStr(temp,​ в которой расположены​ (.N…. .E….). В​Кладовщик​

​ или поменялось фактически​​ прошу помощи господа​ 2 2 и​ я несказанно рад​ исходное значение до​
​ определенную длину количества​ системах Windows через​ смотрите в статье​ (​ Подробнее об этих​ в Excel» тут.​ txt$ = «​ «,»» «»,»»#»»,2),»» «»,»»#»»,2),)»)​ » «)​ данные​
​ идеале мне их​: Нет тут все​Владимир​ ))))​ так же пытаюсь​

​lFJl​​ первых 10-ти чисел​ символов. Поэтому часто​ Windows 95 и​

​ «Символ в Excel».​​$​ знаках смотрите в​» «​
​ » & RegExp.Replace(txt$,​End Sub​
​y = InStr(x​Sonetka2005​ нужно перевести в​ таки другое что-то​: =левсимв(а1;2)&»-«&пстр(а1;3;4)&»-«&правсимв(а1;4)​Большое вам человеческое​ растянуть, получается белеберда.​: Можно еще через​ от начала строки.​ техника заполнения полей​

​ Windows NT, после​​В Excel можно​(знак доллара)​ статье «Подстановочные знаки​

​(кавычки)​​ » «) &​

​Hugo​​ + 1, temp,​: Александр П., спасибо,​ десятичный формат. Или​

​ надо, т. к.​​Сергей​ спасибо.​ Увеличиваю диапазон до​ СЦЕПИТЬ​ Для этого во​ данных числовыми значениями​ чего принятый Юникода.​ сделать не просто​– означает​ в Excel» тут.​- означает​ » «​: Точно, у Replace​ » «)​ но не работает.​ путем добавления и​ такая процедура займет​: еще вариант фактически​С Уважением​

​ 9 ячеек, результат​​ShAM​ втором аргументе функции​ требует ввода дополнительных​

​ ANSI состоит из​​ график, диаграмму по​абсолютную ссылку​

​&​​текст​RegExp.Pattern = «​ ведь есть Count!​z = InStr(y​

​Я упустила, что​​ заменой символов перевести​ доп. время. Я​ поменять =ЗАМЕНИТЬ(ЗАМЕНИТЬ(A1;3;;»-«);8;;»-«)визуально изменить​

​Димон )​​ такой же. Что​:​ ЛЕВСИМВ указано число​

​ нулей, чтобы во​​ 218 знаков, многие​ данным таблицы, а​в​(амперсанд)​. Например, когда нужно​ [d]{» & DigitsCount%​Когда это всё​ + 1, temp,​ между запятыми может​
​ их сначала в​ думала упростить работу​ форматом ячейки «00-0000-0000″​V​ делаю не так?​

​lFJl​​ 10.​ всех значениях было​ из которых одинаковые​ сделать динамический график.​Excel​–​ найти какое-то слово,​ & «} «​ запомнится… :)​ » «)​ быть различное количество​ градусы, минуты, секунды.​ я вношу в​Sklad​: формула подойдет?​

​Krugger​​, Как Вы представляете​Если необходимо сделать так​ одинаковое число символов​ числовых кодов как​ При добавлении данных​. Про разные ссылки​

​сцепить символы, слова в​​ в формуле это​If RegExp.test(txt$) Then​nilem​Mid(temp, y, 1)​ данных:​

​ Подскажите пожалуйста как​​ табицу цифры, а​: Сергей, Не совсем​=ЕСЛИ(ДЛСТР(A1)​: Сори, перепутал немножко:​ это через СЦЕПИТЬ()?​ чтобы нули были​
​ не зависимо от​ форматов ASCII или​ в таблицу, они​ в формулах смотрите​ предложение​

​ слово пишем в​​ FindDigits = Trim$(RegExp.Execute(txt$)(0).Value)​: Например:​ = «#»​Иванов Петр Степанович#,​ это сделать? Файл​ так как их​

​ вас поняла, поэтому​​decebel2005​Нужно сделать так,​lFJl​

​ автоматически добавлены не​​ величины числа.​ Юникода предоставить общий​
​ все или, только,​ в статье «Относительные​

​. Например, в ячейке​​ кавычках. Excel понимает,​End Function​Sub probel2()​Mid(temp, z, 1)​ 1953 г.р., Москва,​ с некоторыми значениями​ формат всегда одинаков​ уточню свой вопрос.​: не понимаю как​ чтобы было слияние​:​ с правой стороны,​В Excel подготовка и​ доступ. https://www.techopedia.com/definition/932/ANSI-character-set​ последние (например за​ и абсолютные ссылки​

​ А1 написано «Иванов»,​​ что нужно искать​Только там есть​Dim r As​

​ = «#»​​ не работает, пенсионер,​

​ приложил.​​ Exsel подставлял бы​
​ У меня есть​ эту формулу применить​
​ в такой последовательности:​ShAM​ а с левой​ заполнение данных дополнительными​
​СИМВОЛ(число)​ последние семь дней)​ в Excel».​
​ в ячейке А2​ это слово. В​ 2 ячейки, где​
​ Range, t$, s$​
​Selection.Value = temp​ состав семьи: сын​Апострофф​ один и тот​ «квитанции» номера их​
​ полностью для всего​111​, Согласен, не правильно​ (например, так: 0001234567).​
​ нулями являются достаточно​Аргументы функции СИМВОЛ описаны​ будут автоматически отражаться​
​@​ написано Сергей». В​ кавычки можно вставить​
​ номера по 5​For Each r​End Sub​ Иванов Александр Петрович#,​: tsv1981, делайте свою​ же символ «-«​ в формате 12-3456-7891​ столбца. тобеж куда​
​121​ понял вопроса )​ Тогда следует немного​

​ простым способом в​​ ниже.​
​ в графике. Подробнее​(знак «собака» называем по-русски,​ ячейку А3 пишем​

​ несколько слов, знаки​​ знаков — это​ In Range(«A1», Cells(Rows.Count,​
​Может быть можно​ 1973 г.р, внучка​ тему с внятным​ через каждые 2​
​ (две цифры тире​ ее вставить чтобы​131​Krugger​ изменить формулу, а​ применении. Если, например,​Число​ об этом. смотрите​

​ по-английски — at​​ формулу. =A1&» «&A2​ (>, Если поставим​ дополнительная сложность…​

planetaexcel.ru

Вставка символа в определенное место строки.

​ 1).End(xlUp)).Cells​​ проще, не знаю,​ — Алиса Александровна#,​
​ названием.​
​ и 6 знаков​ четыре цифры тире​ все работало? извините​112​: Вопрос еще такого​
​ вместо функции ЛЕВСИМВ​ каждое значение в​    — обязательный аргумент. Число​ в статье «Динамические​
​ (эт) или at​

​Пояснение в формуле​​ только кавычки, то​Ну или кодом​t = r.Value​ раньше не делал…​

​ 2000 г.р.​
​tsv1981​vikttur​
​ четыре цифры) эти​ за нубство и​
​122​ плана:​ использовать функцию ПРАВСИМВ:​ поле «ID клиента»​
​ от 1 до​
​ графики в Excel».​

​ commercial)​ — ячейку А1​ это будет означать​

​ ищем положение 5​​If InStr(t, «-«)​Guest​Bema​

​: Ок​
​: Цитатаdecebel2005 написал: в​ номера нужно набирать​
​ трможение​
​132​Есть 3 столбца,​
​Как видено на рисунке​ должно иметь по​ 255, определяющее нужный​
​Примечание:​-​ сцепить (&), пробел​
​ пустое пространство, пробел,​ цифр подряд, по​
​ < 6 And​: {quote}{login=Hugo}{date=18.08.2011 11:38}{thema=}{post}C пробелами​
​: Вот чтобы не​
​Sonetka2005​

​ каждую ячейку одного​ в большом количестве.​V​

​113​​ в первом 1​ на этот раз,​ 10 чисел, то​

​ знак. Знаки выбираются​
​Мы стараемся как​преобразует число в текст​ (» «), сцепить​

​ например, пробел между​​ этому месту делаем​

​ InStr(t, «-«) >​
​ такая заготовка, обрабатывает​ упускать, нужно показывать​
​: Добрый день!​ столбца «В» (а​ И если бы​
​: 1. например значение​
​123​ слово, во втором​
​ используя символ амперсант,​ для реализации данной​ из набора знаков​ можно оперативнее обеспечивать​ Excel​
​ ячейку А2.​
​ словами. Смотрите ниже​
​ первый разрез, по​

​ 0 Then​​ выделенную ячейку:​ файл-пример.​
​В исходных данных​ их 40 000)…​ была возможность вносить​

​ в A1 формулу​
​133​ — 3, в​ мы добавили по​ задачи нужно для​
​ компьютера.​

​ вас актуальными справочными​. Формулу напишем такую.​О других способах​ описание символа функции​

​ первому пробелу дальше​
​s = t​Работает здорово!Спасибо!​Mishgun-kaz​
​ следующие значения:​

​ Вы уж определитесь…​​ только цифры, а​ вставляем в любую​
​114​ третьем — сотни.​

​ 10 нулей слева​​ каждого числа дописать​

​Примечание:​
​ материалами на вашем​ =ТЕКСТ(A7;»@»)​
​ сцепить слова и​ «СЦЕПИТЬ».​ — второй.​
​Else​
​Вот только как​: Доброго время суток,​1. Иванов Иван​ Или вручную 40000?​
​ тире»-» exsel вносил​
​ ячейку первой строки.​
​124​Нужно сделать тае,​ к исходному значению​
​ соответственное количество нулей.​
​ Excel Online поддерживает только​ языке. Эта страница​В Excel есть​
​ числа, даты, смотрите​* (звездочка​
​Юрий М​s = Replace(t,​
​ быть с большим​
​ уважаемые форумчане!​

​ Иванович, Петров Петр​​Кладовщик​ бы автоматически, это​

​2. становимся на​​134​ чтобы было слияние​ ячейки A4. После​

​ Например, для идентификатора​​ значения СИМВОЛ(9), СИМВОЛ(10),​ переведена автоматически, поэтому​

​ два формата -​ в статье «Функция​)​: Правильно пропал -​ » «, «@»,​

​ количеством строк ~4000​Задача такова.​ Петрович, Сидоров Николай​
​: Нет извините вы​ бы ускорило процесс​ ячейку с формулой,​
​115​ в такой последовательности:​
​ чего обрезали каждый​ с номером 1234567​ СИМВОЛ(13), СИМВОЛ(32) и​
​ ее текст может​ формат ячейки и​ «СЦЕПИТЬ» в Excel».​– обозначает​ не по теме​
​ 1, 1, 1)​nilem​В каждую строку​
​ Степанович​ не поняли, я​
​ и свело бы​

​ наводим курсор на​125​111​ идентификатор оставляя только​ нужно дописать три​

​ выше.​ содержать неточности и​ данных. Смотрите, чем​~ (тильда)​любое количество символов в​ был вопрос.​End If​

​: Например:​​ на листе нужно​2. Иванова Александра​ не стала создавать​

planetaexcel.ru

​ на минимум ошибки.​

Понравилась статья? Поделить с друзьями:
  • Макрос как в excel поиск файл
  • Макрос копирования ячейки на листы в excel
  • Макрос к фигуре excel
  • Макрос копирования строки на все листы в excel
  • Макрос интерполяция для excel