VBNet - Форум

Вопрос: Help me Добавлено: 20.02.03 10:49

Автор вопроса: hamer | ICQ: 176191034

Помогите плиз
Есть такая задачка:
Есть столбец с данными в Excel примерно такого вида
345343 Аромолампа
Обложка на документы
234567 Ластик
и т.д.
То есть числовой код перед наименованием товара не везде присутствует. Необходимо в Excel (а может и не в Excel) сделать проверку есть ли код и вслучае его присутствия его отрезать.
Я нарисовал макрос на VB но чето он не хочет у меня работать. Я уже незнаю что делать. Посмотрите может че упустил.
Private Sub CommandButton1_Click()
Sta = ot.Value
Stp = doo.Value
col_simv = sim.Value
p$ = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
For x = Sta To Stp
sp$ = Mid$(at$, 1, 6)
For i = 1 To 10
z = 1
t$ = Mid$(sp$, z + 1, 1)
If t$ = p$(i) Then
stx$ = Mid$(st$, col_simv + 1, Len(st$) - col_simv)
Range(LTrim(stolb) + LTrim(Str(x))).Value = stx$
Next i
Next x
MsgBox ("! Âñå !")
End Sub
Заранее благодарен Мах
max@stargate.orel.ru

Ответить

Ответы Всего ответов: 6

Номер ответа: 1
Автор ответа:

Агент Смит

ICQ: 147404128

Вопросов: 12
Ответов: 128

Web-сайт: www.bbsoftware.ru
Профиль | | #1

Добавлено: 20.02.03 11:16

Перебираешь построчно, смотришь Value в той колонке; потом при помощи instr смотришь позицию первого пробела; читаешь данные до него; ставишь обработчик ошибок on error goto ... ; если у тебя err.number = номеру ошибки при невозможности конвертировать в integer, то значит - то что мы считали это текст. Если нет то обкусываем этот кусок - дабы это цифры.