Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Святослав И
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
[ Закрыто] Опять про картинки, Вставка картинок по значению соседней ячейки
 
#
01.09.2018 18:33:08
Привет, народ,

Гуглил, гуглил здесь... Ничего похожего не нашёл, буду признателен, если надоумите.

ТЗ:
  1. Есть столбец А, где стоят по порядку числа от 1 до 50
  2. Есть столбец B, в котором рандомно генерится массив случайных случайных чисел (в формате текст - 001, 090 и так далее) в диапазоне (скажем от 1 до 115). Числа в массиве не дублируются. Количество генерируемых чисел строго соответствует количеству строк в столбце А - другими словами, размер массива - 50 случайных чисел
  3. В папке лежит массив картинок, пронумерованных сообразно параметрам случайных чисел (001 ... 115).png. все картинки строго одного размера
  4. Очевидно, что при очередной итерации, числа в столбце В меняются
  5. Сообразно этому, в столбец C нужно подтягивать картинки с соответствующими номерами. А при изменении номеров в столбце B, менять и картинки
  6. Хорошо бы получить подсказку, как написать сие чудо в режиме приватной функции на VBA (не макрос), Скажем что-то вроде - =GetPicture(B5)
За ранее кланяюсь в ноги всем знатокам VBA!
 
Перейти    
Расчёт плотности нефтепродуктов, по стандарту ГОСТ Р 50.2.076-2010
 
#
29.10.2017 11:50:26
Здравствуйте,

Друзья, поддержите, если возможно советом. За последние неск. дней все мозги сломал, но так и не нашёл ошибки. Подозреваю, что банально замылился глаз и не вижу того, что лежит под носом.

Итак, есть стандарт. В нём приведены чёткие уравнения и алгоритмы расчёта плотности нефтепродуктов, в зависимости от температуры/давления. Вот примерная схема расчётов:
Скрытый текст

С этим вроде как всё ясно и понятно. Изначальная задача:  вывести р15 из замеров топлива, находящегося в произвольном состоянии. На основании вышепривёдённых данных, родился следующий текст в VBA:
Код
Function P_to_15(dens, temp, Optional p)
k0 = 613.9723
k1 = 0
k2 = 0
If IsMissing(p) = True Then
    p = 0
End If

old_dens = 0
new_dens = dens

Do Until Abs(new_dens - old_dens) = 0
    b15 = ((k0 + k1 * new_dens) / new_dens ^ 2) + k2
    Yt = 10 ^ -3 * Exp(-1.6208 + 0.00021592 * temp + ((0.87096 * 10 ^ 6) / new_dens ^ 2) + ((4.2092 * temp * 10 ^ 3) / new_dens ^ 2))
    old_dens = new_dens
    new_dens = (dens * Exp(-b15 * (temp - 15) * (1 + 0.8 * b15 * (temp - 15)))) / (1 - Yt * p)
Loop
P_to_15 = Application.Round(new_dens, 2)
End Function
И вроде бы всё хорошо. Но, не всё хорошо. Считает не правильно. В том же стандарте приводится пример для расчёта. Следуя которому - мною написанное даёт иные результаты. Вот пример:
Скрытый текст

Прицепил файлик, в котором играюсь. Буду крайне признателен, если ткнёте носом в ошибку!
Изменено: Святослав И - 29.10.2017 15:45:14
 
Перейти    
Фильтр данных из массива с помощью второго массива
 
#
11.04.2016 15:26:02
Коллеги, нужна помощь,

Вторые сутки пытаюсь решить задачку, и мозг уже кипит. Возможно всемогущий коллективный разум сталкивался или просто знает как решить

Есть два массива, которые описаны как динамические именованные диапазоны (DNR).

Массив №1 содержит исходные данные (массив - произвольной длины),
Массив №2 содержит данные, которые необходимо удалить из первого массива и на основании полученных вычислений заполнить третий массив
Массив №3 содержит отфильтрованные данные из первого массива

Данные первого и второго массива совсем не обязательно должны совпадать. Может оказаться, что не окажется совпадающих имён, в этом случае - данные из первого массива целиком переносятся в третий массив.

Прилагаю картинку для наглядности и непосредственно файл с примером

Изменено: Святослав И - 11.04.2016 15:26:59
 
Перейти    
Замена "ёлочки" в расчётах: сколько каких ТО будет проведено с учётом динамики продаж
 
#
27.05.2014 18:07:37
Добрый день,

Буду безмерно благодарен, если кто-то надоумит, как заменить классическую ёлочку в расчётах на что-то более вразумительное. Другими словами - посчитать всё то же самое, но в одной строке. Я видел здесь примеры для расчёта амортизации. К сожалению, пример с амортизацией в моём случае не работает. Я пробовал аналогичным образом применить все эти OFFSET, MIN, MAX функции. Но опыта в экселе маловато.  :(

В приводимом примере ситуация следующая. Каждый квартал происходит продажа неких технических комплексов, для которых ежеквартально необходимо проводить малое ТО. Раз в год - проводится большое ТО. Всего ТО проводятся три года с момента продажи. Необходимо рассчитать  - сколько каких ТО будет проведено с учётом динамики продаж.

Заранее благодарен за любые подсказки
 
Перейти    
Страницы: 1
Наверх