Отправлено: 28.04.15 22:50. Заголовок: Вопрос по Excel ?

Всем привет.
Вопрос к знатокам Excel-я, как подсчитать сумму ВСЕХ значений с минусом и с плюсом ?
Вот есть таблица из многих столбцов. Как сделать формулу для расчёта этих значений по 2-му столбцу ?

 Отправлено: 28.04.15 23:20. Заголовок: Вытащи нужный столбе..

Вытащи нужный столбец в массив, суммируй(или чего там) и вставь результат. Быстрее будет

 Отправлено: 29.04.15 01:11. Заголовок: fil пишет: Вытащи н..

fil пишет:

цитата:

Вытащи нужный столбец в массив, суммируй(или чего там) и вставь результат. Быстрее будет

Их 10 штук (столбцов) которые нужно считать и вдобавок по 50-60 тыс.записей...

 Отправлено: 29.04.15 06:35. Заголовок: =СУММЕСЛИ(C3:C9;"..

=СУММЕСЛИ(C3:C9;"<0";C3:C9)

 Отправлено: 29.04.15 09:32. Заголовок: Andrey Таблицу из H..

Andrey
Таблицу из Harbour создаешь (заполняешь) ?

 Отправлено: 29.04.15 09:46. Заголовок: суммирование положит..

суммирование положительных и отрицательных чисел:

http://www.cyberforum.ru/vba/thread118931.html

 Отправлено: 29.04.15 11:57. Заголовок: Dima пишет: Таблицу..

Dima пишет:

цитата:

Таблицу из Harbour создаешь (заполняешь) ?

DBF создаю хХарбором. Потом показываю в FastReport/
Ну и еще отдельное меню вызова EXCEL с этим DBF.
Вот и хотелось бы макрос прикрутить, или написать какую формулу писать.

 Отправлено: 29.04.15 12:00. Заголовок: santy пишет: суммир..

santy пишет:

цитата:

суммирование положительных и отрицательных чисел: http://www.cyberforum.ru/vba/thread118931.html

Спасибо !

 Отправлено: 29.04.15 12:02. Заголовок: SadStar3333 пишет: ..

SadStar3333 пишет:

цитата:

=СУММЕСЛИ(C3:C9;"<0";C3:C9)

А здесь такого нет:
http://www.cyberforum.ru/vba/thread118931.html
Можно посчитать формулой непосредственно на листе:
=СУММЕСЛИ(A1:A20;"<0")
=СУММЕСЛИ(A1:A20;">0")

 Отправлено: 29.04.15 12:09. Заголовок: Andrey пишет: А зде..

Andrey пишет:

цитата:

А здесь такого нет:

Андрей , в самом Excel отличная справка по функциям
СУММЕСЛИ(диапазон;условия;диапазон_суммирования)

Диапазон — диапазон ячеек, оцениваемый по условиям. Ячейки в каждом диапазоне должны содержать числа, имена, массивы или ссылки, содержащие числа. Пустые ячейки и ячейки, содержащие текстовые значения, не учитываются.

Условия — критерий в форме числа, выражения или текста, определяющий, какие ячейки должны суммироваться. Например, аргумент «условие» может быть выражен как 32, "32", ">32" или "яблоки".

Диапазон_суммирования — фактические ячейки, которые необходимо просуммировать, если соответствующие им ячейки в диапазоне отвечают условиям. Если аргумент «диапазон_суммирования» опущен, ячейки диапазона и оцениваются по условиям, и суммируются в том случае, если они им соответствуют

 Отправлено: 29.04.15 12:42. Заголовок: Haz пишет: Андрей ,..

Haz пишет:

цитата:

Андрей , в самом Excel отличная справка по функциям

Он их не читает

 Отправлено: 29.04.15 14:20. Заголовок: Dima пишет: Он их н..

Dima пишет:

цитата:

Он их не читает

Лучше попробовать, если не получается то спросить...

 Отправлено: 16.09.17 18:34. Заголовок: Как на Харборе в Экс..

Как на Харборе в Экселе сделать - сохранение файла в формате CVS ?
Т.е. файл открыл через ОЛЮ, а как дальше сделать - сохранение файла ?

 Отправлено: 16.09.17 20:16. Заголовок: Функция Excel VBA Sa..

Функция Excel VBA SaveAs(..)

Параметр #2 - FileFormat := xlCSV

 Отправлено: 16.09.17 21:28. Заголовок: Петр пишет: Парамет..

Петр пишет:

цитата:

Параметр #2 - FileFormat := xlCSV

Как обычно Andrey обломился просто погуглить

 Отправлено: 17.09.17 17:03. Заголовок: Петр пишет: Парамет..

Петр пишет:

цитата:

Параметр #2 - FileFormat := xlCSV

Спасибо !
Но как я и подозревал - Эксель опять сопротивляется...
Открываю Эксел в скрытом режиме - oExcel:Visible := .F. // НЕ Показывать EXCEL
Сделал запись в файл, а просто так Эксел не закрывается.
Вот такая табличка появляется:

Как этот диалог убрать, чтобы юзера не пугались ?

 Отправлено: 17.09.17 17:05. Заголовок: oExcel:DisplayAlerts..

oExcel:DisplayAlerts:=.F.

 Отправлено: 17.09.17 17:08. Заголовок: Dima СПАСИБО ! :sm3..

Dima СПАСИБО !

 Отправлено: 17.09.17 20:21. Заголовок: Что-то иногда вылета..

Что-то иногда вылетает программа вот с такой ошибкой:


Перед тем как записывать файл, я удаляю существующий.

   IF FILE( cFileSave ) 
       DELETEFILE( cFileSave )  // Чтобы Excel не приставал в вопросом "Такой файл уже существует" 
    ENDIF 
    INKEYGUI(500) 
    oBook:SaveAs( cFileSave, xlCSV )  // строка 97 

Что за ошибка такая и как убрать вылет ?

 Отправлено: 17.09.17 21:11. Заголовок: Andrey пишет: Что з..

Andrey пишет:

цитата:

Что за ошибка такая и как убрать вылет ?

1. У обьекта oBook нет метода SaveAs
2. Быть внимательным и хоть как-нибудь обработывать ошибки (проверка возращаемых значений, BEGIN SEQUENCE ) - тормоза придумали не трУсы

 Отправлено: 17.09.17 22:40. Заголовок: Петр пишет: Быть вн..

Петр пишет:

цитата:

Быть внимательным и хоть как-нибудь обработывать ошибки (проверка возращаемых значений, BEGIN SEQUENCE )

Точно... Нашёл ошибку. Повис в памяти скрытый Эксель с файлом, т.е. файл заблокирован на запись.

Вот так работает:

    
    .... 
    cFileName := cPath + "\" + cFileXls 
    cFileSave := cPath + "\" + cFileCsv 
     ..... 
    oExcel := TOleAuto():New( "Excel.Application" ) 
    oExcel:Visible := .F. // НЕ Показывать EXCEL 
    oExcel:DisplayAlerts := .F. // не приставать с запросами 
    oExcel:Workbooks:Open( cFileName, 0 ) 
    oBook := oExcel:ActiveSheet() 
  
    IF FILE( cFileSave ) 
      // Чтобы Excel не приставал в вопросом "Такой файл уже существует" 
      nErr := DELETEFILE(cFileSave) 
      IF nErr == 0 
         oBook:SaveAs( cFileSave, xlCSV )   
         lRet := .T. 
      ELSE 
         cMsg := REPLICATE( "-._.", 16 ) + ";;" 
         cMsg += "Ошибка удаления файла: "+cFileSave+" !; Ошибка: "+HB_NtoS(nErr)+";;" 
         cMsg += "Файл занят другим процессом в памяти !;;" 
         cMsg += REPLICATE( "-._.", 16 ) + ";;" 
         cMsg := AtRepl( ";", cMsg, CRLF ) 
         MsgStop( cMsg , "Ошибка!" ) 
         lRet := .F. 
      ENDIF 
    ELSE 
       oBook:SaveAs( cFileSave, xlCSV )   
       lRet := .T. 
    ENDIF 
  
    oExcel:Quit() 

Петр пишет:

цитата:

1. У обьекта oBook нет метода SaveAs

А как тогда писать правильно ?