| Автор | Сообщение |
|
|
| постоянный участник
|
Пост N: 4144
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.04.15 22:50. Заголовок: Вопрос по Excel ?
Всем привет. Вопрос к знатокам Excel-я, как подсчитать сумму ВСЕХ значений с минусом и с плюсом ?  |
 |
  
|
|
Ответов - 153
, стр:
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) - их кол-во |
|
|
|
Ответов - 153
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|
- участник сейчас на форуме
- участник вне форума