Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range / 7 сообщений из 7, страница 1 из 1
13.04.2006, 12:43:35
    #33663998
minmuchka
minmuchka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range
Необходимо создать переменную (в памяти, т.е. без использования set) тип - Range с несколькими Value2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 14:36:00
    #33664573
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range
minmuchka, не совсем ясен вопрос, опишите задачу более конкретно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 17:56:24
    #33665403
minmuchka
minmuchka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range
Ситуация следующая.
1. В VBA необходимо в функции DMax() or DMin() устанавливать условия для нахождения максимального или минимального значения.
2. Синтаксис данных функций предполагает аргументы типа Range
3. Мне нужен аргумент типа Range не с листа по ячейкам, так как мне нельзя изменять значения ячеек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 18:21:36
    #33665476
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range
Кто тебе сказал что использование объектов типа Range это обязательно изменение значений в ячейках?

Код: plaintext
1.
2.
3.
4.
    Dim myDB As Range, myCriteria As Range, answer As Integer
    Set myDB = Worksheets("Sheet1").Range("A1:C8")
    Set myCriteria = Worksheets("Sheet1").Range("E1:G2")
    answer = Application.WorksheetFunction.DMin(myDB, "SecondField", myCriteria)
    MsgBox answer
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2006, 19:01:09
    #33668965
minmuchka
minmuchka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range
Dim myDB As Range, myCriteria As Range, answer As Integer
Set myDB = Worksheets("Sheet1").Range("A1:C8")
Set myCriteria = Worksheets("Sheet1").Range("E1:G2")
answer = Application.WorksheetFunction.DMin(myDB, "SecondField", myCriteria)
MsgBox answer

Если бы это было так просто !!!

Set myCriteria = Worksheets("Sheet1").Range("E1:G2")
Если менять условия то меняются значения ячеек, а это мне делать нельзя (бесконечный цикл :-))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.04.2006, 19:30:13
    #33672103
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range
minmuchkaЕсли бы это было так просто !!!Все именно так просто.

minmuchka Set myCriteria = Worksheets("Sheet1").Range("E1:G2")
Если менять условия то меняются значения ячеек, а это мне делать нельзя (бесконечный цикл :-))Что значит "если менять условия"? И откуда взялся бесконечный цикл? Рассказывай свою задачу целиком.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 14:50:08
    #33707136
levan82
levan82
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range
у меня точно такая-же проблема

Set myCriteria = Worksheets("Sheet1").Range("E1:G2")
после этого когда я меняю значения myCriteria, меняется также значение в этих ячейках.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 332ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184905]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 193ms
total:  332ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]