Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 След.
Защита фигуры от перемещения и удаления
 
Всем спасибо.
Решение нашел.
Иногда только промахнувшись, понимаешь как ты попал.
Защита фигуры от перемещения и удаления
 
Это самое простое решение.
А есть ли возможность защитить Shapes как объекты Chart, как в примере?
Код
Private Sub Workbook_Open()
Dim Wks As Worksheet
Dim ChtObj As ChartObject
   For Each Wks In ThisWorkbook.Worksheets
      For Each ChtObj In Wks.ChartObjects
         ChtObj.Chart.ProtectFormatting= True
      Next ChtObj 
   Next Wks 
End Sub
Иногда только промахнувшись, понимаешь как ты попал.
Защита фигуры от перемещения и удаления
 
Доброго времени суток, всем.

Может кто-нибудь подсказать как правильно защитить фигуру от перемещения и удаления?  
Иногда только промахнувшись, понимаешь как ты попал.
Как закрасить графический объект
 
Спасибо за ответ.
Думаю, задача непосильная для меня(

Буду пробовать
Иногда только промахнувшись, понимаешь как ты попал.
Как закрасить графический объект
 
Андрей, спасибо.
Но я этот код красит только фон, но не рисунок.
Нужно перекрасить рисунок.
Пример выкладываю.
Иногда только промахнувшись, понимаешь как ты попал.
Как закрасить графический объект
 
Добрый день, всем участникам и администраторам.
Может кто-то подсказать как закрасить графический объект, вставляемый в эксель?
Во вложенном файле есть два разных объекта, которые я могу раскрасить вручную, но макрорекордер почему-то не пишет код. Я впервые сталкиваюсь с этой частью работы и прошу хотя бы подсказать с чего надо начать или набросать один пример. Дальше попробую разобраться сам.
Спасибо.
Иногда только промахнувшись, понимаешь как ты попал.
Нужен специалист для написания программы, Аналитика продаж, прогнозирование
 
Тема закрыта.
Иногда только промахнувшись, понимаешь как ты попал.
Создание динамического массива в цикле
 
Разобрался. Спасибо. Просто не работал с массивами.
Иногда только промахнувшись, понимаешь как ты попал.
Создание динамического массива в цикле
 
В моем случае сколько элементов будет в массиве неизвестно и добавляются только строковые переменные.
А как в этом случае поступить?
Иногда только промахнувшись, понимаешь как ты попал.
Создание динамического массива в цикле
 
Всем доброй ночи, кто не спит.

Подскажите, пожалуйста, как создать динамический массив в цикле?
Пример цикла выкладываю.
Код
Private Sub CommandButton7_Click()
   Dim i As Long
   Dim iFilterRegion As String
   Dim iFilterCity As String
   Dim iFilterRegionCity As String
   Dim arr

       iFilterRegion = "ujhs"
       iFilterCity = "jskf"

       For i = 0 To Me.ListBox2.ListCount - 1
           If Me.ListBox2.Selected(i) = True Then
           iFilterRegionCity = iFilterCity & ".&[" & Me.ComboBox5.Value & "]&[" & Me.ListBox2.List(i) & "]"
           'zdes neobhodimo dobavit pervoe i zatem vse jstalnye znachenija iFilterRegionCity v massiv arr
           '................................................
           End If
       Next i


   ActiveSheet.PivotTables("zzz").PivotFields(iFilterRegion).VisibleItemsList = Array("")
   ActiveSheet.PivotTables("zzz").PivotFields(iFilterCity).VisibleItemsList = arr

End Sub
Иногда только промахнувшись, понимаешь как ты попал.
Создание параметров фильтров сводной таблицы программно
 
Ниже приведен код который должнен быть повторен программно. Записано макрорекордером.
Код
ActiveSheet.PivotTables("Дистрибьюторы").PivotFields( _
        "[География].[География].[Корп Регион]").VisibleItemsList = Array("")
    ActiveSheet.PivotTables("Дистрибьюторы").PivotFields( _
        "[География].[География].[Область]").VisibleItemsList = Array( _
        "[География].[География].[Область].&[SOUTH]&[Адыгея Респ]", _
        "[География].[География].[Область].&[SOUTH]&[Ростовская обл]", _
        "[География].[География].[Область].&[SOUTH]&[Краснодарский край]", _
        "[География].[География].[Область].&[SOUTH]&[Ставропольский край]")
Иногда только промахнувшись, понимаешь как ты попал.
Создание параметров фильтров сводной таблицы программно
 
Код
Dim i As Long
Dim iFilterRegion As String
Dim iFilterCity As String
Dim iFilterRegionCity As String

iFilterRegion = "[География].[География].[Корп Регион]"
iFilterCity = "[География].[География].[Область]"

For i = 0 To Me.ListBox2.ListCount - 1
    If Me.ListBox2.Selected(i) = True Then
       iFilterRegionCity = iFilterRegionCity & iFilterCity & ".&[" & Me.ComboBox5.Value & "]&[" & Me.ListBox2.List(i) & "], "
    End If
Next i
iFilterRegionCity = Left(iFilterRegionCity, Len(iFilterRegionCity) - 2)
MsgBox iFilterRegionCity

ActiveSheet.PivotTables("Дистрибьюторы").PivotFields(iFilterRegion).VisibleItemsList = Array("")
ActiveSheet.PivotTables("Дистрибьюторы").PivotFields(iFilterCity).VisibleItemsList = Array(iFilterRegionCity)
Добрый день, всем.
Приведенным ниже кодом пытаюсь создать фильтр для сводной таблицы. Выглядит он правильно при выводе в MsgBox.
При работе выдает ошибку синтаксиса ",".
Когда в фильтре 1 пункт выбора - все отрабатывает, когда более - выдает ошибку синтаксиса.

Кто-то может помочь разобраться?
Спасибо.
Изменено: Эмир - 01.11.2018 11:56:31
Иногда только промахнувшись, понимаешь как ты попал.
Нужен специалист для написания программы, Аналитика продаж, прогнозирование
 
Ему стало недостаточно Excel, он стал писать в другой программной среде, не помню точно в чем...
Сейчас не берется за vba.
Мы отлично поболтали, но меня это не приближает к моей цели.
Мне нужен специалист, готовый работать.
Иногда только промахнувшись, понимаешь как ты попал.
Нужен специалист для написания программы, Аналитика продаж, прогнозирование
 
Вы шутник, однако)
Я что-то тоже понимаю в этом )))
Код нужен, не хуже, чем на вашем сайте )))
Давайте вы в личку озвучите стоимость работы.
Думаю, не менее 10000 строк будет, точно.
Работа с базой данных, получение из нее данных и обработка.
Изменено: Эмир - 02.12.2018 21:30:24
Иногда только промахнувшись, понимаешь как ты попал.
Нужен специалист для написания программы, Аналитика продаж, прогнозирование
 
Игорь, ТЗ примерное есть, но большой объем, а времени мало уточнять.
Я работал с программистом с форума таким образом:
Я даю ему форму с контролами и базу данных и объясняю, как работает.Он пишет. Косяков не было.
Платил ему за объем строк.
Так легче. Поэтому скажите свои условия и будем думать.
Иногда только промахнувшись, понимаешь как ты попал.
Нужен специалист для написания программы, Аналитика продаж, прогнозирование
 
Добрый день.

Тема не маленькая, за день не написать.
Это проект, который готов оплачивать по мере написания кода.
Все вводные данные есть. Опыт написания таких проектов есть.
Все оплачивал честно.
Если кто возьмется, то прошу обменяться телефонами, т.к. я хочу быть на связи и давать разъяснения и уточнения не только в переписке, но и лично.
Изменено: Эмир - 02.12.2018 21:29:39
Иногда только промахнувшись, понимаешь как ты попал.
Ошибка при выражении диапазона Range через Cells при PasteSpecial
 
Sanja, спасибо. Вы натолкнули меня на мысль.
У меня перекрываются диапазоны и копирование происходит в объединенные ячейки. Разберусь со сдвигом ячеек и вопрос решен.

Потестировал свой файл - работает.
СПАСИБО
Иногда только промахнувшись, понимаешь как ты попал.
Ошибка при выражении диапазона Range через Cells при PasteSpecial
 
Может подскажите тогда, как быть мне в таком случае?
Иногда только промахнувшись, понимаешь как ты попал.
Ошибка при выражении диапазона Range через Cells при PasteSpecial
 
Выбрал один блок, он примерно делает то же что и в программе.
Протестировал, ошибка та же.
Иногда только промахнувшись, понимаешь как ты попал.
Ошибка при выражении диапазона Range через Cells при PasteSpecial
 
Продолжает ругаться на эту строку.
Как только убираю Cells и пишу Range ("L6") .... сразу все работает
Меня так не устраивает, т.к. L6 не постоянная ячейка. Таблица все время расширяется вправо.
Иногда только промахнувшись, понимаешь как ты попал.
Ошибка при выражении диапазона Range через Cells при PasteSpecial
 
Добрый день.
Прошу модераторов поменять существующую тему на
"Ошибка при выражении диапазона Range через Cells во время PasteSpecial
Иногда только промахнувшись, понимаешь как ты попал.
Ошибка при выражении диапазона Range через Cells при PasteSpecial
 
Тему поменять не получается. Подскажите как?
Иногда только промахнувшись, понимаешь как ты попал.
Ошибка при выражении диапазона Range через Cells при PasteSpecial
 
Добрый день.
Не могу справиться со специальной вставкой.

Вначале я копирую информацию:
Код
ThisWorkbook.Worksheets("Аналитика").Range("C6:K" & iLastRow).Copy 

Далее...

Код
ActiveWorkbook.Worksheets(ThisWorkbook.Worksheets("Планирование").ComboBox2.Value).Range(Cells(6, iLastCol + 1)).PasteSpecial Paste:=xlAll, Operation:=xlNone

выдает ошибку

Подскажите, кто знает, как в данном случае диапазон Range выразить через Сells?

Иногда только промахнувшись, понимаешь как ты попал.
Экспорт из Экселя в Ворд: листы съезжают на другую страницу
 
Спасибо, Андрей. Попробую
Иногда только промахнувшись, понимаешь как ты попал.
Экспорт из Экселя в Ворд: листы съезжают на другую страницу
 
Добрый день.
Столкнулся с трудностью, не знаю где посмотреть.
При формировании отчета, экспортируемого в Ворд, некоторые листы съезжают на предыдущую страницу.
Нет ли такой функции, чтобы с нужного места информация экспортировалась на новый лист в пределах одного файла .docx, ну примерно, как есть перевод строки (энтер), а тут перевод листа. Ну как-то так...
Иногда только промахнувшись, понимаешь как ты попал.
Округление при вставке, макросом из буфера обмена
 
Диапазон всегда можно определить, если на листе есть данные, а гонять проверку по каждой ячейке займет очень много времени, особенно если они будут не пустые.
Вы предлагаете много операций, все гораздо проще.
Откуда берется диапазон первичных данных? Как он формируется?
Иногда только промахнувшись, понимаешь как ты попал.
Округление при вставке, макросом из буфера обмена
 
Так же можно использовать Round(Значение, кол-во знаков после запятой)
Иногда только промахнувшись, понимаешь как ты попал.
Округление при вставке, макросом из буфера обмена
 
Пробуйте, дальше по аналогии.
Изменено: Эмир - 29.07.2015 14:26:23
Иногда только промахнувшись, понимаешь как ты попал.
Округление при вставке, макросом из буфера обмена
 
Если до 3 знака, то можно так:
Код
with WorkSheets("Name") 
................................................. 
.cells(i,j).value = format(.cells(i,j).value, "0.000") 
end with

В любом случае нужен ваш файл с примером.
Изменено: Эмир - 29.07.2015 12:03:57
Иногда только промахнувшись, понимаешь как ты попал.
Округление при вставке, макросом из буфера обмена
 
Вообще, желательно файл выкладывать с примером, но есть такие функции, как fix, int
Смотря, как округлять хотите (отрезать все после запятой или округлить)
Выделите диапазон и пройдите по нему циклом. Значения в ячейках округляйте так
with WorkSheets("Name")
.................................................
.cells(i,j).value = int(.cells(i,j).value)
end with
Иногда только промахнувшись, понимаешь как ты попал.
Страницы: 1 2 3 4 5 6 7 8 След.
Наверх