Допустим, в первом столбце имеется перечень литературных произведений:
роман "Преступление и наказание"
поэма "Евгений Онегин"
пьеса "Вишневый сад"
и т.д.
Хочу по нажатию кнопки получить первое название (без кавычек и всего лишнего) в ячейке, к примеру, B1. Написал для модуля такой код:
Левую часть содержания он отрезает, а правую (вторую кавычку) - нет. В результате чего я получаю Преступление и наказание"
Почему-то уменьшение на единицу в сочетании с Len, находящегося в составе Mid, не работает. Почему? Как мне отрезать последнюю кавычку?
роман "Преступление и наказание"
поэма "Евгений Онегин"
пьеса "Вишневый сад"
и т.д.
Хочу по нажатию кнопки получить первое название (без кавычек и всего лишнего) в ячейке, к примеру, B1. Написал для модуля такой код:
| Код |
|---|
Sub PickAName_Click()
Dim CleanName As String
Dim SourceCell As Range
Dim NameCell As Range
Set SourceCell = ActiveWorkbook.Sheets("Лист1").Cells(1, 1)
CleanName = Mid(SourceCell, InStr(SourceCell, """") + 1, Len(SourceCell) - 1)
Set NameCell = ActiveWorkbook.Sheets("Лист1").Cells(1, 2)
NameCell.Value = CleanName
Sub |
Почему-то уменьшение на единицу в сочетании с Len, находящегося в составе Mid, не работает. Почему? Как мне отрезать последнюю кавычку?
Изменено: - 11.06.2019 10:52:58
