VBAを使ってスピンボタンをワークシートに挿入しました。
そこで、皆様にお聞きしたいのですが、スピンボタンに上と下のボタンがありますが、このボタンを押すと値はいくつずつ変わるのでしょうか?
私がスピンボタンを押すと1ずつ変わります。
この1という値はデフォルトなのでしょうか?
もしそうだとすれば、この値を2や3に変更することができる(つまりスピンボタンを押すことにより帰ってくる値が2や3ずつ上下できる)のでしょうか?
VBAの本を読みましたが、このことについては載っていなかったので、どなたか知っている方がおりましたら、教えて下さい。
よろしくお願い致します。
No.4
- 回答日時:
以下エクセル2002です。
質問者はたぶん下記前半のスピンボタンでしょう。
マクロに記録で
上下のスピンボタン
ツールバーーコントロールツールボックスででるツールバーからとり
コントロールの書式設定で、変化の増分5
を指定した場合
Sub Macro1()
ActiveSheet.Spinners.Add(151.5, 44.25, 37.5, 46.5).Select
With Selection
.Value = 0
.Min = 0
.Max = 30000
.SmallChange = 5
.LinkedCell = "$D$1"
.Display3DShading = True
End With
End Sub
が取れます。 .SmallChange = 5
がそれです。5づつ増減します。
ーーー
もう1つこちらの方は左右のスピンボタンで
Sub test01()
Dim spn As Object
Set spn = ActiveSheet.OLEObjects.Add(classtype:="forms.spinbutton.1", Left:=Range("B2").Left, Top:=Range("b2").Top, Width:=Range("b2").Width, Height:=Range("B2").Height)
spn.LinkedCell = "a1"
spn.SmallChange = 5
End Sub
はエラーになります。
spn.SmallChange = 5
を除くとOKで、増分は1です。
この辺説明ができないですが、私が誤っていなければ、エクセルの
VBAの仕様なのでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで指定したセルの増減ボタンを作りたい 2 2022/12/02 11:03
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) Excel 散布図グラフ 外れ値 セル番地参照方法 4 2022/04/19 18:56
- Visual Basic(VBA) VBA 画面上のカーソルに文字数字を入力するコードを教えて下さい 1 2022/10/30 10:31
- Excel(エクセル) エクセルで計算結果が0でないときのみセルを更新したい 4 2022/07/30 11:58
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
【関数】先頭だけにある、半角...
-
エクセル 白黒印刷で白線を印刷...
-
Excelのチェックボックスの使い...
-
【関数】適切な文字数の数字を...
-
Excelのpivotについて質問です
-
Excel ピボットテーブルで日付...
-
LOOKUP関数を使えばいいのでし...
-
エクセル関数を教えてください
-
エクセルのセルに同じ大きさの...
-
UNIQUE関数が使えないバージョ...
-
excelの不要な行の削除ができな...
-
エクセルで「-0.0」と表示さ...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの関数について教えて...
-
Aというブックの1というシート...
-
【マクロ】シート名を取得する...
-
VBA Private Sub Worksheet_Cha...
-
VBA、Excelのworkbook.open に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報