Макрос выдает ошибку #VALUE! - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выдает ошибку #VALUE! (Макросы/Sub)

Макрос выдает ошибку #VALUE!

krosav4ig

Дата: Суббота, 31.05.2014, 04:32 | Сообщение № 21

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

[vba]

Код

Function NewOrProlonged(ContragentColNum As Integer, SquareColNum As Integer)
'NewOrProlonged = Application.WorksheetFunction.SumProduct((Range(Cells(7, ContragentColNum), Cells(EntireRow.Row, ContragentColNum)) = Cells(EntireRow.Row, ContragentColNum)) * (Range(Cells(7, SquareColNum), Cells(EntireRow.Row, SquareColNum)) = Cells(EntireRow.Row, SquareColNum)))
Dim rngContragent$, rngSquare$, crtContragent$, crtSquare$
       With Application.Caller
           crtContragent = Cells(.Row, ContragentColNum).Address
           crtSquare = Cells(.Row, SquareColNum).Address
           rngContragent = Range(Cells(8, ContragentColNum), Cells(.Row - 1, _
               ContragentColNum)).Address
           rngSquare = Range(Cells(8, SquareColNum), Cells(.Row - 1, _
               SquareColNum)).Address
       End With
       NewOrProlonged = Evaluate("SumProduct((" & rngContragent & " = " & _
           crtContragent & ")*(" & rngSquare & "=" & crtSquare & "))")
       'NewOrProlonged = Evaluate("SumProduct((" & rngContragent & "=" & crtContragent _
           & ")*(" & rngContragent & "<>"""")*(" & rngContragent & ">0)*(" & rngSquare & _
           "=" & crtSquare & ")*(" & rngSquare & "<>"""")*(" & rngSquare & ">0))")
End Function

[/vba]

К сообщению приложен файл: 8578075.xls (39.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 31.05.2014, 04:33

Ответить

bygaga

Дата: Вторник, 03.06.2014, 10:20 | Сообщение № 22

Группа: Пользователи

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003, 2007

krosav4ig, Спасибо! Идеальный вариант!

Сообщение отредактировал bygaga - Вторник, 03.06.2014, 10:21

Ответить

bygaga

Дата: Вторник, 03.06.2014, 11:06 | Сообщение № 23

Группа: Пользователи

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003, 2007

Вопрос на засыпку - почему в коде
[vba]

Код

Function NewOrProlonged(ContragentColNum As Integer, SquareColNum As Integer)
Dim rngContragent$, rngSquare$, crtContragent$, crtSquare$
     With Application.Caller
         crtContragent = Cells(.Row, ContragentColNum).Address
         crtSquare = Cells(.Row, SquareColNum).Address
         rngContragent = Range(Cells(7, ContragentColNum), Cells(.Row - 1, _
             ContragentColNum)).Address
         rngSquare = Range(Cells(7, SquareColNum), Cells(.Row - 1, _
             SquareColNum)).Address
     End With

     NewOrProlonged = Evaluate("SumProduct((" & rngContragent & " = " & _
         crtContragent & ")*(" & rngSquare & "=" & crtSquare & "))")
End Function

[/vba]
crtContragent и crtSquare - понятно, это номер столбца, потому и тип переменной String ($)
А вот переменные
rngContragent
rngSquare
по сути Range? Почему в макросе они как String?

Спасибо
С уважением, Дима