Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.12.2017, 10:54   #11
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Сможет, если кое-что добавить
Код:
Sub Скругленныйпрямоугольник3_Щелчок()
Dim r As Range, c As Range, x
  On Error Resume Next
  Set r = Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
  If r Is Nothing Then
    Set r = Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)
  Else
    Set r = Union(r, Cells.SpecialCells(xlCellTypeFormulas, xlNumbers))
  End If
  For Each c In r
    Select Case c.Value
    Case 1: x = "РомбЗел": GoSub 1
    Case 2: x = "РомбКрас": GoSub 1
    End Select
  Next
  Exit Sub

1 With ActiveSheet.Shapes(x).Duplicate
    .Left = c.Left + (c.Width - .Width) / 2
    .Top = c.Top + (c.Height - .Height) / 2
    .Visible = True
  End With
  Return
End Sub
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сделать ячейку активной / неактивной по условию Cluster Microsoft Office Excel 10 31.07.2015 09:50
Перенос данных с ячейки в ячейку по условию Perova irina Microsoft Office Excel 13 25.01.2015 17:08
Создание фигуры по условию GAS1979 Microsoft Office Excel 15 14.10.2014 15:26
Автоматическое подставление данных Enigmatic Microsoft Office Excel 8 13.01.2012 19:48
Извлечь в одну ячейку несколько значений из строки которые удовлетворяют заданному условию. Dorvir Microsoft Office Excel 5 08.04.2008 16:12