Что за все надо платить я не отрицаю. Просто в смете деньги на компьютер есть, а на сотрудника, который будет заниматься сопровождением денег нет. Надо найти достаточно эффективное решение исходя из возможностей.  

Фига вы загнули. За базой надо следить, ее надо наполнять. А это расходы как времени так и денег. Поэтому попробую poverpivot или qlikview

Какой сервер выбрать. Разные Oracle BI стоят как одномоторный самолет.  

Всем доброго ВС! Имеется в poverpivot таблица объемом около 15 млн строк, которая соединена с тремя таблицами объемом от 2000 до 40000 строк. Объем файла около 700 Мб. Все это хозяйство уже не тянет комп с процессором Core i3 и 8Гб памяти. Если по памяти ошибок нет, то работает это все очень медленно. Можно сказать конски медленно. Решили перенести на новый комп. Встал вопрос какой лучше выбрать Core i7 или Xeon? Как мне кажется PoverPivot не использует одновременно больше одного ядра. Поэтому встает вопрос надо ли искать многоядерные и многопроцессорные конфигурации или ограничится мощным Core i7? И нужен ли SSD диск? Буду благодарен советам опытных пользователей.  

Здравствуйте, уважаемые. Пытаюсь написать функцию (Public Function Rr), которая будет искать в выбранном диапазоне ячеек (Range) определенное значение. Пока столкнулся с тем, что функция запущенная с листа ищет только первый элемент, т.е. срабатывает Find, а вот следующий элемент не ищет, т.е. FindNext не работает.    
Если ту же функцию вызвать не с листа, а из процедуры Sub f(), то она находит все элементы как надо. Файл во вложении. Буду рад помощи.    
 
Код:  
Public Function Rr(D As Range) As Variant  
   Dim B As Object  
   With D  
   Set B = .CurrentRegion.Find(What:="4", LookIn:=xlValues, SearchOrder:=xlByRows, searchDirection:=True)  
   WW = B.Address  
   If Not B Is Nothing Then  
      firstAddress = B.Address  
        WW = B.Address  
      Do  
        Set B = .FindNext(B)  
      Loop While Not B Is Nothing And B.Address <> firstAddress  
   End If  
   End With  
   Rr = WW  
End Function  
 
Public Sub f()  
Dim B As Object  
    WW = Rr(Worksheets(1).Range("I3:I12"))  
End Sub