Пусть тогда будут кнопка и функции. Как тогда можно сделать?

Например,
если есть таблица соответствий (по возрастанию! коэффициентов)
то в А3 можно писать числа, а в В3 написатиь формулу и отформатировать как дату - там будут подбираться числа из таблицы

Спасибо, поиск у меня получился! Теперь осталось разобраться с пересчетом валюты.

А ты отдаешь себе отчет, что если евро-цены стереть, то кнопку Пересчитать можно будет нажать только один раз?
Стоит ли ради этого делать кнопку?

Типа этого что-нить...

Код, который вы мне написали, не работает Все время выходит сообщение об ошибке.

Я думаю, что кнопка нужна, т.к. надо будет делать пересчет не во всей таблице данных сразу, а по столбцам. 1 столбец - 1 курс и дата, 2 столбец -2 курс,... В разных столбцах разные курсы.
И еще вопрос по поводу коэффициентов и даты.
Как сделать так, чтобы вводимые коэффициент и дата автоматически записывались на другом листе, и оттуда же выходили по поиску на листе, где они вводятся ( на листе с данными пересчета)?

Сообщение отредактировал Amirana - 25.2.2008, 16:22

Какие данные в А1? есть ли данные в В3?

Чет задание меняется с каждым днем...

В этих ячейках я данные ввела, но почему-то с ошибкой сначала выходит эта строка (выделяется желтым цветом)



и после нее все строки подряд.
В ячейках А1 и В3 данные есть.

Что касается задания, я его не меняла.

А как у тебя лист называется? не Лист1?

Что именно пишет в окне сообщения об ошибке?

Ты копируешь или перепечатываешь?

Я копирую, а потом корректирую под свои адреса в ячейках. У меня называется "Лист1", меняла на другие имена, но все равно выходит сообщение об ошибке "Invalid...."

А дальше?

И скорректированный текст процедуры желательно

Я ваш код не меняла, только изменила адреса.
С Sheets("Лист1").Select ошибок больше нет, появилось другое сообщение об ошибке.
Ну, Бейсик! Не здесь, так в другом месте ошибку найдет!

Private Sub CommandButton1_Click()
Dim i As Integer, k As Single
Dim st As String
Sheets("Лист1").Select
i = 6 'номер строки с которой начинать пересчет
Range("F" + Chr(i + 48)).Select 'B- столбец с ценами в евро здесь и ниже в формулах
Do
k = Range("F" + Chr(i + 48)) * Range("J6") 'J6 - ячейка с коэффициентом для пересчета
ActiveCell.Formula = k
i = i + 1
Range("F" + Chr(i + 48)).Select (Выделяется желтым цветом)
Loop While Range("F" + Chr(i + 48)) <> ""
End Sub

Сообщение отредактировал Amirana - 28.2.2008, 14:04

Какую ошибку пишет?

Точно такая же строчка после i=6 была

Да, Visual Basic - не подарок
Копирование кода с трудом переносит
Желательно ДО запуска "пройтись" текстовым курсором вдоль всего кода сверху-вниз, чтоб Бейсик код построчно проверил

Сообщение об ошибке выходит такое:

Run-time error '1004':
Method 'Range' of object'_Worksheet' failed

Попробуй в редакторе поставить текстовый мигающий курсор на первое слово Dim и
нажимая на "стрелку вниз" на клаве переместится до конца процедуры. Затем сохрани

Попробовала, как вы посоветовали, И копировала и печатала, теперь кнопка не работает!

Сделай новую
Или всю книгу новую

Сделала новую кнопку, в новом листе, теперь опять ошибки выдает , начиная с 1 строки и до конца. То название листа не нравится "Invalis outside procedure", то еще что-то.

Не лист новый, а всю книгу заново создай.

Спасибо, у меня наконец-то все получилось!
Осталось совсем немнножко.
Как сделать так, чтобы вводимые даты и коэффициенты автоматически сохранялись на другом листе, чтобы "вытаскивать" их через поиск на листе пересчета?