2 
For Each ws In Worksheets
ListBox1.AddItem ws.Name
Next ws

ListBox1_Click()
Worksheets(ListBox1.Value).Activate


カスタムリボンxmlのメニューコントロールでも同じことができますか？

<menu id="mnuCats" label="abc" size="large" imageMso="PropertySheet"  >
<button id="go01" label="sky"  onAction="go01" imageMso="TextAlignGallery" />
<button id="go02" label="sea"  onAction="go02" imageMso="TextAlignGallery" />
</menu>

したがって、対応するシートをアクティブ化するために、メニューにシート名を入力する方法と、ボタンのラベル属性を文字列として取得する方法を説明します。

4

1 に答える 1

3

ドロップダウンリボンコントロールが必要です。Excelファイルに次のcustomUIXMLを入力すると（おそらくカスタムUIエディターhttp://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2006/05/25/customuieditor.aspxを使用して）、リストを取得できます。値を入力してアクションに応答するために実装する必要がある正しいVBAコールバック署名の例：

<dropDown id="drpTest" label="Test" showImage="false" getSelectedItemIndex="TestGetSelItem" onAction="TestOnAction" getItemCount="TestGetItemCount" getItemID="TestGetItemID" getItemLabel="TestGetItemLabel" sizeString="HowBigDropdownDoYouWant" supertip="Select Test.">
</dropDown>
于 2012-09-07T07:20:47.423 に答える