彰化一整天的論壇

 找回密碼
 立即註冊
搜索
查看: 562|回復: 1

擷取自訂工具列中,使用者輸入的文字

[複製鏈接]
發表於 2014-10-31 10:49:07 | 顯示全部樓層 |閱讀模式
您好
我利用以下code於工具列中新增形成一個文字輸入方塊
  1.   Sub PP()
  2.     Dim mybar As CommandBar, mybarctl As CommandBarControl
  3.     '新增一個名稱為 Test_Bar 的浮動工具列,並指定位於程式視窗的左邊。
  4.     Set mybar = Application.CommandBars.Add(Name:="標的名稱", Position:=msoBarTop)
  5.      '顯示 Test_Bar 工具列
  6.     mybar.Visible = True
  7.     '在 Test_Bar 上新增一個按鈕控制項。
  8.     Set mybarctl = mybar.Controls.Add(Type:=msoControlEdit)
  9.     '指定按鈕控制項的顯示文字為 xbarctl

  10.     '指定按鈕控制項的顯示文字為 xbarctl
  11.     mybarctl.Caption = "xbarctl"
  12.     '指定按下 xbarctl 時執行巨集 Macro2
  13.     mybarctl.OnAction = "ll"
  14.   End Sub
複製代碼
以上程式在使用者輸入文字,並按enter後,將會自動跳轉至"ll"程式
我想請問,如何在"ll"程式中擷取使用者在文字輸入方塊中輸入的文字

謝謝


回復

使用道具 舉報

發表於 2014-10-31 16:03:36 | 顯示全部樓層
  1. Sub testme01()
  2.     Dim ctrl As CommandBarControl
  3.     Call deleteCB
  4.     Set ctrl = Application.CommandBars(1).Controls.Add _
  5.             (Type:=msoControlEdit, temporary:=True)
  6.     With ctrl
  7.         .Caption = "edittest"
  8.         .OnAction = ThisWorkbook.Name & "!showme"
  9.     End With
  10. End Sub
  11. Sub deleteCB()
  12.     On Error Resume Next
  13.     Application.CommandBars(1).Controls("edittest").Delete
  14.     On Error GoTo 0
  15. End Sub
  16. Sub showme()
  17.     MsgBox CommandBars.ActionControl.Text
  18. End Sub
複製代碼


參考資料:http://www.office-archive.com/2-excel/805875384e719dbd.htm
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-1-17 01:45 , Processed in 0.029913 second(s), 11 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表