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

Страницы: 1
Как макросом добавить ряды на диаграмму
 
#
24.11.2018 05:27:40
Здравствуйте, уважаемые специалисты в области ВБА.
Вопрос у меня возник.
Помогите его решить.

В файле xls находится диаграмма. На ней всего один ряд, который выглядит вот так:
Код
 =РЯД(;Лист3!$D$5:$D$18;Лист3!$E$5:$E$18;1)
Как ввести на диаграмму - все ряды - названия и диапазоны которых выписаны в таблицу U4:V21  ?
 
Перейти    
Подсветка значений в таблице - при выделении фамилии в крайнем столбце таблицы
 
#
10.06.2018 20:29:49
Здравствуйте.
Подскажите как макросом - сделать подсветку значений таблицы E5:L30 - при выделении соответствующей фамилии ?

То есть если выделить фамилию - то подсветятся соответствующие значения в таблице (если в этих значениях есть буквы или цифры)
 
Перейти    
Изменение положения картинки на графике
 
#
27.04.2018 19:50:41
Здравствуйте все.
Помогите кто чем может.

Есть макрос, размещающий картинку на диаграмме.
Однако если изменить данные в таблице, то макрос - перенесет по этим данным - новый рисунок. То есть он будет при каждом срабатывании - увеличивать количество рисунков.

Как при смене данных в таблице - не размещать на диаграмме новую картинку, а изменить ту картинку, которая уже на диаграмме присутствует ?
То есть если на графике - нет картинки, то макрос ее там размещает. Но если картинка уже имеется - то макрос просто меняет ее положение и размеры в соответствии с таблицей.
 
Перейти    
Расстановка картинок на диаграмме в соответствии с координатами диаграммы
 
#
24.04.2018 12:58:03
Добрый день.

Есть такой вопрос :
У меня в файле построена диаграмма. Рядом с ней находится картинка Рисунок5.
Как макросом - внедрить картинку внутрь диаграммы - с размерами и по координатам указанным в таблице F3:G6 ?
(но координаты должны быть те, которые используются в графике)

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

То есть - если нижний угол правой границы - области построения диаграммы - это примерно x=17, y=1 и если указать эти координаты для фигуры - то она должна разместиться в этих координатах - то есть в нижнем правом углу.
А сейчас получается, что если я например - указываю для фигуры x=2,y=4 то фигура вместо того чтобы оказаться в нижнем левом углу - оказывается в верхнем левом углу.
 
Перейти    
Извлечение из doc - текста, который выделен зеленым цветом
 
#
12.04.2018 23:35:04
Здравствуйте все.
Подскажите решение.

В папке есть три файла doc - с названиями файл1,файл2,файл3 и один файл экселя. В документе эксель - в ячейку B5 вписано название нужного вордовского файла.
Как макросом при нажатии на кнопку - вытащить из этого файла в столбец B7:B14 - построчно весь текст, который выделен зеленым цветом ?    
 
Перейти    
Выборочное удаление объектов с листа, кроме исключений.
 
#
06.04.2018 21:55:35
Здравствуйте. Подскажите - как реализовать следующее:

Как макросом удалить все фигуры с листа, за исключением тех, что вписаны в диапазон J2:J9  ?
Раньше делал эту операцию через Ctrl+G, а потом аккуратно убирал выделение с тех фигур - которые не нужно удалять. Но это немного неудобно.
 
Перейти    
Некорректная работа макроса в Е2013х64, который меняет иконку открытой книги.
 
#
26.02.2018 21:48:59
Добрый вечер.
Имеется макрос для Е2013х64, который меняет иконку открытой книги.

Но работает он неправильно:
При открытии книги - он назначает значок иконки  - сразу всем без исключения  открытым книгам, а не только - своей книге (той книге в которой макрос находится).
Из-за этого на панели задач - возникает невообразимая мешанина.

Как заставить макрос назначать указанный значок иконки - только своей книге, а не всем открытым книгам сразу ?

(по моему представлению - нужно в куске кода "Application.hwnd" - заменить слово Application на что-то вроде Workbook.
Нужно только как-то правильно прописать эту команду.
Изменено: DJ Beast - 27.02.2018 00:06:03
 
Перейти    
Перевод макроса из Е2013х32 в Е2013х64
 
#
26.02.2018 01:39:24
Доброй ночи, форумчане.

Подскажите где ошибка ?
Пытаюсь перевести макрос на Е2013 - из х32 в х64.
х32 выглядит так:
Код
Option Explicit

Declare Function GetActiveWindow32 Lib "user32" Alias _
                                   "GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "user32" Alias _
                               "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
                                               ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
                               "ExtractIconA" (ByVal hInst As Long, _
                                               ByVal lpszExeFileName As String, _
                                               ByVal nIconIndex As Long) As Long
Код х64 (который не работает) выглядит так:
Код
#If Win64 Then
Private Declare PtrSafe Function GetActiveWindow32 Lib "user32" Alias _
                                   "GetActiveWindow" () As Integer
 
Private Declare PtrSafe Function SendMessage32 Lib "user32" Alias _
                               "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
                                               ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Declare PtrSafe Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
                               "ExtractIconA" (ByVal hInst As Long, _
                                               ByVal lpszExeFileName As String, _
                                               ByVal nIconIndex As Long) As Long

#Else
Private Declare Function GetActiveWindow32 Lib "user32" Alias _
                                   "GetActiveWindow" () As Integer
 
Private Declare Function SendMessage32 Lib "user32" Alias _
                               "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
                                               ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
                               "ExtractIconA" (ByVal hInst As Long, _
                                               ByVal lpszExeFileName As String, _
                                               ByVal nIconIndex As Long) As Long
#End If
В чем тут дело, где может быть ошибка ?
Изменено: DJ Beast - 26.02.2018 09:49:47
 
Перейти    
Подсветка диапазона желтым цветом
 
#
20.01.2018 09:53:59
Здраствуйте. Возник вопрос по макросу.
Есть макрос обводящий - обычными границами - область ячеек (диапазон с размерами 11х11), где единицы встречаются часто (шесть и более близкостоящих единиц).
Как изменить макрос, чтобы он - не просто обводил диапазон границами, а еще и менял цвет этого диапазона - на желтый ?

Пытался добавить кусок кода:
Код
    With .Interior(ii)
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Но, что-то не срабатывает.
 
Перейти    
Страницы: 1
Наверх