Добрый день!

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

Т.к. тут ограничение 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 2016 не реагирует на такие вещи

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

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

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

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

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

Спасибо.