Макрос?

[Hugo121]

Можно почти всё...
Но вот смотрите - Вы даёте задание записать в строках 3, 6, 9.
Но если увеличилось количество строк (Каких? Где? Всего их всегда одно постоянное количество) тогда сдвигать столбец - куда? На сколько? С какого места?

Хотя может быть это нужно: http://www.programmersforum.ru/showthread.php?t=189361
При открытии файла даём ячейкам имена - и потом пишем по именам.
Но зачем это всё?

[Artem_85]

Сообщение от Hugo121

Можно почти всё...
Но вот смотрите - Вы даёте задание записать в строках 3, 6, 9.
Но если увеличилось количество строк (Каких? Где? Всего их всегда одно постоянное количество) тогда сдвигать столбец - куда? На сколько? С какого места?

Хотя может быть это нужно: http://www.programmersforum.ru/showthread.php?t=189361
При открытии файла даём ячейкам имена - и потом пишем по именам.
Но зачем это всё?

Я понял что это надо знать VBA в идеале что бы написать такой макрос. Не будузаморачиваться буду подсчитывать вручную. просто хотел все автоматизировать. Отчет кривой в 1CСпасибо что объяснил все)

[Artem_85]

а как отделить текст от чисел?мне вообще из названия торговой точки надо отделить текст от чисел)

[Hugo121]

Не сложно - но нужен пример десятка таких ячеек, которые хотите делить, с результатом.

[Artem_85]

Сообщение от Hugo121

Не сложно - но нужен пример десятка таких ячеек, которые хотите делить, с результатом.

Книга1.rar
применил вот такой макрос

[/QUOTE]
Public Function ExtractNumber(S As String)
Dim i As Integer, str As String
For i = 1 To Len(S)
If InStr(1, "1234567890,", Mid(S, i, 1)) <> 0 Then str = str & Mid(S, i, 1)
Next
ExtractNumber = str
End Function
[/QUOTE]

в примере видно что получилось. Как сделать что бы выводились числа только рядом с зо знаком +

[Hugo121]

Я не силён в RegExp, но вроде так работает (критикуйте ):

Function numb(S As String)
    Dim v
    With CreateObject("vbscript.regexp")
        .Pattern = "[+]\d+"
        Set v = .Execute(S)
        If v.Count = 0 Then numb = "": Exit Function
    End With
    numb = CDbl(Right(v(0).Value, Len(v(0).Value) - 1))
End Function

[Artem_85]

Сообщение от Hugo121

Я не силён в RegExp, но вроде так работает (критикуйте ):

Function numb(S As String)
    Dim v
    With CreateObject("vbscript.regexp")
        .Pattern = "[+]\d+"
        Set v = .Execute(S)
        If v.Count = 0 Then numb = "": Exit Function
    End With
    numb = CDbl(Right(v(0).Value, Len(v(0).Value) - 1))
End Function

а у меня почему то не работает)

[Hugo121]

Не знаю - добавил в Ваш файл модуль, туда этот код, в ячейку 51-ой строки формулу типа =numb(A51) - работает...

[Artem_85]

Сообщение от Hugo121

Не знаю - добавил в Ваш файл модуль, туда этот код, в ячейку 51-ой строки формулу типа =numb(A51) - работает...

почемуже не работает у меня?((

[Artem_85]

Сообщение от Artem_85

почемуже не работает у меня?((

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