Ошибка в If Then

[SBK]

<sub>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

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


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

[Рыбка Рио]

Нужно отредактировать строчки:

f = oSheet.getCellRangeByName("B14").Value
g = oSheet.getCellRangeByName("B15").Value

[SBK]

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

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

[C8] = a * 0.005 * p * 2

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

[Рыбка Рио]

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

[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 


[Рыбка Рио]

[C8] = a * 0.005 * p * 2

а это как будет выглядеть?

oSheet.getCellRangeByName("С8").Value = a * 0.005 * p * 2

[SBK]

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

[SBK]

oSheet.getCellRangeByName("С8").Value = a * 0.005 * p * 2

так не работает, пишет "ошибка времени выполнения basic"

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

[SBK]

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