Страницы: 1
RSS
Макрос удаления определенной кнопки
 
Добрый вечер, у меня такой вопрос.  Мне нужен макрос который удалял с листа 4 только ту кнопку, имя которой совпадает с лист 1 ячейка А1. Примерно так:    
 
Sub Макрос1()  
   ActiveSheet.Shapes(‘адрес ячейки Лист1!A1’).Select  
   Selection.Delete  
End Sub
 
Sub test()  
   On Error Resume Next  
   ИмяФигуры = Worksheets("Лист1").Range("a1")  
   Worksheets("Лист4").Shapes(ИмяФигуры).Delete  
End Sub  
 
 
или то же самое, но короче:  
 
Sub test()  
   On Error Resume Next  
   Worksheets("Лист4").Shapes(Worksheets("Лист1").[a1]).Delete
End Sub  
 
или даже так:  
 
Sub test()  
   On Error Resume Next  
   Лист4.Shapes([Лист1!a1]).Delete
End Sub
 
И еще так :)  
 
Sub test()  
On Error Resume Next  
Лист4.Shapes(Range("Лист1!a1")).Delete  
End Sub
KL
Страницы: 1
Читают тему
Наверх
Loading...