셀 값으로 명령 단추 만들기

Question

특정 셀에 텍스트가있는 경우 Excel에서 명령 단추를 자동으로 만들려고합니다. 매크로 레코더를 실행하고 인터넷 검색을 통해 이것은 내가 갇혀있는 곳입니다.

Private Sub button() 

If ActiveSheet.Range("C5") = Text Then 

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ 
    , DisplayAsIcon:=False, Left:=396.75, Top:=18.75, Width:=64.5, Height _ 
    :=26.25).Select 
Selection.Verb Verb:=xlPrimary 

End If 

End Sub 

Answer 1

은 기본 syntax 첫째, 가 있는지 확인합니다 검색 시도 휴대 C5 값 "뭔가"

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    If ActiveSheet.Range("C5").Value = "Something" Then 
      Dim button As OLEObject 
      Set button = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ 
         , DisplayAsIcon:=False, Left:=396.75, Top:=18.75, Width:=64.5, Height:=26.25) 
     End If 

    button.Object.Caption = "Complete" 
    button.Name = "CommandbuttonEL1" 

    End Sub