Автор | Сообщение |
|
| постоянный участник
|
Пост N: 4144
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.04.15 22:50. Заголовок: Вопрос по Excel ?
Всем привет. Вопрос к знатокам Excel-я, как подсчитать сумму ВСЕХ значений с минусом и с плюсом ? Вот есть таблица из многих столбцов. Как сделать формулу для расчёта этих значений по 2-му столбцу ?
|
|
|
Новых ответов нет
, стр:
1
2
3
4
5
6
7
8
All
[см. все]
|
|
|
| |
Пост N: 372
Зарегистрирован: 03.12.08
|
|
Отправлено: 05.02.18 22:54. Заголовок: Как красиво :) ..
Как красиво :)
|
|
|
|
| |
Пост N: 72
Зарегистрирован: 18.06.15
|
|
Отправлено: 17.12.19 15:02. Заголовок: Мужики... кто нибуд..
Мужики... кто нибудь пробовал из Harbor создавать графики в Excel ..? Подскажите пару команд ....
|
|
|
|
| |
Пост N: 7151
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.12.19 15:45. Заголовок: Alex_Cher C:\Mi..
|
|
|
|
| |
Пост N: 73
Зарегистрирован: 18.06.15
|
|
Отправлено: 20.12.19 08:53. Заголовок: Наткнулся на "гр..
Наткнулся на "грали" .... помогите... вводим в ячейку excel данные oWorkBook:Cells( line, massiv[_i]) := 135 Можно ли из Harbor определить адрес данной ячейки в формате excel для использования фомулах, допустим =СУММ(N8: .....) или как это можно оботи ?
|
|
|
|
| Администратор
|
Пост N: 3908
Зарегистрирован: 23.05.05
|
|
Отправлено: 20.12.19 10:42. Заголовок: Function ExcelAdr(nR..
Function ExcelAdr(nRow, nCol) Return if(nCol>26,Chr(Int((nCol-1)/26)+64),'')+Chr((nCol-1)%26+65) + StrTrim(Int(nRow))
|
|
|
|
| |
Пост N: 74
Зарегистрирован: 18.06.15
|
|
Отправлено: 20.12.19 12:33. Заголовок: Pasha, спасибо тебе..
Pasha, спасибо тебе большое ... не думал что так все просто. Только в конце команды я немножко подправлю. Вместо + StrTrim(Int(nRow)) .... + Allrtim( Str( Int( nRow))) Функция StrTrim() по моему была в Clipper, в Harbor ее нет...
|
|
|
|
| |
Пост N: 7152
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.12.19 12:39. Заголовок: Alex_Cher пишет: + ..
Alex_Cher пишет: цитата: | + Allrtim( Str( Int( nRow))) |
| Hb_ntos(nRow)
|
|
|
|
| Администратор
|
Пост N: 3909
Зарегистрирован: 23.05.05
|
|
Отправлено: 20.12.19 13:36. Заголовок: Alex_Cher пишет: Фу..
Alex_Cher пишет: цитата: | Функция StrTrim() по моему была в Clipper, в Harbor ее нет... |
| Прошу прошения, это моя функция Function StrTrim(n) Local c := AllTrim(Str(n)) if At('.', c) # 0 c := RemRight(c, '0') c := RemRight(c, '.') endif Return c
|
|
|
|
| |
Пост N: 75
Зарегистрирован: 18.06.15
|
|
Отправлено: 28.01.20 15:01. Заголовок: Мужики, кто плотно с..
Мужики, кто плотно с excel работает через Harbor? Над элементарной хренью бьюсь часами... Документации нет, из макросов нихрена ничего не понятно... Короче ячейку обвести рамкой все понятно - oWorkBook:Ceels( 3,12):Borders():Weight := 3 А как обвести группу ячеек одной рамкой ? oWorkBook:Range( oWoorkBook:Ceels( 3,12), ......... ):Borders():Weight := 3 обводит рамкой каждую ячейку, не подходит...
|
|
|
|
| |
Пост N: 7157
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.01.20 17:06. Заголовок: как то так oSheet:Ra..
как то так oSheet:Range(osheet:cells(i,1),osheet:cells(i+3,2)):BorderAround( xlContinuous, xlThin)
|
|
|
|
| |
Пост N: 76
Зарегистрирован: 18.06.15
|
|
Отправлено: 29.01.20 12:25. Заголовок: Dima, спасибо за пом..
Dima, спасибо за помощь... Поделись где копаешь документацию?
|
|
|
|
|
| |
Пост N: 7158
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.01.20 12:31. Заголовок: Alex_Cher пишет: По..
Alex_Cher пишет: цитата: | Поделись где копаешь документацию? |
| на форуме ищу и гуглю
|
|
|
|
| |
Пост N: 158
Зарегистрирован: 12.07.06
|
|
Отправлено: 19.11.21 18:47. Заголовок: Как переименовать книгу?
Печатая отчёты через Excel потребовалось поменять имя книги Книга1 на своё, но так и не разобрался как. Подскажите, кто сталкивался с этой задачей. oExcel := TOleAuto():New('Excel.Application') oExcel:Visible := .F. oBook := oExcel:WorkBooks:Add() oSheet := oExcel:Get('ActiveSheet') ...
|
|
|
|
| постоянный участник
|
Пост N: 7130
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.11.21 00:11. Заголовок: В этой же теме я дав..
В этой же теме я давал как работать с книгами... Как их скрывать от пользователя и т.д. Читай предыдущие темы, я уже не помню где это, но тот же вопрос задавал ранее в этой теме.
|
|
|
|
| |
Пост N: 7483
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.11.21 10:11. Заголовок: Andrey Ты очень пом..
Andrey Ты очень помог человеку
|
|
|
|
| постоянный участник
|
Пост N: 7131
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.11.21 11:55. Заголовок: Dima пишет: Ты очен..
Dima пишет: Ну занят очень пока. А я с таким разбирался и писал в этой теме чуть раньше.
|
|
|
|
| |
Пост N: 1808
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.11.21 15:27. Заголовок: Не пойму
что то туплю Вопрос в том как сделать :Save() или :SaveAs() ?
|
|
|
|
| |
Пост N: 7484
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.11.21 15:39. Заголовок: Haz пишет: Вопрос в..
Haz пишет: цитата: | Вопрос в том как сделать :Save() или :SaveAs() ? |
| Да это понятно с Save... Имелось в виду следующее: создали новую книгу EXCEL , так вот в заловке сразу торчит Книга1 - Microsoft Excel , вот там и хочет поменять и чую спинным мозгом что не получится и только через сохранение
|
|
|
|
| |
Пост N: 1809
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.11.21 15:54. Заголовок: Dima пишет: чую сп..
Dima пишет: цитата: | чую спинным мозгом что не получится и только через сохранение |
| Согласен с твоим спинным мозгом, не поспоришь
|
|
|
|
| постоянный участник
|
Пост N: 3945
Зарегистрирован: 17.02.12
|
|
Отправлено: 20.11.21 16:03. Заголовок: Dima пишет чую спинн..
Dima пишет цитата: | чую спинным мозгом что не получится и только через сохранение |
| Так может исп. hbxlsxml.lib для создания Sheet, а потом работать OLE У Игоря был, где то выкладывал, пример простой с dbf получение xml, сделать Книги сколько надо и загрузить в OLE. кусочек из своего варианта с Sheet ... Скрытый текст
oXml := ExcelWriterXML():New( cFile ) // Создаем объект XML oXml:setOverwriteFile( .T. ) FOR nI := 1 TO Len(aSheet) cKey := aSheet[ nI ] cSheet := hb_ntos(nI)+". "+ltrim(cKey) oSheet := oXml:addSheet( cSheet ) // Определяем Лист if aColSel == Nil .or. Len(aColSel) == 0 // Определяем колонки aColSel := CalcAcolselForTbl( oBrw, aColSel ) Endif nColDbf := Len(aColSel) ; nColHead := 0 // Определяем ширины колонок из бровса FOR EACH i IN aColSel ; oSheet:columnWidth( ++nColHead, oBrw:aColumns[ i ]:XML_ColWidth ) NEXT oStyle := oXml:addStyle( "Title" ) // Определяем стиль названия отчета oStyle:alignHorizontal( n2cAlign( DT_CENTER ) ) oStyle:alignVertical ( n2cAlign( DT_CENTER ) ) oStyle:SetfontName( cTitleFont ) oStyle:SetfontSize( nTitleSize ) // oStyle:SetfontSize( 17 ) oStyle:setFontBold() IF lTsbSuperHd // Определяем суперхидер FOR i := 1 To len( oBrw:aSuperHead ) oStyle := oXml:addStyle( "SH" + hb_ntos(i) ) nAlign := oBrw:aSuperHead[ i ][12] cAlign := n2cAlign( nAlign ) oStyle:alignHorizontal( cAlign ) nAlign := oBrw:aSuperHead[ i ][13] cAlign := n2cAlign( nAlign ) oStyle:alignVertical( cAlign ) oStyle:bgColor( '#' + N2hex(oBrw:nClrHeadBack, 16) ) oStyle:SetfontName( GetFontParam(oBrw:aSuperHead[ i ][7])[1] ) oStyle:SetfontSize( GetFontParam(oBrw:aSuperHead[ i ][7])[2] ) If GetFontParam(oBrw:aSuperHead[ i ][7])[3] oStyle:setFontBold() EndIf oStyle:Border( "All", 2, "Automatic", "Continuous" ) oStyle:alignWraptext() NEXT ENDIF nColHead := 0 // Определяем стили шапки колонок ...
| aSheet - массив названий книг и Len(aSheet) - их кол-во
|
|
|
Новых ответов нет
, стр:
1
2
3
4
5
6
7
8
All
[см. все]
|
|