Я тут заметил одну вещь- раньше данные вводились вручную, теперь же автоматически по средствам формул (то есть раньше там цифры стояли 2-0 там или 1-1, а теперь формулы со ссылкой на другой лист). Вот, если вводить данные по старому (руками), то ошибок не возникает.
Поменялся тип данных на первом листе. Теперь макрос работает не совсем корректно. Вот эту часть [vba]
Я тут заметил одну вещь- раньше данные вводились вручную, теперь же автоматически по средствам формул (то есть раньше там цифры стояли 2-0 там или 1-1, а теперь формулы со ссылкой на другой лист). Вот, если вводить данные по старому (руками), то ошибок не возникает.
проблема в том,что формула вставляет пустую строку,если нет данных . то есть в ячейке содержится ="" складывать пустую строку и число vba не дает
предлагаю использовать вспомогательное средство -массив
вот такая схема,которую вам надо приделать к своему коду [vba]
Код
Sub Макрос1() Dim arr() Dim i As Long, j As Long ' берете данные из листа в массив arr arr() = IshodniySheet.Range("A1").Resize(кол-во строк на листе, кол-во столбцов на листе) ' преобразуете текст "" в нули For i = 1 To UBound(arr, 1) For j = 1 To UBound(arr, 2) If CStr(arr(i, j)) = "" Then arr(i, j) = 0 End If Next Next ' делайте расчеты в массиве arr,какие вы делали ' когда все расчеты сделаете ,вставляйте в excel End Sub
[/vba]
проблема в том,что формула вставляет пустую строку,если нет данных . то есть в ячейке содержится ="" складывать пустую строку и число vba не дает
предлагаю использовать вспомогательное средство -массив
вот такая схема,которую вам надо приделать к своему коду [vba]
Код
Sub Макрос1() Dim arr() Dim i As Long, j As Long ' берете данные из листа в массив arr arr() = IshodniySheet.Range("A1").Resize(кол-во строк на листе, кол-во столбцов на листе) ' преобразуете текст "" в нули For i = 1 To UBound(arr, 1) For j = 1 To UBound(arr, 2) If CStr(arr(i, j)) = "" Then arr(i, j) = 0 End If Next Next ' делайте расчеты в массиве arr,какие вы делали ' когда все расчеты сделаете ,вставляйте в excel End Sub
Karataev, неа. Как я понял там проблема не в макросе даже. После некоторых манипуляций с данными выяснилось, что проблема в масиве "B2:C11" на листе "Sheet2". Я вот только не знаю в какой раздел теперь тему относить, явно проблема в формулах, но это касается макроса. [moder]
Я вот только не знаю в какой раздел теперь тему относить
Не понял, а Вас это с какой стороны волнует и что Вы куда относить собрались?
Karataev, неа. Как я понял там проблема не в макросе даже. После некоторых манипуляций с данными выяснилось, что проблема в масиве "B2:C11" на листе "Sheet2". Я вот только не знаю в какой раздел теперь тему относить, явно проблема в формулах, но это касается макроса. [moder]
Меня интересует решение этой проблемы так же как и автора (имею с ним контакт). Я имел в виду писать в этой теме или запилить новую в разделе "Вопросы по Excel". Без посягательств на полномочия модераторов. Извините, что ввёл в заблуждение. Вот сам файл. [moder]А вот я думаю, что эти два ника - одно лицо.
И вот еще что - еще раз сотрете комментарий модератора - забаню вообще обоих.
Меня интересует решение этой проблемы так же как и автора (имею с ним контакт). Я имел в виду писать в этой теме или запилить новую в разделе "Вопросы по Excel". Без посягательств на полномочия модераторов. Извините, что ввёл в заблуждение. Вот сам файл. [moder]А вот я думаю, что эти два ника - одно лицо.
И вот еще что - еще раз сотрете комментарий модератора - забаню вообще обоих.zegor