объединение двух кнопок

[deemka777]

Sub внедрить()
Range("J13:J15").Select
Range("J13:J15").Copy
Range("J8:J10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False

Range("J13").Formula = "0%"
Range("J14").Formula = "0%"
Range("J15").Formula = "0%"
End Sub

Sub отмена()
Range("J8:J10").Select
Range("J8:J10").Copy
Range("J13:J15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False

Range("J8").Formula = "0%"
Range("J9").Formula = "0%"
Range("J10").Formula = "0%"
End Sub

как сделать, чтоб выполнение происходило при нажатии на одну кнопку, вкл/выкл, первый клик, одно, на след 1 клик другое.

[doober]

Private Sub CommandButton1_Click()
Static Fl As Boolean
If Fl = False Then
CommandButton1.Caption="отмена"
внедрить
Else
CommandButton1.Caption="внедрить"
отмена
End If
Fl = Not Fl

End Sub

[deemka777]

спасибо большое!!!

[Alex6474]

Не стал создавать новую тему..
Вопрос от новичка, пока только учусь работе Excel.
можете подробно описать как создать в Excel 2003 кнопку (к примеру название "1" ) при нажатии на неё , чтоб просто к примеру выдавала данные на A1 к примеру цифру 1, при двойном нажатии 1+1 и т.д, а то я что то так не понял этот visual basic и как с ним работать, заранее благодарен..

[vikttur]

Сообщение от Alex6474

///я что то так не понял этот visual basic и как с ним работать, заранее благодарен..

Т.е. хотите сразу разговаривать на иврите, услышав одно "шалом"?

Отвлеченный пример мало что даст. Учитесь на практических задачах.

[IgorGO]

а вообще-то, по=правильному, макрос
Sub Plus1()
ActiveCell = ActiveCell + 1
End Sub
надо поместить в PERSONAL.XLSB, на панель быстрого запуска навесить кнопку и связать ее с этим макросом. тогда кнопка будет доступна при открытии любого файла, а не только в книга616.
успехов.

[Alex6474]

IgorGO спасибо, будем разбираться....
vikttur услышав "шалом"-появляется заинтерисованость в этом слове, ну и само собой откуда это слово с какого языка, узнав с какого-- уже будем решать учить ли язык весь, или хватит только одно слово

[Alex6474]

а что нужно прописать в макросе чтоб работало в конкретной ячейкек примеру А1, а не в выделеной?

[VictorM]

Любую из этих строчек

Range("A1").Value = Range("A1").Value + 1
  Range("A1") = Range("A1") + 1
  [a1] = [a1] + 1