Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/VBA в Excel для создания автофигуры с длиной и шириной ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA в Excel для создания автофигуры с длиной и шириной ячеек (Макросы/Sub)
VBA в Excel для создания автофигуры с длиной и шириной ячеек
Polienko Дата: Вторник, 10.05.2016, 10:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.
Помогите, пожалуйста, решить задачу или направьте, где можно почитать?
Есть значения (в ячейках Excel) длины и ширины. Необходимо выделить эти 2 ячейка, нажать на макрос и чтобы создался (новый) прямоугольник (автофигура) с данными размерами.
Как я понимаю, это макрос будет?
В идеале нужно сделать для того, чтобы выделять ячейки и быстро создавать автофигуры.
 
Ответить
СообщениеДобрый день.
Помогите, пожалуйста, решить задачу или направьте, где можно почитать?
Есть значения (в ячейках Excel) длины и ширины. Необходимо выделить эти 2 ячейка, нажать на макрос и чтобы создался (новый) прямоугольник (автофигура) с данными размерами.
Как я понимаю, это макрос будет?
В идеале нужно сделать для того, чтобы выделять ячейки и быстро создавать автофигуры.

Автор - Polienko
Дата добавления - 10.05.2016 в 10:32
Roman777 Дата: Вторник, 10.05.2016, 10:46 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 703
Репутация: 75 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Polienko, не могли бы Вы приложить пример, как Вам нужно, чтобы было после действия кнопки?


Много чего не знаю!!!!
 
Ответить
СообщениеPolienko, не могли бы Вы приложить пример, как Вам нужно, чтобы было после действия кнопки?

Автор - Roman777
Дата добавления - 10.05.2016 в 10:46
_Boroda_ Дата: Вторник, 10.05.2016, 10:57 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 9367
Репутация: 3940 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Такой вариант (хотя да, с Вашим примером было бы удобнее)
[vba]
Код
Sub Priamoug()
    On Error Resume Next
    If Selection.Cells.Count = 2 Then
        ad_ = Selection.Address
        a_ = Selection(1) / 0.03527777777778
        b_ = Selection(2) / 0.03527777777778
        c_ = Selection(1).Top
        d_ = Selection(2).Left + Selection(2).Width
        If Err.Number Then Exit Sub
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, d_, c_, a_, b_).Select
    End If
    Range(ad_).Select
End Sub
[/vba]
Размеры в сантиметрах. Если нужно в пунктах, то уберите / 0.03527777777778, если в миллиметрах, то измените на / 0.35277777777778.
Прямоугольник создается правее второй ячейки на той же высоте
Можно жать кнопку и повесил еще на сочетание Контрл +m
К сообщению приложен файл: 4829267.xlsm(18Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТакой вариант (хотя да, с Вашим примером было бы удобнее)
[vba]
Код
Sub Priamoug()
    On Error Resume Next
    If Selection.Cells.Count = 2 Then
        ad_ = Selection.Address
        a_ = Selection(1) / 0.03527777777778
        b_ = Selection(2) / 0.03527777777778
        c_ = Selection(1).Top
        d_ = Selection(2).Left + Selection(2).Width
        If Err.Number Then Exit Sub
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, d_, c_, a_, b_).Select
    End If
    Range(ad_).Select
End Sub
[/vba]
Размеры в сантиметрах. Если нужно в пунктах, то уберите / 0.03527777777778, если в миллиметрах, то измените на / 0.35277777777778.
Прямоугольник создается правее второй ячейки на той же высоте
Можно жать кнопку и повесил еще на сочетание Контрл +m

Автор - _Boroda_
Дата добавления - 10.05.2016 в 10:57
al-Ex Дата: Среда, 11.05.2016, 01:13 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация: 53 ±
Замечаний: 20% ±

Excel 2010
Необходимо выделить эти 2 ячейка, нажать на макрос и чтобы создался (новый) прямоугольник (автофигура) с данными размерами.
если размеры прямоугольника равны размеру выделенных ячеек то так:
 
Ответить
Сообщение
Необходимо выделить эти 2 ячейка, нажать на макрос и чтобы создался (новый) прямоугольник (автофигура) с данными размерами.
если размеры прямоугольника равны размеру выделенных ячеек то так:

Автор - al-Ex
Дата добавления - 11.05.2016 в 01:13
Polienko Дата: Среда, 11.05.2016, 14:08 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Друзья,
Благодарю за проявленную инициативу!
 
Ответить
СообщениеДрузья,
Благодарю за проявленную инициативу!

Автор - Polienko
Дата добавления - 11.05.2016 в 14:08
Polienko Дата: Среда, 11.05.2016, 14:12 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Вы всё верно сделали. Есть ли у Вас возможность немного доделать уже сделанное? пример во вложении
И подскажите, пожалуйста, где мне возможно этому начитаться? Книги, журналы? Хочу в этом разбираться, делать самому.
К сообщению приложен файл: 5442190.png(6Kb)
 
Ответить
Сообщение_Boroda_, Вы всё верно сделали. Есть ли у Вас возможность немного доделать уже сделанное? пример во вложении
И подскажите, пожалуйста, где мне возможно этому начитаться? Книги, журналы? Хочу в этом разбираться, делать самому.

Автор - Polienko
Дата добавления - 11.05.2016 в 14:12
Polienko Дата: Среда, 11.05.2016, 14:15 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, чтобы при выделении четырех ячеек и нажатии на "кнопку" выводилась автофигура с такими данными через дробь (высота / масса)
 
Ответить
Сообщение_Boroda_, чтобы при выделении четырех ячеек и нажатии на "кнопку" выводилась автофигура с такими данными через дробь (высота / масса)

Автор - Polienko
Дата добавления - 11.05.2016 в 14:15
_Boroda_ Дата: Среда, 11.05.2016, 15:06 | Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 9367
Репутация: 3940 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так?
[vba]
Код
Sub Макрос1()
    Application.ScreenUpdating = 0
    On Error Resume Next
    If Selection.Cells.Count = 4 Then
        ad_ = Selection.Address
        a_ = Selection(1) / 0.03527777777778
        b_ = Selection(2) / 0.03527777777778
        c_ = Selection(1).Top
        d_ = Selection(4).Left + Selection(4).Width
        e_ = Selection(3)
        f_ = Selection(4)
        If Err.Number Then Exit Sub
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, d_, c_, a_, b_).Select
        Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = e_ & "/" & f_
    End If
    Range(ad_).Select
End Sub
[/vba]
К сообщению приложен файл: 4829267_2.xlsm(18Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак?
[vba]
Код
Sub Макрос1()
    Application.ScreenUpdating = 0
    On Error Resume Next
    If Selection.Cells.Count = 4 Then
        ad_ = Selection.Address
        a_ = Selection(1) / 0.03527777777778
        b_ = Selection(2) / 0.03527777777778
        c_ = Selection(1).Top
        d_ = Selection(4).Left + Selection(4).Width
        e_ = Selection(3)
        f_ = Selection(4)
        If Err.Number Then Exit Sub
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, d_, c_, a_, b_).Select
        Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = e_ & "/" & f_
    End If
    Range(ad_).Select
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 11.05.2016 в 15:06
Polienko Дата: Пятница, 13.05.2016, 09:49 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_,
Спасибо! Вы всё сделали идеально верно)
Последний вопрос, есть ли у Вас возможность прописать размер шрифта в автофигуре? чтобы он был поменьше, например, 8.
 
Ответить
Сообщение_Boroda_,
Спасибо! Вы всё сделали идеально верно)
Последний вопрос, есть ли у Вас возможность прописать размер шрифта в автофигуре? чтобы он был поменьше, например, 8.

Автор - Polienko
Дата добавления - 13.05.2016 в 09:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA в Excel для создания автофигуры с длиной и шириной ячеек (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!