Форум русскоязычного сообщества Ubuntu


Увидели сообщение с непонятной ссылкой, спам, непристойность или оскорбление?
Воспользуйтесь ссылкой «Сообщить модератору» рядом с сообщением!

Автор Тема: Вопрос про Visual basic  (Прочитано 2172 раз)

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

Оффлайн Slesar

  • Автор темы
  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
Вопрос про Visual basic
« : 23 Май 2007, 16:53:27 »
В общем, проблема такая. В Экселе была таблица. В ней написана функция на VB. Все под Виндой. Под убунтой 7.04 и установленным openофисом выдается ошибка, что не определен параметр и код - 91. Сам параметр не показывается. Сам не програмер на VB, человек, который писал функцию, уже надоступен. Если "аборт по телефону" не возможен, могу показать исходный код.

Оффлайн ukko

  • Любитель
  • *
  • Сообщений: 96
    • Просмотр профиля
    • uk0.us
Re: Вопрос про Visual basic
« Ответ #1 : 23 Май 2007, 17:57:50 »
Лучше бы сюда ссылку на свой файлик скинул.. А кто интересно расскомментировал код в макросе?
ubuntu 10.10

Оффлайн Slesar

  • Автор темы
  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
Re: Вопрос про Visual basic
« Ответ #2 : 24 Май 2007, 12:51:02 »
Код? Alt+F11 нажал, а там в секции  Modules все есть. Собственно код. 2 функции

Function SumColor(rgn As Range) As Double
Dim Sum As Double
Dim C As Range
Sum = 0
For Each C In rgn
    If (C.Font.ColorIndex > 0) Or (C.Interior.ColorIndex > 0) Then Sum = Sum + C.Value
Next
SumColor = Sum
End Function
Function SumNoColor(rgn As Range) As Double
Dim Sum As Double
Dim C As Range
Sum = 0
For Each C In rgn
   If (C.Font.ColorIndex <= 0) And (C.Interior.ColorIndex <= 0) Then Sum = Sum + C.Value
Next
SumNoColor = Sum
End Function

Оффлайн AMD

  • Участник
  • *
  • Сообщений: 186
    • Просмотр профиля
Re: Вопрос про Visual basic
« Ответ #3 : 17 Июнь 2007, 17:12:02 »
Вот тебе ссылка на русский форум по openoffice здесь ты точно получишь ответ
http://community.i-rs.ru/

 

Страница сгенерирована за 0.077 секунд. Запросов: 24.