Ошибка в If Then

Автор SBK, 10 февраля 2012, 16:24

0 Пользователи и 1 гость просматривают эту тему.

SBK

oDoc = ThisComponent
oSheet = oDoc.CurrentController.GetActiveSheet

a = oSheet.getCellRangeByName("B8")
b = oSheet.getCellRangeByName("B9")
Sc = oSheet.getCellRangeByName("B11")
c = oSheet.getCellRangeByName("B12")
d = oSheet.getCellRangeByName("B10")
Zol = oSheet.getCellRangeByName("B13")

f = oSheet.getCellRangeByName("B14")
g = oSheet.getCellRangeByName("B15")
i = oSheet.getCellRangeByName("B16")
j = oSheet.getCellRangeByName("B17")
k = oSheet.getCellRangeByName("B18")
OPS = oSheet.getCellRangeByName("B19")

If f > g Then
m = f
Else
m = g
End If

дальше смысла нет выкладывать, на этом моменте выполнение заканчивается


Ошибка вылетает на подчёркнутом моменте, неверное значение свойства мол.
Переменные пока лень обозначать, так бы работало.

Рыбка Рио

Нужно отредактировать строчки:
Цитироватьf = oSheet.getCellRangeByName("B14").Value
g = oSheet.getCellRangeByName("B15").Value
ubuntu 12.04 + LibO3.6.0

SBK

Клио, спасибО! Круто!

у меня ещё есть такие строчки как:

[C8] = a * 0.005 * p * 2

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

Рыбка Рио

Цитата: SBK от 10 февраля 2012, 15:39у меня ещё есть такие строчки как:

[C8] = a * 0.005 * p * 2

а это как будет выглядеть?
a и p должны быть числами, т.е. тоже a = oSheet.getCellRangeByName("B8").Value
Ещё в ячейке можно прочитать строку и формулу:
oSheet.getCellRangeByName("B8").Formula
oSheet.getCellRangeByName("B8").String

А если просто написать a = oSheet.getCellRangeByName("B8"), то это просто ячейка, у которой есть много свойств:
(Name)                       (Value Type)                     (Value)                       (Info.)   (Attr.)    (Handle) 
AbsoluteName                 string                           $Sheet1.$B$8                            Read_Only  1239 
ActionLocks                  short                                                          Pseud     WriteOnly       
Annotation                   .sheet.XSheetAnnotation          -INTERFACE-                   Pseud     Read_Only       
ArrayFormula                 string                           ""                            Pseud                     
ArrayTokens                  [].sheet.FormulaToken            -Sequence-                    Pseud                     
AsianVerticalMode            boolean                          False                                              137 
BottomBorder                 .table.BorderLine2               -STRUCT-                                           150 
CellAddress                  .table.CellAddress               -STRUCT-                      Pseud     Read_Only       
CellBackColor                long                             -1                                                 148 
CellFormatRanges             .container.XIndexAccess          -INTERFACE-                   Pseud     Read_Only       
CellProtection               .util.CellProtection             -STRUCT-                                           149 
CellStyle                    string                           Default                                            1200 
CharColor                    long                             -1                                                 109 
CharContoured                boolean                          False                                              107 
CharCrossedOut               boolean                          False                                              106 
CharEmphasis                 short                            0                                                  121 
CharEscapement               long                             -void-                                             4017 
CharFont                     short                            5                                                  100 
CharFontCharSet              short                            76                                                 100 
CharFontCharSetAsian         short                            76                                                 111 
CharFontCharSetComplex       short                            76                                                 116 
CharFontFamily               short                            5                                                  100 
CharFontFamilyAsian          short                            6                                                  111 
CharFontFamilyComplex        short                            6                                                  116 
CharFontName                 string                           Arial                                              100 
CharFontNameAsian            string                           宋体                                                 111 
CharFontNameComplex          string                           Lohit Hindi                                        116 
CharFontPitch                short                            2                                                  100 
CharFontPitchAsian           short                            2                                                  111 
CharFontPitchComplex         short                            2                                                  116 
CharFontStyleName            string                           ""                                                 100 
CharFontStyleNameAsian       string                           ""                                                 111 
CharFontStyleNameComplex     string                           ""                                                 116 
CharHeight                   float                            10.0                                               101 
CharHeightAsian              float                            10.0                                               112 
CharHeightComplex            float                            10.0                                               117 
CharLocale                   .lang.Locale                     -STRUCT-                                           110 
CharLocaleAsian              .lang.Locale                     -STRUCT-                                           115 
CharLocaleComplex            .lang.Locale                     -STRUCT-                                           120 
CharOverline                 short                            0                                                  105 
CharOverlineColor            long                             -1                                                 105 
CharOverlineHasColor         boolean                          False                                              105 
CharPosture                  .awt.FontSlant                   NONE                                               103 
CharPostureAsian             .awt.FontSlant                   NONE                                               114 
CharPostureComplex           .awt.FontSlant                   NONE                                               119 
CharRelief                   short                            0                                                  124 
CharShadowed                 boolean                          False                                              108 
CharStrikeout                short                            0                                                  106 
CharUnderline                short                            0                                                  104 
CharUnderlineColor           long                             -1                                                 104 
CharUnderlineHasColor        boolean                          False                                              104 
CharWeight                   float                            100.0                                              102 
CharWeightAsian              float                            100.0                                              113 
CharWeightComplex            float                            100.0                                              118 
CharWordMode                 boolean                          False                                              123 
ChartColumnAsLabel           boolean                          False                                              1201 
ChartRowAsLabel              boolean                          False                                              1202 
ColumnDescriptions           []string                         -Sequence-                    Pseud                     
Columns                      .table.XTableColumns             -INTERFACE-                   Pseud     Read_Only       
ConditionalFormat            .sheet.XSheetConditionalEntries  -INTERFACE-                                        1203 
ConditionalFormatLocal       .sheet.XSheetConditionalEntries  -INTERFACE-                                        1204 
ConditionalFormatXML         .sheet.XSheetConditionalEntries  -INTERFACE-                                        1205 
Data                         [][]double                       -Sequence-                    Pseud                     
DataArray                    [][]any                                                        Ignored                   
DiagonalBLTR                 .table.BorderLine2               -STRUCT-                                           142 
DiagonalTLBR                 .table.BorderLine2               -STRUCT-                                           141 
ElementType                  type                             com.sun.star.text.XTextRange  Pseud     Read_Only       
End                          .text.XTextRange                 -INTERFACE-                   Pseud     Read_Only       
Error                        long                             0                             Pseud     Read_Only       
Formula                      string                           ""                            Pseud                     
FormulaArray                 [][]string                                                     Ignored                   
FormulaLocal                 string                           ""                                                 1212 
FormulaResultType            .table.CellContentType           EMPTY                                   Read_Only  1213 
HoriJustify                  .table.CellHoriJustify           STANDARD                                           129 
HoriJustifyMethod            long                             0                                                  130 
ImplementationId             []byte                           -SEQUENCE-                    Pseud     Read_Only       
ImplementationName           string                           ScCellObj                     Pseud     Read_Only       
IsCellBackgroundTransparent  boolean                          True                                               148 
IsMerged                     boolean                          False                         Pseud     Read_Only       
IsTextWrapped                boolean                          False                                              139 
LeftBorder                   .table.BorderLine2               -STRUCT-                                           150 
NotANumber                   double                           2.22507385851e-308            Pseud     Read_Only       
NumberFormat                 long                             0                                                  146 
NumberingRules               .container.XIndexReplace         -INTERFACE-                                        1228 
Orientation                  .table.CellOrientation           STANDARD                                           134 
ParaAdjust                   short                            0                                                  129 
ParaBottomMargin             long                             48                                                 143 
ParaIndent                   short                            0                                                  131 
ParaIsCharacterDistance      boolean                          False                                              126 
ParaIsForbiddenRules         boolean                          False                                              128 
ParaIsHangingPunctuation     boolean                          False                                              127 
ParaIsHyphenation            boolean                          False                                              125 
ParaLastLineAdjust           short                            0                                                  129 
ParaLeftMargin               long                             35                                                 143 
ParaRightMargin              long                             35                                                 143 
ParaTopMargin                long                             48                                                 143 
Position                     .awt.Point                       -STRUCT-                                Read_Only  1210 
PropertySetInfo              .beans.XPropertySetInfo          -INTERFACE-                   Pseud     Read_Only       
PropertyToDefault            string                                                         Ignored                   
RangeAddress                 .table.CellRangeAddress          -STRUCT-                      Pseud     Read_Only       
RightBorder                  .table.BorderLine2               -STRUCT-                                           150 
RotateAngle                  long                             0                                                  135 
RotateReference              long                             3                                                  136 
RowDescriptions              []string                         -Sequence-                    Pseud                     
Rows                         .table.XTableRows                -INTERFACE-                   Pseud     Read_Only       
ShadowFormat                 .table.ShadowFormat              -STRUCT-                                           152 
ShrinkToFit                  boolean                          False                                              140 
Size                         .awt.Size                        -STRUCT-                                Read_Only  1211 
Spreadsheet                  .sheet.XSpreadsheet              -INTERFACE-                   Pseud     Read_Only       
Start                        .text.XTextRange                 -INTERFACE-                   Pseud     Read_Only       
String                       string                           ""                            Pseud                     
SupportedServiceNames        []string                         -Sequence-                    Pseud     Read_Only       
TableBorder                  .table.TableBorder               -STRUCT-                                           1206 
Text                         .text.XText                      -INTERFACE-                   Pseud     Read_Only       
TextFieldMasters             .container.XNameAccess           -void-                        Pseud     Read_Only       
TextFields                   .container.XEnumerationAccess    -INTERFACE-                   Pseud     Read_Only       
Tokens                       [].sheet.FormulaToken            -Sequence-                    Pseud                     
TopBorder                    .table.BorderLine2               -STRUCT-                                           150 
Type                         .table.CellContentType           EMPTY                         Pseud     Read_Only       
Types                        []type                           -Sequence-                    Pseud     Read_Only       
UniqueCellFormatRanges       .container.XIndexAccess          -INTERFACE-                   Pseud     Read_Only       
UserDefinedAttributes        .container.XNameContainer        -INTERFACE-                                        122 
Validation                   .beans.XPropertySet              -INTERFACE-                                        1207 
ValidationLocal              .beans.XPropertySet              -INTERFACE-                                        1208 
ValidationXML                .beans.XPropertySet              -INTERFACE-                                        1209 
Value                        double                           0.0                           Pseud                     
VertJustify                  long                             0                                                  132 
VertJustifyMethod            long                             0                                                  133 
WritingMode                  short                            4                                                  138 

ubuntu 12.04 + LibO3.6.0

Рыбка Рио

Цитата: SBK от 10 февраля 2012, 15:39[C8] = a * 0.005 * p * 2

а это как будет выглядеть?
oSheet.getCellRangeByName("С8").Value = a * 0.005 * p * 2
ubuntu 12.04 + LibO3.6.0

SBK

Спасибо огромное! всё заработало!

SBK

Цитата: Клио от 10 февраля 2012, 15:50oSheet.getCellRangeByName("С8").Value = a * 0.005 * p * 2
так не работает, пишет "ошибка времени выполнения basic"

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

SBK

oSheet.getCellRangeByName("B8").Formula = тратата - с этим работает