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

Страницы: 1
Стиль диаграммы VBA
 
#
14.04.2019 20:25:34
Alemox,большое спасибо. Банально не додумался макрорекордером записывать ручную настройку. Вопрос решён.
 
Перейти    
Стиль диаграммы VBA
 
#
14.04.2019 18:04:12
Цитата
Михаил Лебедев написал:
Если предварительно удалить диаграмму с листа - код работает.
Доброго времени суток. Спасибо за ответ. Проверил. Код создаёт диаграмму без градиентной заливки, а в этом собственно вся соль.
 
Перейти    
Стиль диаграммы VBA
 
#
11.04.2019 22:03:09
Доброго времени суток, господа. Возникла необходимость создавать посредством VBA круговые диаграммы с определённым оформлением (см. изображение).К сожалению не смог ничего толком найти по интересующей меня теме. Макрорекордер выдал нечто вроде:

Код
Sub Макрос1()

    Range("J2:M3").Select
    ActiveSheet.Shapes.AddChart2(251, xlPie).Select
    ActiveChart.SetSourceData Source:=Range("Лист1!$J$2:$M$3")
    ActiveSheet.Shapes("Диаграмма 1").ShapeStyle = msoShapeStylePreset25
End Sub
Естественно при попытке воспроизвести макрос- код не работает. Возможно ли вообще через VBA отформатировать подобным образом диаграмму?
Заранее благодарен.
С уважением,
athe.
 
Перейти    
Формирование .pdf циклом
 
#
15.06.2017 11:02:57

Снова здравствуйте. Как оказалось, этот файл работает на машинах, где стоит 2013 эксель, а на новом ноуте, где стоит 2016 - вылазит эта ошибка:



В настройках все разрешения стоят, элементов ActiveX вроде нет. К сожалению вынужден просить о помощи, так как все идеи кончились, увы. Файл пришлось залить на файлообменник, растолстел слегка... Запуск осуществляется на втором листе кнопкой.

Сам файл:

https://ru.files.fm/u/psduqcbv
Заранее благодарен за какие-либо советы.
С уважением, athe.
 
Перейти    
Формирование .pdf циклом
 
#
13.06.2017 22:11:04
Доброго времени суток. Спасибо отписавшимся. Сушил голову над данным вопросом пока мне не подсказали почистить папку от старых файлов. Всё заработало. Может ли быть причина ошибок в том, что я пытался сгенерировать файлы в папку, в которой такие файлы уже есть?
 
Перейти    
Формирование .pdf циклом
 
#
13.06.2017 15:02:02
Только что проверил. Сформировало 3 файла и выдало ошибку:
 
Перейти    
Формирование .pdf циклом
 
#
13.06.2017 14:24:01
Доброго времени суток уважаемые форумчане. Так получилось что часто необходимо генерировать большое количество файлов в .pdf формате. Сначала я прописал цикл и указал там все листы документа (Лист1, Лист2, Лист3). Всё работало:
Код
Sub PDF_Saveall()
H = Worksheets("draft").Cells(3, 104)
    For i = 0 To H
        Worksheets("Лист1").Cells(10, 40) = Worksheets("draft").Cells(3 + i, 102)
        Filename$ = ThisWorkbook.Path & "\" & Worksheets("draft").Range("A4") & "_" & Worksheets("draft").Range("A3") & ".pdf"
        Sheets(Array("Лист1", "Лист3")).Select
        ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename$
    Next i
End Sub

Со временем стало необходимо генерировать .pdf  с определёнными листами по условию. Попытался выполнить свою задачу следующим образом:
Код
Sub PDF_Saveall()
a = Worksheets("draft").Cells(16, 1) 'Относительно этого значения выбираются листы
H = Worksheets("draft").Cells(33, 44)  'Количество отчётов
    For i = 0 To H
        Worksheets("Лист2").Cells(12, 10) = Worksheets("draft").Cells(35 + i, 44)
        Filename$ = ThisWorkbook.Path & "\" & Worksheets("draft").Range("A4") & "_" & Worksheets("draft").Range("A3") & ".pdf"
            Select Case a
                Case 1
                Sheets(Array("Лист2", "Лист3", "Лист1")).Select
                ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename$
                Case 2
                Sheets(Array("Лист2", "Лист3")).Select
                ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename$
                Case 3
                Sheets(Array("Лист2")).Select
                ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename$
            End Select
    Next i
End Sub
К сожалению после запуска цикл срабатывает несколько раз, после чего ругается на эту строку:
Код
ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename$
Подскажите пожалуйста, какая может быть причина ошибки?
В приложенном файле постарался передать основной смысл.
Заранее благодарен.
С уважением, athe.
 
Перейти    
После копирования файла кнопка вызова макроса не привязывается к новому файлу
 
#
31.01.2017 17:51:36
Добрый день
Прошу прощения за задержку ответа (сессия...). Фигур на листе много, посему прописал так:
Код
...
ActiveSheet.Buttons("Button 6").OnAction = "'" & ActiveWorkbook.Name & "'!Macro_2"
...
Вроде работает..
Подскажите пожалуйста, почему Selection - плохой выбор? Как-то влияет на быстродействие?
Спасибо.
 
Перейти    
После копирования файла кнопка вызова макроса не привязывается к новому файлу
 
#
23.01.2017 18:01:18
Доброго всем времени суток.
Столкнулся с такой штукой. При нажатии на кнопку, исходным файлом генерируется его копия, где данная кнопка должна быть переназначена на другой макрос. Макрорекордер выдал:
Код
...
Selection.OnAction = "Macro_2"
...
Сначала я протестировал и всё показалось нормально, но потом понял что на кнопку подвязывается макрос из исходника, себто прописывается к нему путь и макрос выполняется от имени исходника (чего мне не нужно).
Скорей всего у кого-то был уже подобный случай, подскажите пожалуйста, как прописать правильно?
Спасибо.
С уважением, athe.
 
Перейти    
Число в колонтитуле (VBA)
 
#
18.08.2015 13:37:27
Большое спасибо. Работает именно так, как должно.
 
Перейти    
Число в колонтитуле (VBA)
 
#
18.08.2015 12:44:25
Провёл операцию, про которую вы написали. Понял что  к 11 шрифту добавляется число из ячейки, но, увы, не знаю как можно исправить эту ошибку. Попробовал резделить числа с помощью "", но в таком случае в колонтитуле появляется ненужный символ ". Подскажите пожалуйста, как разделить числа между собой?
Признателен за ответ.
С ув. Athe.
 
Перейти    
Число в колонтитуле (VBA)
 
#
18.08.2015 11:14:25
Цитата
код с кириллицей нужно в рус. раскладке
Весьма благодарен, буду знать.
Скопировал код в отдельный файл. Заранее спасибо.
 
Перейти    
Число в колонтитуле (VBA)
 
#
18.08.2015 10:33:47
Доброго времени суток. Предпринимаю попытки создать колонтитул через VBA, таким образом чтобы там отображались данные с первого листа.
Код
ActiveSheet.PageSetup.RightHeader = " &""calibri,bold""&11" & Sheets("Ëèñò1").Range("E5") & Chr(10) & " &""calibri,normal""&11" & " &""calibri,italic""&11" & "Number:" & " &""calibri,bold""&11" & Sheets("Ëèñò1").Range("P5") & Chr(10) & " &""calibri,normal""&11" & " &""calibri,italic""&11" & "Name::" & " &""calibri,bold""&11" & Sheets("Ëèñò1").Range("U9") & " &""calibri,italic""&11" & "t."

К сожалению, в третьей строке колонтитула не отображается число {Sheets("Ëèñò1").Range("U9")}, а сама строка "сползает" куда-то вниз.
Ставил в коде перед третьей строкой vbLf- помогло. Но третья строка в таком случае делится на две. Подскажите пожалуйста, где косяк? Заранее спасибо.
С ув. Athe.
Изменено: athe - 18.08.2015 10:34:25
 
Перейти    
Сохранение файла с помощью VBA с названием ячейки
 
#
19.06.2015 10:59:28
The_Prist
Большое спасибо.
Стыд мне и позор... Пошёл дальше читать Слепцову)).
 
Перейти    
Сохранение файла с помощью VBA с названием ячейки
 
#
19.06.2015 10:38:54
Добрый день.
Вижу что тема не очень свежая, но авось...)
Использую формулу товарища k61 (спасибо ему большое):
Код
sub ggg()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & [A31].Value & ".xls"
end sub

К сожалению есть одно неудобство, данный код делает копию файла с указанным в ячейке названием и переходит в эту копию, закрывая изначальный файл. Может есть  у кого код, который делал бы копию файла, не открывая его и не закрывал бы первичный файл?
Заранее благодарен.
С ув. athe.
Изменено: athe - 19.06.2015 10:41:32
 
Перейти    
Страницы: 1
Loading...