[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 についての詳細は、オンライン ヘルプの各項目を参照してください。