Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Массив со своими правилами - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Массив со своими правилами ("отключить" указанный массив от общих правил)
Массив со своими правилами
0mega Дата: Суббота, 06.11.2010, 18:39 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 34 ±
Замечаний: 0% ±

Доброе время суток.
Есть некоторый массив. В этом массиве используется несколько генераторов СЛЧИС()
Нужен макрос, при помощи которого можно зафиксировать эти значения и заблокировать генераторы.
Более подробно вопрос расписан в файле
К сообщению приложен файл: Svoi_pravila.xls (10.5 Kb)
 
Ответить
СообщениеДоброе время суток.
Есть некоторый массив. В этом массиве используется несколько генераторов СЛЧИС()
Нужен макрос, при помощи которого можно зафиксировать эти значения и заблокировать генераторы.
Более подробно вопрос расписан в файле
Автор - 0mega
Дата добавления - 06.11.2010 в 18:39
Hugo Дата: Суббота, 06.11.2010, 20:54 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Так годится? Новые значения генерятся при каждом изменении Z1, если Z1>10
К сообщению приложен файл: 3997013.xls (39.0 Kb)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеТак годится? Новые значения генерятся при каждом изменении Z1, если Z1>10
Автор - Hugo
Дата добавления - 06.11.2010 в 20:54
KuklP Дата: Суббота, 06.11.2010, 21:09 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
Private Sub Workbook_Open()
If Me.Worksheets("Лист3").[Z1].Value > 10 Then
Randomize Timer
With Me.Worksheets("Лист3")
.[R2] = Round(Rnd * 49, 2) + .[E3]
.[U2] = Rnd * 99 + .[E4]
.[X2] = Rnd
.[Z2] = Rnd * ([E3] + [E4])
End With
End If
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
If Me.Worksheets("Лист3").[Z1].Value > 10 Then
Randomize Timer
With Me.Worksheets("Лист3")
.[R2] = Round(Rnd * 49, 2) + .[E3]
.[U2] = Rnd * 99 + .[E4]
.[X2] = Rnd
.[Z2] = Rnd * ([E3] + [E4])
End With
End If
End Sub
[/vba]
Автор - KuklP
Дата добавления - 06.11.2010 в 21:09
KuklP Дата: Суббота, 06.11.2010, 21:16 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
А я подумал, что только при открытии книги надо проверять. Тогда
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[Z1].Value > 10 Then
Randomize Timer
Application.EnableEvents = False
With Me
.[R2] = Round(Rnd * 49, 2) + .[E3]
.[U2] = Rnd * 99 + .[E4]
.[X2] = Rnd
.[Z2] = Rnd * ([E3] + [E4])
End With
End If
Application.EnableEvents = True
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Суббота, 06.11.2010, 21:26
 
Ответить
СообщениеА я подумал, что только при открытии книги надо проверять. Тогда
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[Z1].Value > 10 Then
Randomize Timer
Application.EnableEvents = False
With Me
.[R2] = Round(Rnd * 49, 2) + .[E3]
.[U2] = Rnd * 99 + .[E4]
.[X2] = Rnd
.[Z2] = Rnd * ([E3] + [E4])
End With
End If
Application.EnableEvents = True
End Sub
[/vba]
Автор - KuklP
Дата добавления - 06.11.2010 в 21:16
0mega Дата: Суббота, 06.11.2010, 21:20 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 34 ±
Замечаний: 0% ±

Игорь,
благодарю за уделенное время.
это то, что мне хотелось
 
Ответить
СообщениеИгорь,
благодарю за уделенное время.
это то, что мне хотелось
Автор - 0mega
Дата добавления - 06.11.2010 в 21:20
Hugo Дата: Суббота, 06.11.2010, 21:27 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Пожалуйста.
Вариант Сергея будет давать новые значения при каждом изменении листа, если [Z1].Value > 10.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеПожалуйста.
Вариант Сергея будет давать новые значения при каждом изменении листа, если [Z1].Value > 10.
Автор - Hugo
Дата добавления - 06.11.2010 в 21:27
KuklP Дата: Суббота, 06.11.2010, 21:33 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ну да. Надо поспать. После последней ночной еще не ложился:-)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеНу да. Надо поспать. После последней ночной еще не ложился:-)
Автор - KuklP
Дата добавления - 06.11.2010 в 21:33
feik Дата: Вторник, 29.03.2016, 11:07 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Друзья добрый день!
Поделитесь идеей пожалуйста.
Имеется список блюд, меню. (список)
Имеется массив (данные) проданных блюд в какой то период, его выгружаю из кассовой системы. Названия блюд в массиве похожий но, система присваивает свои доп обозначения (акций или наборов).
Очень нужно найти совпадения блюда из "списка" в "данных" и вернуть его количество к соответствующему блюду в "списке".
функция ВПР тут идеально работает, но, в "данных" блюда порой повторяюся, а ВПР берет первое подходящее значение, следовательно другие последующие совпадения не учитываются, к тому же доп обозначения системы часто обновляются.
О чем мечтаю: Чтобы в списке из блюд проставлялось сумма проданных блюд имеющие максимально похожие названия.
Скажем на против "Пицца Капуста" в графе количество посчиталась сумма всех продаж наименований, которые содержит текст "Пицца Капуста", независимо от приставок.
Это реально? Как можно это сделать?
Заранее очень признателен за помощь.
[moder]Прочитайте Правила форума.
Создайте свою тему с примером.
Эта тема закрыта.[/moder]

нет нет, да и да!)

Сообщение отредактировал Manyasha - Вторник, 29.03.2016, 11:20
 
Ответить
СообщениеДрузья добрый день!
Поделитесь идеей пожалуйста.
Имеется список блюд, меню. (список)
Имеется массив (данные) проданных блюд в какой то период, его выгружаю из кассовой системы. Названия блюд в массиве похожий но, система присваивает свои доп обозначения (акций или наборов).
Очень нужно найти совпадения блюда из "списка" в "данных" и вернуть его количество к соответствующему блюду в "списке".
функция ВПР тут идеально работает, но, в "данных" блюда порой повторяюся, а ВПР берет первое подходящее значение, следовательно другие последующие совпадения не учитываются, к тому же доп обозначения системы часто обновляются.
О чем мечтаю: Чтобы в списке из блюд проставлялось сумма проданных блюд имеющие максимально похожие названия.
Скажем на против "Пицца Капуста" в графе количество посчиталась сумма всех продаж наименований, которые содержит текст "Пицца Капуста", независимо от приставок.
Это реально? Как можно это сделать?
Заранее очень признателен за помощь.
[moder]Прочитайте Правила форума.
Создайте свою тему с примером.
Эта тема закрыта.[/moder]
Автор - feik
Дата добавления - 29.03.2016 в 11:07
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Массив со своими правилами ("отключить" указанный массив от общих правил)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!