powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range
7 сообщений из 7, страница 1 из 1
Range
    #33663998
minmuchka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Необходимо создать переменную (в памяти, т.е. без использования set) тип - Range с несколькими Value2
...
Рейтинг: 0 / 0
Range
    #33664573
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
minmuchka, не совсем ясен вопрос, опишите задачу более конкретно.
...
Рейтинг: 0 / 0
Range
    #33665403
minmuchka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ситуация следующая.
1. В VBA необходимо в функции DMax() or DMin() устанавливать условия для нахождения максимального или минимального значения.
2. Синтаксис данных функций предполагает аргументы типа Range
3. Мне нужен аргумент типа Range не с листа по ячейкам, так как мне нельзя изменять значения ячеек.
...
Рейтинг: 0 / 0
Range
    #33665476
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кто тебе сказал что использование объектов типа 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
Range
    #33668965
minmuchka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
Range
    #33672103
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
minmuchkaЕсли бы это было так просто !!!Все именно так просто.

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

Set myCriteria = Worksheets("Sheet1").Range("E1:G2")
после этого когда я меняю значения myCriteria, меняется также значение в этих ячейках.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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