Символ начало строки excel vba

удалить из строки знак » и знак =

(http://www.cyberforum.ru/vba/thread638743.html)

Вариант1

strW= (="КОРОТЕЕВ ДМИТРИЙ ВЛАДИМИРОВИЧ")
strB=Replace(Replace(strW, Chr(61), ""), Chr(34), "")

Вариант

Можно еще через байтовый массив:

Sub n()
Dim Mass() As Byte, n As Long, Zam As String, TXT As String
TXT = "=""КОРОТЕЕВ ДМИТРИЙ ВЛАДИМИРОВИЧ"
Mass = StrConv(TXT, vbFromUnicode)
For n = 0 To UBound(Mass)
    If Mass(n) <> 34 And Mass(n) <> 61 Then Zam = Zam + Chr$(Mass(n))
Next
MsgBox Zam
End Sub

Вариант

Или фильтрацию мидом:

Sub nn()
Dim n As Long, TXT As String, L As String, Zam As String
TXT = "=""КОРОТЕЕВ ДМИТРИЙ ВЛАДИМИРОВИЧ"
For n = 1 To Len(TXT)
    L = Mid$(TXT, n, 1)
    If L <> """" And L <> "=" Then Zam = Zam + L
Next
MsgBox Zam
End Sub

Строку 6 можно заменить лайкой:
Код Visual Basic
1
If L Like «[!»»=]» Then Zam = Zam + L

Вариант

Еще через поиск позиции и рекурсию:

Sub test()
Dim n As Long, txt As String
txt = "=""КОРОТЕЕВ ДМИТРИЙ ВЛАДИМИРОВИЧ"
txt = Change(txt, "=")
txt = Change(txt, """")
MsgBox txt
End Sub

Function Change(txt As String, What As String, Optional Pos = 1)
Dim n As Long
If Pos <> 0 Then
    n = InStr(Pos, txt, What)
    Change = Mid$(txt, Pos, IIf(n - Pos < 0, Len(txt), n - Pos)) + Change(txt, What, IIf(n = 0, 0, n + 1))
End If
End Function

Еще можно через регулярные выражения, но я их не знаю.

Вариант

Через поиск справа налево и рекурсию:

1
2
3
4
5
6
7
8

Function Change(txt As String, What As String, Optional Pos As Long)
Dim n As Long
If Pos = 0 Then Pos = Len(txt)
If Pos <> -1 Then
    n = InStrRev(txt, What, Pos)
    Change = Change(txt, What, IIf(n = 1, -1, n - 1)) + Mid$(txt, n + 1, Pos - n)
End If
End Function

Вариант

А ещё есть Split и Join

strb = Join(Split(Join(Split(strW, "="), ""), """"), "")

Не по теме:Но это для садистов

В верхний и в нижний регистр

With ActiveDocument.Range
'верхних регистр
    .Text = Ucase(.Text)
'нижний регистр
    .Text = Lcase(.Text)
End With

или StrConv() — преобразовать строку (в Unicode и обратно, в верхний и нижний регистр, сделать первую букву слов заглавной и т.п.) — см. ниже

Операции со строками

Для данных типа String существует только одна операция – конкатенация (объединение). Например, результатом операции конкатенации трех строковых значений «Петр» & » » & «Иванович» будет строка «Петр Иванович». Возможно также использование другого оператора для операции конкатенации, например: «десяти» + «тысячник». Разница между этими выражениями состоит в том, что в первом случае операндами могут быть значения любого типа (они просто будут преобразовываться в строковые), а во втором – оба операнда должны иметь тип String. Для работы со строками существует большое количество функций (таблица. Функции работы со строками).

Таблица «Функции работы со строками»

Для сравнения строковых значений можно использовать обычные операторы сравнения числовых значений, так как при сравнении символов сравниваются их двоичные коды. Для сравнения строковых значений также применяется оператор Like, который позволяет обнаруживать неточное совпадение, например выражение «Входной сигнал» Like «Вход*» будет иметь значение True, так как сравниваемая строка начинается со слова «Вход». Символ звездочка (*) в строке заменяет произвольное число символов. Другие символы, которые обрабатываются оператором Like в сравниваемой строке:

• ? – любой символ (один);
• #– одна цифра (0–9);
• [<список>] – символ, совпадающий с одним из символов списка;
• [!<список>] – символ, не совпадающий ни с одним из символов списка.

Следующие три функции позволяют работать с массивом строк

Split (<строка> [, <разделитель>]) – преобразует строку в массив подстрок. По умолчанию в качестве разделителя используется пробел. Данную функцию удобно использовать для разбиения предложения на слова. Однако можно указать в этой функции любой другой разделитель. Например, Split(3, «Этo тестовое предложение») возвращает массив из трех строковых значений: «Это», «тестовое», «предложение». Join (<массивСтрок> [, <разделитель>]) – преобразует массив строк в одну строку с указанным разделителем. Filter(<массивСтрок>, <строкаПоиск>[, <включение>] [, <сравнение>]) – просматривает массив строковых значений и ищет в нем все подстроки, совпадающие с заданной строкой. Эта функция имеет четыре аргумента: <строкаПоиск> – искомая строка; <включение> – параметр (булевское значение), который указывает, будут ли возвращаемые строки включать искомую подстроку или, наоборот, возвращаться будут только те строки массива, которые не содержат искомой строки в качестве подстроки; <сравнение> – параметр, определяющий метод сравнения строк. Еще три функции обеспечивают преобразование строк: LCase(<строка>) – преобразует все символы строки к нижнему регистру, например функция LCase(«ПОЧTA») возвращает строку «почта»; UCase(<строка>) – преобразует все символы строки к верхнему регистру; StrConv(<строка>, <преобразование>) – выполняет несколько типов преобразований строки в зависимости от второго параметра. Этот параметр описывается встроенными константами, например функция StrConv(«poccия», VbProperCase) возвращает значение «Россия».

И последние две функции генерируют строки символов

Space(<число>) – создает строку, состоящую из указанного числа пробелов; String(<число>, <символ>) – создает строку, состоящую из указанного в первом аргументе числа символов. Сам символ указывается во втором аргументе.

Пример

Создать программу, работающую со строковыми переменными. Для этого создать форму, в метки которой выходят следующие сообщения: 1 метка: сообщается длина строки, введенной в первое текстовое поле (1 строка); 2 метка: преобразует все символы третьего текстового поля (3 строка) в заглавные буквы; 3 метка: выводит вместе содержание первого и второго текстовых полей (1 и 2 строки).

Технология выполнения

• Откройте приложение Word, сохраните документ и перейдите в редактор VBA.
• Создайте форму аналогично приведенному рисунку.
• Пропишите обработчик события кнопки ОК.
• Откомпилируйте программу.
• Запустите форму на выполнение.

Форма примера в режиме конструктора и в рабочем состоянии

Private Sub CommandButton1_Click() Dim a As String Dim b As String Dim c As String Dim k As String Dim d As String Dim n As Integer a=TextBox1.Text n=Len(a) Label7.Caption=«длина первой строки равна» & n & « символам» c=TextBox3.Text k=Ucase(с) Label8.Caption=k b=TextBox2.Text d=a + » » + b Label9.Caption=d End Sub

Задача

Нужно, что бы в экселе в ячейке А1 выполнялся поиск слов, записанных через запятую в столбец А2, а результат, и найденные слова, с числом их повторений (если такое возможно) в искомом тексте, записались в другую, третью, ячейку. (ещё лучше бы было, если б они выделялись (ну или подчеркивались) каким ни будь образом в первой ячейке…что бы их сразу видно было Вот так загоняешь в массив слова:

1
2
3
4
5
6

Dim m() As String
If InStr(1, Cells(1, 2).Value, ",") > 0 Then
    m = Split(Replace(Cells(1, 2).Value, " ", ""), ",")
Else
    ReDim m(0): m(0) = Trim(Cells(1, 2).Value)
End If

А потом в цикле по всем словам ищешь(опять же в цикле. во вложенном) Добавлено через 23 минуты

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

Option Compare Text
Option Explicit
Sub QWERT()
Dim R, N, K
Dim m() As String
If InStr(1, Cells(1, 2).Value, ",") > 0 Then
    m = Split(Replace(Cells(1, 2).Value, " ", ""), ",")
Else
    ReDim m(0): m(0) = Trim(Cells(1, 2).Value)
End If

For R = 0 To UBound(m) 
N = 1
    If InStr(1, Cells(1, 1).Value, m(R)) > 0 Then
    K = InStr(N, Cells(1, 1).Value, m(R))
        Do
            ПОКРАСИТЬ K, Len(m(R))
            N = K + Len(m(R))
            K = InStr(N, Cells(1, 1).Value, m(R))
        Loop While K > 0
    End If
Next R
End Sub
Sub ПОКРАСИТЬ(ST, LN)
With Cells(1, 1).Characters(Start:=ST, Length:=LN).Font
.Color = RGB(0, 0, 255)
.Bold = True
End With
End Sub

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

1
2
3
4
5
6
7
8
9
10
11

Sub ПОКРАСИТЬ(ST, LN)
 LN = LN - 1
Do
    LN = LN + 1
Loop While VBA.Mid(Cells(1, 1).Value, ST + LN, 1) <> " "

With Cells(1, 1).Characters(Start:=ST, Length:=LN).Font
.Color = RGB(0, 0, 255)
.Bold = True
End With
End Sub

Можно сделать что бы искало и не с начала слова, а по части слова. —  добавить ещё один цикл Do-Loop. Только смещать начало(ST) влево до пробела (http://www.cyberforum.ru/vba/thread567588.html)

How to: Match a String against a Pattern (Visual Basic)

Функция InStr

Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' String to search in. SearchChar = "P" ' Search for "P". ' A textual comparison starting at position 4. Returns 6. MyPos = Instr(4, SearchString, SearchChar, 1) ' A binary comparison starting at position 1. Returns 9. MyPos = Instr(1, SearchString, SearchChar, 0) ' Comparison is binary by default ' (last argument is omitted). MyPos = Instr(SearchString, SearchChar) ' Returns 9. MyPos = Instr(1, SearchString, "W") ' Returns 0. 

ccc

Дополнительные сведения: строковые функции (Visual Basic)

Пример: Укасе

В данном примере функция UCase используется для возврата строки в верхнем регистре.

‘ String to convert.Dim lowerCase As String = “Hello World 1234″‘ Returns “HELLO WORLD 1234”.Dim upperCase As String = UCase(lowerCase)

Источник: http://docs.microsoft.com/ru-ru/dotnet/visual-basic/language-reference/functions/string-functions

Функции для работы с текстом

Основные функции для работы с текстом в VBA Excel:

В таблице перечислены основные функции VBA Excel для работы с текстом. С полным списком всевозможных функций вы можете ознакомиться на сайте разработчика.

Источник: http://vremya-ne-zhdet.ru/vba-excel/rabota-s-tekstom/

Синтаксис

variablename = “string”

Источник: http://maxfad.ru/programmer/vba/357-rabota-so-strokami-v-vba-instr-lcase-ucase-left-right-mid-ltrim-rtrim-trim-len-replace-space-strcomp-string-strreverse.html

Краткое руководство по текстовым функциям

Источник: http://excelpedia.ru/makrosi-v-excel/funkcii-po-rabote-s-tekstom

Функция InStr

​Смотрите также​
​ Else: MsgBox Mid(ProbeString,​

​ Exit Sub End​​ названием которого является​​ на одну и​​ Right$(о, 3) С_конца_буквы_1234_О​​о = “1234567891011”​lumn)​ String Dim Sum​​ поможем​​ Type mismatch,​ String a =​ события щелчка по​ вы ребята” должно​Возвращаемое значение​Option Compare​String2​InStr([Start,]String1,String2[,Compare])​ sympos) End Select​ If nstroka =​ год работы.​

​ ту же ошибку:​

​ = Right$(о, 4)​​ Буква_1_О = Left$(о,​​Я бы написал​ As Double Dim​KuklP​что понятно, т.к.​ Text1.Text b =​ кнопке и откроет​ получиться “еынссалк вы​Функция​vbBinaryCompare​найдена внутри​InStrB([Start,]String1,String2[,Compare])​

​ End Sub​

​ Right(stroka, (ls -​Заранее очень благодарен!​ “Ошибка времени выполнения​ С_конца_буквы_12345_О = Right$(о,​

​ 1) Буква_1_О_м =​

​Позиция, в которой обнаружено​

​: Огромное спасибо =)​

​ “For i =​​ С_конца_буквы_12345678_О = Right$(о,​​ = Right$((Left$(о, 3)),​

​. давно не кодил​	​ = DirNumber Then​	​Столкнулся со задачкой,​
​Без​	​ (((​	​ данные​Я знаю как​​При преобразовании в​
​Выполняется текстовое сравнение​	​>​	​ing) служит для поиска​
​ А, В, С​	​ немного сократить.​	​alex2476​
​ 1 To ActiveDocument.Paragraphs.Count”​	​ С_конца_буквы_123456789_О =​	​ 1) Буква_4_я_О =​ просто. надо изучить​ DirColumn = cell.Column​ начал писать, но​

​Join​ ​МираРизовна​Igor_Tr​ просто перевести строку​ начале строки возвращаемого​vbDatabaseCompare​String2​ номера символа(номера байта​ активного рабочего листа​alex2476​: Знатоки подскажите пожалуйста,​ и “InsPreLast$ =​ Right$(о, 9) С_конца_буквы_12345678910_О​ Right$((Left$(о, 4)), 1)​ как правильно дебагить​ End If Next​​ что-то не идет​​вариант работает, но​: Private Sub CommandButton1_Click()​, плюс одну команду​ наоборот, но чтобы​ значения резервируется место​​2​​0​ для​ слова из соответствующих​: Спасибо уважаемый Профессор,​ как в VBA​​ VBA.Left$(S, Len(S) -​​ = Right$(о, 10)​ Буква_5_я_О = Right$((Left$(о,​​ в среде VBA​​ Directory = DirRange(1,​ пока, поскольку c​ ​ есть подводный камень​

​ Dim c() As​

Источник: http://my-excel.ru/tekst/excel-vba-rabota-so-strokami.html

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click() Dim Var As Variant Var = “Microsoft VBScript” MsgBox (“Line 1 : ” & InStr(1, Var, “s”)) MsgBox (“Line 2 : ” & InStr(7, Var, “s”)) MsgBox (“Line 3 : ” & InStr(1, Var, “f”, 1)) MsgBox (“Line 4 : ” & InStr(1, Var, “t”, 0)) MsgBox (“Line 5 : ” & InStr(1, Var, “i”)) MsgBox (“Line 6 : ” & InStr(7, Var, “i”)) MsgBox (“Line 7 : ” & InStr(Var, “VB”)) End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 6
Line 2 : 0
Line 3 : 8
Line 4 : 9
Line 5 : 2
Line 6 : 16
Line 7 : 11

Возвращает первое вхождение указанной подстроки. Поиск происходит слева направо.

InStrRev

Функция InStrRev возвращает первое вхождение одной строки в другую строку. Поиск происходит справа налево.

Источник: http://maxfad.ru/programmer/vba/357-rabota-so-strokami-v-vba-instr-lcase-ucase-left-right-mid-ltrim-rtrim-trim-len-replace-space-strcomp-string-strreverse.html

Пример: mid

В этом примере Mid функция используется для возврата указанного числа символов из строки.

‘ Creates text string.Dim testString As String = “Mid Function Demo”‘ Returns “Mid”.Dim firstWord As String = Mid(testString, 1, 3)’ Returns “Demo”.Dim lastWord As String = Mid(testString, 14, 4)’ Returns “Function Demo”.Dim midWords As String = Mid(testString, 5)

Источник: http://docs.microsoft.com/ru-ru/dotnet/visual-basic/language-reference/functions/string-functions

Ключевые слова для работы с текстом

Источник: http://vremya-ne-zhdet.ru/vba-excel/rabota-s-tekstom/

LCASE

Функция LCase возвращает строку после преобразования введенной строки в строчные буквы.

Источник: http://maxfad.ru/programmer/vba/357-rabota-so-strokami-v-vba-instr-lcase-ucase-left-right-mid-ltrim-rtrim-trim-len-replace-space-strcomp-string-strreverse.html

Left

Функция Left возвращает указанное количество символов с левой стороны данной входной строки.

Источник: http://maxfad.ru/programmer/vba/357-rabota-so-strokami-v-vba-instr-lcase-ucase-left-right-mid-ltrim-rtrim-trim-len-replace-space-strcomp-string-strreverse.html

Пример: InStr

В данном примере функция InStr используется для возврата позиции первого вхождения одной строки в другую.

‘ String to search in.Dim searchString As String = “XXpXXpXXPXXP”‘ Search for “P”.Dim searchChar As String = “P”Dim testPos As Integer’ A textual comparison starting at position 4. Returns 6.testPos = InStr(4, searchString, searchChar, CompareMethod.Text)’ A binary comparison starting at position 1. Returns 9.testPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)’ If Option Compare is not set, or set to Binary, return 9.’ If Option Compare is set to Text, returns 3.testPos = InStr(searchString, searchChar)’ Returns 0.testPos = InStr(1, searchString, “W”)

Источник: http://docs.microsoft.com/ru-ru/dotnet/visual-basic/language-reference/functions/string-functions

LTrim

Функция Ltrim удаляет пробелы с левой стороны строки.

Источник: http://maxfad.ru/programmer/vba/357-rabota-so-strokami-v-vba-instr-lcase-ucase-left-right-mid-ltrim-rtrim-trim-len-replace-space-strcomp-string-strreverse.html

См. также

• Ключевые слова
• Члены библиотеки времени выполнения Visual Basic
• Сводка по работе со строками
• Методы класса System. String

Источник: http://docs.microsoft.com/ru-ru/dotnet/visual-basic/language-reference/functions/string-functions

Len

Функция Len возвращает длину данной входной строки, включая пробелы.

Источник: http://maxfad.ru/programmer/vba/357-rabota-so-strokami-v-vba-instr-lcase-ucase-left-right-mid-ltrim-rtrim-trim-len-replace-space-strcomp-string-strreverse.html