Программирование в Excel

[palytsh]

Katrin1981 Используй COM-объект HTMLfile

[Ethermind]

Как известно, excel хорошо использует встроенные формулы.
Но я хочу написать свою, и пользоваться ею как встроенной.
Я нашёл Visual Basic, написал её (вроде), но когда пишу её имя =MyFormula();, то excel говорит, что такой формулы не существует (#ИМЯ!).

Вопрос: как осуществить задуманное?

[Ethermind]

Вопрос снят. Другой вопрос:

Ещё вопрос: возможно ли перевести из VB просто на язык Excel функцию:

Function discount(sec As Integer) As Integer
alert = 0

Select Case sec
Case Is >= 241
alert = 30
Case Is >= 201
alert = 25
Case Is >= 161
alert = 20
Case Is >= 121
alert = 15
Case Is >= 81
alert = 10
Case Is >= 41
alert = 5
End Select

discount = alert
End Function

[Sternchen]

=WENN(A2>=41;"5";WENN(A2>=81;"10";WENN(A2>=121;"15 ";WENN(A2>=161;"20";WENN(A2>=201;"25";WENN(A2>=241 ;"30"))))))

У меня немецк. Excel, на ENG замени WENN на IF, на русском на ЕСЛИ

[vzorro]

Цитата: Сообщение от Sternchen =WENN(A2>=41;"5";WENN(A2>=81;"10";WENN(A2>=121;"15 ";WENN(A2>=161;"20";WENN(A2>=201;"25";WENN(A2>=241 ;"30")))))) У меня немецк. Excel, на ENG замени WENN на IF, на русском на ЕСЛИ

Цитата: Сообщение от Sternchen Как известно, excel хорошо использует встроенные формулы. Но я хочу написать свою, и пользоваться ею как встроенной. Я нашёл Visual Basic, написал её (вроде), но когда пишу её имя =MyFormula();, то excel говорит, что такой формулы не существует (#ИМЯ!). Вопрос: как осуществить задуманное?

Есть сайты
где доступно и подробно описано про excel
_http://msoffice.nm.ru/
_http://www.planetaexcel.ru/

[Basik]

Привет Всем ! Помогите с простецкой задачей. Есть табица в Excel в которой нужно что один столбик "D1" отнимался от другого "C1" нажатем на кнопку и чтоб после этого действия, значение "C1" остовалось изменённым, а отнимаемый результат из столбца из "D2" освобождался для дальнейших подсчетов.

Заранее багодарен

[korniec]

Всем привет. Необходимо создать график учета рабочих смен, смены дневные и ночные, и чтоб каждая смена при вводе приравнивалась к 1-це, т. е. Н - 1; Д - 1, чтоб в дальнейшем они суммировались, а так же вычеслить сумму общую, при суммировании всех смен. Необходимо использовать встроенные в Excel функции.

[r1x]

Нет ли у кого под рукой кода для автоматического обновления курса валют с cbr.ru? Где то видел и не могу найти

[blizz1205]

Добрый день. Вопрос не про Excel, а про Word, но касается VBA, просто не нашел соответствующей темы. Есть открытый документ, в него надо вставить текст из другого документа. Я сейчас делаю это через Copy/Past,

ВордПредмет.Selection.WholeStory();
ВордПредмет.Selection.Copy();
Замена = Ворд.Content.Find;
Замена.Execute("{Предмет}",Ложь,Истина,Ложь,,,Исти на,,Ложь,"^c");

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

[blizz1205]

Всем спасибо за помощь, в этом вопросе уже сам разобрался

[greenlook]

Привет!
Такой вот вопрос. Нужно создать процедуру на VBA, которая бы формировала произвольную дату и время и помещала их в ячейку.
Например, текущие дата/время можно получить при помощи кода:

Sub GetNow()
  cells(1,1) = Now
End Sub

Дата, которая известна на момент создания кода, тоже легко получается:

Sub GetStaticDate()
  cells(1,1) = #7/19/2010 1:00:00 PM#
End Sub

А как получить дату, если мы задаем число, месяц, год, час, минуту в качестве параметров?

Sub GetDinamicDate(day,month,year,hour,minute,second)
  ' ????? что здесь ?????
End Sub

[trivsi]

Подскажите как в excel просуммировать в строке, состоящей из значений разного формата (денежный, числовой, %), денежные ячейки и цифровые. Итоговая сумма должна быть в конце строки.

[MuhaZ]

Цитата: Сообщение от greenlook Привет! А как получить дату, если мы задаем число, месяц, год, час, минуту в качестве параметров? Sub GetDinamicDate(day,month,year,hour,minute,second) ' ????? что здесь ????? End Sub

Может быть сгенерировать по отдельности случайные дату, месяц, час, минуты.
А потом собрать в String и уже его подсунуть?

[markmark]

Цитата: Сообщение от r1x Нет ли у кого под рукой кода для автоматического обновления курса валют с cbr.ru? Где то видел и не могу найти

Мастером сделал, далее сам можешь подкрасивить!

Sub Макрос1()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://cash.rbc.ru", _
Destination:=Range("A1"))
.Name = "cash.rbc.ru"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Добавлено через 3 минуты

Цитата: Сообщение от korniec Всем привет. Необходимо создать график учета рабочих смен, смены дневные и ночные, и чтоб каждая смена при вводе приравнивалась к 1-це, т. е. Н - 1; Д - 1, чтоб в дальнейшем они суммировались, а так же вычеслить сумму общую, при суммировании всех смен. Необходимо использовать встроенные в Excel функции.

Функция СУММЕСЛИ() или СЧЁТЕСЛИ() не подходят?

[MuhaZ]

Цитата: Сообщение от r1x Нет ли у кого под рукой кода для автоматического обновления курса валют с cbr.ru? Где то видел и не могу найти

Можно попробовать без макроса.

Данные->Импорт внешних данных->Создать веб-запрос-> Отмечаем нужную ячейку/данные и дальше все просто.

Еще можно вывести меню Внешние данные, настроить частоту обновления и т.д.