Я понял, спасибо.

Файл можно скачать здесь -  https://ru.files.fm/u/td47ax7x

Файл с визуализацией в любом случае весит 1 МБ.  

Добрый день!

Столкнулся с проблемой. Хотел подкрасить все области в РФ, но почему-то некоторые области/регионы(к примеру красноярский край) не выделяются так, как хотелось бы. Также город Москва не подсвечивается.

Т.к. тут ограничение 100кб, не могу прикрепить итоговый файл, прикреплен файл со списком областей. :-(

Подскажите как решить эту проблему?

Спасибо!

Добрый вечер, господа!

Столкнулся с такой проблемой - при загрузке в сводную данных из БД в формате даты, дата разбирается на следующие составляющие.
Подскажите, не могу найти как внутри сводной поменять формат, чтобы было не *янв* , *фев* и т.п., а чтобы были номера 1,2,3... и т.п.?  

Апострофф, этот способ знаю, спасибо за участие:-) Однако это костыль.

После отрабатывания основного кода, нужно чтобы была открыта определенная вкладка.  

Добрый день!

Задался вопросом, возможно ли открывать(перелистывать) вкладки(Главная, Вставка, Вид и т.д.)  с помощью макроса?
Нашел код, где можно вывести id кнопок, но так и не смог их переключать.

Скрытый текст

Public Sub BET_ListControls()Dim control As CommandBarControls Dim icount1 As Integer Dim icount2 As Integer Dim icount3 As Integer For icount1 = 1 To CommandBars.Count   With CommandBars.Item(icount1)   For icount2 = 1 To .Controls.Count   On Error Resume Next      For icount3 = 1 To .Controls(icount2).Controls.Count         ActiveCell.Value = .Name         ActiveCell.Offset(0, 1).Range("A1").Select         ActiveCell.Value = .Controls(icount2).Caption         ActiveCell.Offset(0, 1).Range("A1").Select         ActiveCell.Value = .Controls(icount2).ID         ActiveCell.Offset(0, 1).Range("A1").Select         On Error Resume Next         ActiveCell.Value = .Controls(icount2).Controls(icount3).Caption         ActiveCell.Offset(0, 1).Range("A1").Select         ActiveCell.Value = .Controls(icount2).Controls(icount3).ID         ActiveCell.Offset(1, -4).Range("A1").Select      Next icount3   Next icount2   End With Next icount1 End Sub

Подскажите, как это можно реализовать?

Вручную, когда захожу проверить ее - она нажата

Да я уже прочитал вашу статью. Спасибо за ответ.

Спасибо всем!

Он отрабатывает, когда я открываю путь к этой галочке, она активирована.. Только вот до этого момента она почему-то неактивна:-)(
Может можно как-то с помощью макроса открыть этот путь?

Да спасибо. Пока что проблема в этом.  Теперь хочу с помощью макроса проставлять это в excel'е

Sub Enable_AccessVBOM()
    On Error Resume Next
    Key$ = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & _
           "\Excel\Security\AccessVBOM"
    CreateObject("WScript.Shell").RegWrite Key$, 1, "REG_DWORD"
End Sub

По идее - это решение.

Но почему-то оно не срабатывает.  

Извините, очепятка:-) Можно не переменную, а item(activesheet.name)

перепутал х и у местами.

Здравствуйте! Столкнулся с такой ситуацией, excel 2016 не реагирует на такие вещи

Предыдущие версии Excel срабатывают и считывают информацию. Здесь же не работает ActiveWorkbook.VBProject.VBComponents.Item(Y).CodeModule.Lines(1, 5)

Как и вставка тоже.  Подскажите, в чем проблема?

я не вижу смысла в ваших сообщениях. вообще.

человек задал вопрос на форуме, я предлагаю вариант без особых разбирательств с excel.

а вы просто занимаетесь флудом.

сначала надстройкой, потом запись макроса. а можно изначально сделать запись макроса и немного полазить. без надстроек или макросов этого не сделать.

http://www.planetaexcel.ru/plex/features/21/259/
Мне кажется это оно.

Привет! Русский язык уехал из-за кодировки, можете поправить? и файлик откуда что берется и куда- для примера. Будет гораздо легче понять задачу.  

Upd. Оптимально решает:-) Для того, чтобы получить оптимальное решение, нужно отсортировать в порядке убывания базы(сверху вниз) и в порядке убывания пункты (справа налево). Проверил на 12 месячной выборке, таблицы 87х12, получилось с учетом объединения итераций во временном срезе, общее количество итераций 119(+- зависит от чисел) .

Огромное спасибо!
Персонально - спасибо Мартын :-)

достаточно формулу, посмотрите - в коде  нет привязки к ячейкам.

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

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

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

спасибо.

upd. файлик поправил и добавил еще один месяц для наглядности.
upd2. Может можно как-то расставлять в ячейки веса в зависимости от того, есть ли на предыдущем листе в этой ячейке данные или нет?  

Да, конечно. Вот пример 87х12. Следующий вопрос, если добавить периоды для тех же самых баз и пунктов, т.е. в месяц1 - одни цифры, в месяц2 - другие цифры, но нужно получить минимальное количество итераций между определенным пунктом и базой в течение всего периода. Я опять мог некорректно выразиться, если что готов расписать подробнее:-)

Вот мне интересно, как он идет по минимальному пути сопротивления.  

Отличное распределение!) В принципе проверил на матрице где-то 90х12, распределил в 96 ячеек, мат.инструмент дал такой же результат.
Правда его надо видоизменить. Но всеравно спасибо за направление

Если кому-то интересно, у задачи есть дальнейшее усложнение.  

из ячейки нельзя вытащить данные не открыв книгу. я как-то пытался такое првеорнуть, он то вытаскивал, то в итоге у меня в принципе эксель не работал, пока я не стер файл с макросом:-)

Есть такая функция, теоретически поиск решения должен отрабатывать на ней.
=СЧЁТЕСЛИ(L1:N5;">0")

и ее минимизация, должна выдать решение, но почему-то он ее вообще не воспринимает.  

Я вроде объяснение выше написал. Так тоже непонятно?
Условно, можно интерпретировать как транспортную задачу .

У пунктов есть лимит по вместимости (в файле 170, 160, 38), а количество условного товара, больше чем лимит первого пункта. Соответственно нужно делить.

Минимизировать необходимо количество итераций. Итерация  - это перенос товара из базы в пункт(одна ячейка).  

Либо стоит открыть файлик, а не *умничать* на форуме? Если хочется пофлудить, можно найти другой форум или чат.

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

Здравствуйте!
Есть условие - на базах(база1,база2,база3..) есть объем условного товара, необходимо за минимальное количество итераций переместить его по пунктам(пункт1,пункт2,пункт3), неважно какой куда, главное освободить базы.

К какому типу задач это можно отнести? Просьба направить на решение с помощью excel.

В прикрепленном файле я попробовал решить это с помощью надстройки *поиск решения*, но почему-то не могу указать целевую функцию в виде "=СЧЁТЕСЛИ(L1:N5;">0")" , так же у поиска решения существует ограничение в 100(или 200 ячеек?), а мне хочется сделать этот инструмент универсальным.

Спасибо.