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

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

 Отправлено: 29.09.17 11:41. Заголовок: Pasha пишет: Так во..

Pasha пишет:

цитата:

Так вот, после заполнения таблички высота нескольких строк в подписи сама собой увеличилась, и стала где-то на полметра.

У меня такое бывает на Office начиная с версии 2010, если выполнены два условия:
1) зафиксирована (заморожена) часть строк, например, шапка таблицы
.AND.
2) удаляется несколько строк, как выше (в заголовке), так и ниже "заморозки" (в теле таблицы).

В версиях до Excel 97 включительно все работает без проблем, как победить это на более современных версиях - так и не понял пока, из шаманств помогло: сначала удалять все что нужно, а только потом "морозить". Но иногда и не помогает...

 Отправлено: 29.09.17 16:22. Заголовок: Pasha пишет: Так во..

Pasha пишет:

цитата:

Так вот, после заполнения таблички высота нескольких строк в подписи сама собой увеличилась, и стала где-то на полметра.

Была такая штука когда загонял в ячейку MEMO а в нем переводы строки жили , поэтому чикаю их через Memotran

 Отправлено: 29.09.17 17:42. Заголовок: У меня все-таки друг..

У меня все-таки другой случай. Самопроизвольно увеличилась высота пустых строк, в ячейки которых ничего не заносилось. Заполнялась таблица перед этими строками.
Почему - непонятно. Бланк скачал из инета, он совсем простой. Макросов нет.
Я как-то выкрутился и уже забыл. От современного софта почти каждый день какое-то чудо узнаешь. Ну или каждую неделю.

 Отправлено: 29.09.17 21:33. Заголовок: Pasha а выложи прос..

Pasha
а выложи простой примерчик , хочу у себя чекануть + скрин где у тебя лажа с высотой

 Отправлено: 02.10.17 16:24. Заголовок: Уже и не получается ..

Уже и не получается воспроизвести строки полуметровой высоты. Бланк то я поправил, удалением и добавлением тех строк, которые портятся, и документ, который давал тот эффект, не сохранил.

 Отправлено: 07.11.17 11:59. Заголовок: Excel 2010. В книге ..

Excel 2010. В книге два листа.
Выдаю:

oSheets:Item(2):Delete()

DisplatAlerts не выключал. Запрос на удаление листа не выдается. Метод Delete возвращает значение .t.. Лист из книги не удаляется, как был, так и остался. В чем может быть дело ?
Непонятный глюк ?

 Отправлено: 07.11.17 12:43. Заголовок: Вопрос снят. Оказало..

Вопрос снят. Оказалось: не глюк. Надо было как обычно вызвать дежурного шамана, и поскакать с бубном.
Нашлась такая темка:

http://www.sql.ru/forum/114247/pochemu-ne-udalyautsya-listy-v-excel

и лист стал удаляться так:

oExcel:DisplayAlerts := .f.
oSheets:Item(2):Delete()
oExcel:DisplayAlerts := .t.

Смутило поведение сего продукта, отличное от его же доки.

 Отправлено: 01.12.17 18:40. Заголовок: Всем привет ! Вопро..

Всем привет !

Вопрос несколько не в тему - не писал ли кто макроса загрузки DBF в Excel. Только грузить
этот DBF надо через ADO

 Отправлено: 02.12.17 10:31. Заголовок: fil пишет: Только г..

fil пишет:

цитата:

Только грузить этот DBF надо через ADO

Так в сырцах FW посмотри. Например FW_AdoToExcel может на мысль натолкнет

 Отправлено: 02.12.17 21:43. Заголовок: Посмотрю, спасибо. ..

Посмотрю, спасибо.

 Отправлено: 04.12.17 14:26. Заголовок: Добрый день, коллеги..

Добрый день, коллеги. Мы просто открываем в Excel файл DBF и потом записываем с нужным расширением (Xls/Xlsx)
Dbf_F1 - имя файла DBF
Xls_F1 - имя файла Excel

Function Format_Exl1(Dbf_F1,Xls_F1)
Local oExcel,oSheet,oBook,oAs,oRange
oExcel :=ToleAuto():New( "Excel.Application" )
oExcel :Visible:=.F.
oExcel :Workbooks:Open(Dbf_F1)
oExcel :Set("DisplayAlerts",.F.)
oBook :=oExcel:ActiveWorkBook
oSheet :=oExcel:ActiveSheet
oRange :=oExcel:ActiveCell:SpecialCells(xlLastCell)
oAs :=oExcel:ActiveSheet()
cRecno :=oRange:Row
cColumn:=oRange:Column
oAs:Range(oAs:Cells(1,1),oAs:Cells(cRecno,cColumn)):Font:Name='Calibri'
oAs:Range(oAs:Cells(1,1),oAs:Cells(cRecno,cColumn)):Font:Size=12
oAs :Columns(2):Font:Bold:=.T.
*** другие манипуляции с файлом
***
oBook :SaveAs(Xls_F1)
oExcel:Set("DisplayAlerts",.T.)
oExcel:Quit()
oAs :=Nil
oExcel:=Nil
oRange:=Nil
oSheet:=Nil
Release oExcel,oSheet,oBook,oAs,oRange
Return(Nil)

 Отправлено: 05.12.17 10:46. Заголовок: ММК пишет: Так в сы..

ММК пишет:

цитата:

Так в сырцах FW посмотри.

Или в примерах -
* adoxl.prg
* Author: G.N.Rao, India
function Main()

local oWnd

oCn := FW_OpenAdoConnection( TrueName( "xbrtest.mdb" ) )

DEFINE WINDOW oWnd
DEFINE BUTTONBAR oWnd:oBar SIZE 100,32 2007
DEFINE BUTTON OF oWnd:oBar PROMPT "Export To Excel" CENTER ACTION ExportToExcel()
DEFINE BUTTON OF oWnd:oBar PROMPT "Link To Excel" CENTER ACTION LinkToExcel()

ACTIVATE WINDOW oWnd CENTERED

return (0)


static function ExportToExcel()

local oRs, oBook, oSheet, n

CursorWait()

oRs := FW_OpenRecordSet( oCn, "CUSTOMER" )
if oExcel == nil
oExcel := ExcelObj()
endif
oExcel:ScreenUpdating := .f.
oBook := oExcel:WorkBooks:Add()
oSheet := oExcel:ActiveSheet

for n := 1 to oRs:Fields:Count()
oSheet:Cells( 1, n ):Value := oRs:Fields( n - 1 ):Name
next

// THIS ONE LINE OF CODE EXPORTS ENTIRE RECSET TO EXCEL
n := oSheet:Cells( 2, 1 ):CopyFromRecordSet( oRs )
//
oRs:Close()

CursorArrow()
MsgInfo( "Exported " + cValToChar( n ) + " Rows to Excel" )
oExcel:ScreenUpdating := .t.
oExcel:visible := .t.
ShowWindow( oExcel:hWnd, 3 )
BringWindowToTop( oExcel:hWnd )

return nil

 Отправлено: 31.01.18 20:44. Заголовок: Как сменить размер ш..

Как сменить размер шрифта комментария к ячейке таблицы ?
Макрос молчит как партизан

 Отправлено: 01.02.18 11:07. Заголовок: А у меня общается ..

А у меня общается

цитата:

Sub Макрос1() ' ' Макрос1 Макрос ' Макрос записан 01.02.2018 (Vl) ' Range("M196").AddComment Range("M196").Comment.Visible = False Range("M196").Comment.Text Text:="Vl:" & Chr(10) & "два" Range("N203").Select End Sub

 Отправлено: 01.02.18 11:10. Заголовок: Vlad04 У меня тоже ..

Vlad04
У меня тоже , но я хочу увеличить шрифт комента и вот тут макрос молчит , хотя я руками его могу поменять

 Отправлено: 01.02.18 11:13. Заголовок: не то..

не то

 Отправлено: 01.02.18 11:28. Заголовок: шрифт изменение не п..

шрифт изменение не пишется в макрос

 Отправлено: 01.02.18 11:51. Заголовок: Vlad04 пишет: шрифт..

Vlad04 пишет:

цитата:

шрифт изменение не пишется в макро

я про это сразу и написал

 Отправлено: 01.02.18 16:25. Заголовок: Через Shape

Шрифт меняется через пропертю Shape
вот пример из VB

 
   Dim ws As Worksheet 
   Dim cmt As Comment 
   For Each ws In ActiveWorkbook.Worksheets 
     For Each cmt In ws.Comments 
       With cmt.Shape.TextFrame.Characters.Font 
         .Name = "Times New Roman" 
         .Size = 12 
       End With 
     Next cmt 
   Next ws 
 

Ну если совсем в лоб то так

 
       oSheet:Range("A1"):AddComment() 
       oSheet:Range("A1"):Comment:Visible = .T. 
       oSheet:Range("A1"):Comment:Text("Same text",1, 1 )   
       oSheet:Range("A1"):Comment:Shape:TextFrame:Characters:Font:Name = "Times New Roman" 
       oSheet:Range("A1"):Comment:Shape:TextFrame:Characters:Font:Size =  14 
  
 

 Отправлено: 01.02.18 16:32. Заголовок: Haz Да получилось ,..

Haz
Да получилось , в лоб так сказать.
oSheet:cells(j,3):Comment:Shape:TextFrame:Characters:Font:Size:=12