[doki]

Такой вопрос: как лиспом прописать экселевскую формулу, например "=В3*С3" только программа циклическая и формула должна меняться с определенным шагом каждый этап цикла, например "=В3*С3", "=В8*С8", "=В13*С13" и т.д. шаг в данном случае 5 строчек.

[VVA]

Как текст и прописать в соответсующую ячейку

Код:

[Выделить все]

;;;Пример
(setq data_list ;;Исходный список данных для построчной записи в Эксел, начиная со 2-й строки. 1-я для заголовка
       '(
         (10 11) ;;Столбей A-10 B-11
         (20 21) ;;Столбей A-20 B-21
         (30 31) ;;Столбей A-30 B-31
         (40 41)
         (50 51)
         (60 61)
         (70 71)
         (80 81)
         (90 91)
         (100 101)
         )
      )
;;;К списку добавляем Столбей C с формулой (каждый пятый перемножается, каждый второй суммируется)
(setq line 2) ;;Индеск строк в Excell. Пишем со второй строки (1-я для заголовка)
(setq count 1);;Счетчик
(setq ret nil)
(foreach item data_list
  (cond ((zerop(rem count 5)) ;;Каждуй пятый
         (setq ret (append ret (list(list (car item)  ;_Столбей А
                                     (cadr item)      ;_Столбей B
                                     (strcat "=A" (itoa line) "*B" (itoa line)) ;_Столбей C
                                     "!!!Пятый"       ;_Столбей D
                                     ))
                           )
               )
         )
        ((zerop(rem count 2)) ;;Каждуй второй
         (setq ret (append ret (list(list (car item)
                                     (cadr item)
                                     (strcat "=A" (itoa line) "+B" (itoa line))
                                          "!!!Второй"       ;_Столбей D
                                     ))
                           )
               )
         )
        (t
         (setq ret (append ret (list(list (car item)
                                     (cadr item)
                                     ""
                                     ))
                           )
               )
         )
  )
  (setq line (1+ line) count (1+ count))
  )
         
(xls ret '("Столбец 1" "Столбец 2" "Операции" "Примечания") nil "Test")

Недостающая ф-ция xls и коментарии к ней здесь

[doki]

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

[doki]

не получается ввести формулу:

=2*(округлвверх(D5/300;0)+1+округлвверх(Е5/300;0)+1

при такой записи в программе

(setq row d1 colm 5 )
(vlax-put-property cll "Item" row colm (vl-princ-to-string "=2*(округлвверх(D" (itoa row) "/300;0)+1+округлвверх(E" (itoa row) "/300;0)+1"))

отавляет пустую ячейку.... а если убираешь (itoa row) то все нормально.... поправте меня если что-то неправильно...

[fixo]

Наверно, лучше так:

Код:

[Выделить все]

(setq row d1 colm 5 )
(vlax-put-property cll "Item" row colm (vl-princ-to-string "=2*(округлвверх(D" (itoa row) "/300;0)+1+округлвверх(E" (itoa row) "/300;0)+1"))

~'J'~

[doki]

а в чем разница?

[VVA]

По моему там strcat пропущен

Код:

[Выделить все]

(setq row 5
      colm 5
) ;_ end of setq
(vlax-put-property
  cll
  "Item"
  row
  colm
  (vl-princ-to-string
    (strcat
            "=2*(округлвверх(D"
            (itoa row)
            "/300;0)+1+округлвверх(E"
            (itoa row)
            "/300;0)+1"
    ) ;_ end of strcat
  ) ;_ end of vl-princ-to-string
) ;_ end of vlax-put-property

[doki]

и strcad не помогает

[Кулик Алексей aka kpblc]

Меня терзают смутные подозрения, что имя функции в формуле надо прописывать английское. Было вроде такое на 97-м и 2000-м офисах (можно посмотреть, запустив запись макроса внутри Excel'a и проанализировав полученный код).

[doki]

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

[Кулик Алексей aka kpblc]

Я не смотрел лисп, у меня вопрос - а сама формула-то верно записана? Тупое копирование вызвало ошибку (пропущена скобка), и формула (представление в строке формул) должна быть такого типа (если я верно ее понял):

Код:

[Выделить все]

=2*(ОКРУГЛВВЕРХ(D5/300;0)+1+ОКРУГЛВВЕРХ(E5/300;0))+1

Для VBA-шного макроса получается нечто типа (формула вводится в ячейку F11), при использовании метода FormulaR1C1 объекта ActiveCell:

Код:

[Выделить все]

"=2*(ROUNDUP(R[-6]C[-2]/300,0)+1+ROUNDUP(R[-6]C[-1]/300,0))+1"

Можно попробовать и такое:

Код:

[Выделить все]

"=2*(ОКРУГЛВВЕРХ(D5/300;0)+1+ОКРУГЛВВЕРХ(E5/300;0))+1"

Но это уже при использовании метода FormulaLocal объекта ActiveCell.

[doki]

заработала...наверно нужно было большими буквами писать.....

[Кулик Алексей aka kpblc]

Не-а, скобки надо было проконтролировать