Доброго времени суток!
Как можно будет использовать эту формулу расчета в VBA:

Код

With Sheets("Лист2") Me.TextBox3.Value = WorksheetFunction.DSum(.Range(.Cells(4, 1), .Cells(10, 5)), _ "Доход", .Range(.Cells(1, 1), .Cells(2, 6))) End With

При условие, что база данных и условия находятся в разных книгах.
Пример:
Книга 1 содержит в себе Базу данных , таблицу с каким то списком.
Книга 2 содержит в себе запускающуюся UserForm в TextBoxe которой указана выше написанная формула
условия для поиска и суммирования тоже находятся в Книге 2.

Можно ли использовать две книге на примере Клиент>Сервер, тоесть не активируя Книгу1 , суммировать по условию значения в Книге?

Заранее спасибо.

Цитата

Можно ли использовать две книге

можно

Цитата

на примере Клиент>Сервер

при чем тут это?

Цитата

не активируя Книгу1

нет

Akina

можете помочь с кусочком кода?

Цитата

можете помочь с кусочком кода?

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

Akina
Да зарегестрирован я, просто пароль посеял неизвестно хде ((
Уважаемая, окажите неизвестному , незарегестрированому пользователю помощь )) НГ как не как на носу уже))
Меня более интересует как обновлять неоткрывая второй книги, а другое думаю если покапатся + ваши подсказки. то найти мона )
Заранее спасибо!

Если указывать полный путь ,то можно.Попробуй для начала записать макрос и посиотри ,что получится.Также есть - Правка-специальная вставка-установить связь.И еще хорошее средство Правка-изменить связь.

Staruha
Вот проблема то и в этом, что незнаю как указать путь к диапазону в другой книге
Если бы база данных была на том же листе , что и условия, то с этим разобрался, а вот дальше додумать немогу ((

А вобще почитай про коллекции и объекты

Это сообщение отредактировал(а) Staruha - 19.12.2005, 23:04

Цитата

незнаю как указать путь к диапазону в другой книге

открой обе книги. в одной кликни по пустой ячейке. набери там руками =Dsum(, после чего переключись в другую книгу и выдели там мышом диапазон, вернись в первую и изучай...

Цитата

открой обе книги. в одной кликни по пустой ячейке. набери там руками =Dsum(, после чего переключись в другую книгу и выдели там мышом диапазон, вернись в первую и изучай...

Сорри, но речеь идет о VBA , а не функиях Экзеля

Код

With Sheets("Касса") Me.TextBox8.Value = WorksheetFunction.DSum(.Range(.Cells(3, 1), .Cells(60000, 20)), _ "Оплата", .Range(.Cells(4, 26), .Cells(5, 28))) End With

Вот так все работает, но это если и база данных и условия на одном листе и книге, а вот если сделать так

Код

With Workbooks("ОР").Sheets("Оплата") Me.TextBox208.Value = WorksheetFunction.DSum(.Range(.Cells(8, 1), .Cells(100, 6)), _ "Сумма", .Range(.Cells(4, 25), .Cells(5, 27))) End With

То тоже работает, но для этого книга ОР должна быть открыта.
Мне нужно сделать , чтобы не открывая другую книгу можно было счесть с нее необходимые данные и просчитать

Это сообщение отредактировал(а) Displey - 20.12.2005, 11:26

Ну вот освободилась.Не обижайся ,что ответ затянулся ,сама так никогда не делала.Работает
А принцып такой - Вставляем формулу ,фотографируем значение и удаляем формулу

Код

Private Sub CommandButton1_Click()   Range("A1").Formula = "=[444.xls]Лист1!$F$12"    Range("B1").Value = Range("A1").Value   Range("A1").Value = "" End Sub

Название книги 444 имя листа Лист1 Ячейка F12. Все находится в одной папке.
Вместо B1 можешь взять переменную и вставлять ее куда хочешь ,хоть в A1.

С Наступающим! ))
Эт самое, но мне эт не совсем подходит, ведь у меня же постоянно обновляемые значения в одной книге и суммирование с условием в другой ((