自定義工具欄中的文本框

Question

是否可以將文本框控件放入Excel中的自定義工具欄中。我創建了一個顯示此工具欄的加載項。我想要做的是在文本框加載項中的用戶類型應根據用戶輸入的內容調用過程或函數。

我想在MS Excel中使用VBA。

謝謝。

Answer 1

我發現：

Sub test() 
    Set myControl = CommandBars("Test").Controls.Add(Type:=msoControlEdit, Before:=1) 
    With myControl 
     .Caption = "Search" 
     .OnAction = "Tester" 
    End With 
End Sub 


Sub Tester() 
    MsgBox "I am gonna search for: " & CommandBars("Test").Controls(1).Text 
    CommandBars("Test").Controls(1).Text = "" 
End Sub 

Answer 2

如果您使用Excel 2007和已實施IRibbonExtensibility :: GetCustomUI那麼你可以使用下面的XML在外接GUI定義一個編輯框：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
    <ribbon startFromScratch="false"> 
     <tabs> 
      <tab id="MyTab" label="My Tab"> 
       <group id="MyGroup" label="My Group"> 
        <editBox id="MyEditBox" getText="MyEditBoxCallbackgetText" label="Editbox Label" onChange="MyEditBoxCallbackOnChange"/> 
       </group> 
      </tab> 
     </tabs> 
    </ribbon> 
</customUI>