[XL] スピンボタンの値をエディトボックスに代入する方法

詳細

ダイアログ ボックスおよびワークシート上に作成したスピン ボタンに設定されている値は、ワークシート上のセルにリンクすることができます。スピン ボタンに設定されている値をダイアログ ボックス上に表示するためには、エディット ボックスやラベルを使用します。エディット ボックスやラベルは、ワークシート上のセルとリンクする機能を持ちませんので、「スピン ボタンの値をエディット ボックスに代入する」マクロを作成して、ダイアログ ボックス上のスピン ボタンにマクロ登録します。

サンプル

"スピン 5" の値を "エディット 4" に代入する手順は次の通りです。

1. マクロをモジュール シートに記述します。

        Sub spin5_edit4()
        DialogSheets("Dialog1").EditBoxes("エディット 4").Text = _
            DialogSheets("Dialog1").Spinners("スピン 5").Value
        'Text プロパティを使用して、エディット ボックスに文字列を代入します
        'Value プロパティを使用して、スピン ボタンの値を求めます
        End Sub
   

2. ダイアログ シートをアクティブにします。
3. スピン ボタンを選択して [ツール] - [マクロの登録] コマンドを実行し、マクロ名 [spin5_edit4] を選択後、 <OK> ボタンをクリックします。
4. ダイアログ ボックスを表示している時にスピン ボタンを操作すると、その値がエディット ボックスに連動して表示されます。

VBA についての詳細は、オンライン ヘルプの各項目を参照してください。