Вопрос №2 по VBA

Defor, 487 просмотров

Есть такой код макроса
Sub TEST()
Dim myString As String
Dim myChar As Char
Dim i As Integer
Dim j As Integer
Dim j As Integer
For i = 4 To 5000
myString = Cells(i, 2).Value
For j = 0 To 500
myChar = myString.Chars(j)
If myChar = "-" Then
Cells(i, 9).Value = myString.Chars(j + 1) + myString.Chars(j + 2) + myString.Chars(j + 3) + _
myString.Chars(j + 4) + myString.Chars(j + 5) + myString.Chars(j + 6) + myString.Chars(j + 7)
End If
Next j
Next i
End Sub

VBA ругается на Char и не хочет компилировать.
Суть макроса в том, что он должен проверять каждую ячейку в столбце посимвольно. Когда находит символ "-" то в соседнюю ячейку передает 7 символов после знака тире.
Дополнительно был бы благодарен, если подскажете, как остановить цикл для j (проверки символов) после того, как 7 символов будут записаны в требующуюся ячейку.

Примечание:
Кстати, при попытке в справке выведать о типе Char ничего не нашлось.

Примечание:
В таком случае перефразирую: как мне заставить эксэль проверять все ячейки столбца, а потом посимвольно проверять каждую ячейку? Кодом пожалуйста. У меня опыт работы с VBA уже целых 4 часа.

Примечание:
вот ответ справки по поводу middle :
Keyword Not Found

Примечание:
Функция mid отлично подойдет с точки зрения уменьшения кода. Осталось решить вопрос с нахождение позиции знака тире в строке. Дожмем ребята))

Примечание:
to Andrew0
про два раза согласен, но до этого компилятор даже не добирается)
Справкой на сайте мелкософта я тоже пользовался, оттуда и потянул знания по написанию вышепредставленного макроса, но вот в VBA от эксэля 2007 Char не находится, его тупо нету.

Примечание:
Если кому-нибудь интересно, то вот правильный ответ на мой вопрос:
Dim myString As String
Dim i As Integer
Dim j As Integer
For i = 4 To 500
myString = Cells(i, 2).Value
j = InStr(Cells(i, 2).Value, "-") + 1
Cells(i, 10).Value = Mid(myString, j, 7)
Next

Спасибо за участие, но грамотного ответа я так и не увидел.

Примечание:
Я просил решить проблему) За подсказку и благодарил, но решение нашел сам.

Ответы:

Shpectator

а зачем ты его определяешь как чар, сделай его string

Andrew0

А зачем у тебя Dim j As Integer два раза объявлено это тоже ошибка компиляции.
>Кстати, при попытке в справке выведать о типе Char ничего не нашлось.
Char http://msdn.microsoft.com/ru-ru/library/7sx7t66b.aspx

Shpectator

"Спасибо за участие, но грамотного ответа я так и не увидел."
Спасибо за благодарность, моя подсказка которой вы воспользовались была не грамотной?

Вот так и помогай после этого людям :)

А грамотный ответ заключался в том что конструкция myString.Chars взята из другого диалекта языка BASIC а именно из VB.Net. Существуют и другие языки которые поддерживают эту конструкцию (например JavaScript) но только не VBA. В отличии от этих языков VBA не рассматривает переменную как объект и соответственно не поддерживает объектно-ориентированную обработку текстовых переменных. Вместо этого VBA использует текстовые функции Mid, InStr и т.д.

15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.