No.2ベストアンサー
- 回答日時:
スピンポタンのSmallChangeプロパティは、Long型ですから、そのままでは扱えません。
ですから、表示を10分の1にするしかありません。なお、前回の質問も、以下でみれば分かるはずです。
'//フォームモジュール
Private Sub SpinButton1_Change()
With TextBox1
TextBox1.Text = Format$(SpinButton1.Value / 10, "0.0")
End With
End Sub
Private Sub UserForm_Initialize()
With SpinButton1
.Min = 0 '最小値
.Max = 100 '最大値
.SmallChange = 1 '1の場合は本来不要
.Value = 0 '初期値
'プロパティで設定すれば、上記の4つの項目の設定は不要
TextBox1.Text = Format$(.Value, "0.0") '初期値が0以外は、本来不要
End With
End Sub
ご回答頂きありがとうございます。
Wendy02様、tinu2000様共に前回の質問もごらん頂きありがとうございました。
お二方のご回答はおおよそ同じ内容と判断致しましたので、先に回答して頂きましたWendy02様のご回答をベストアンサーに致しました。
No.3
- 回答日時:
前述の質問の続きと見なして。
UserForm1のコード
---------------------- ここから
Option Explicit
Private Sub UserForm_Initialize()
With Me.SpinButton1
.Min = 1
.Value = .Min
End With
Me.TextBox1.Value = Format(Me.SpinButton1.Value / 10, "0.0")
End Sub
Private Sub SpinButton1_Change()
Me.TextBox1.Value = Format(Me.SpinButton1.Value / 10, "0.0")
End Sub
ThisWorkbook のコード
---------------------- ここから
Option Explicit
Private Sub Workbook_Open()
UserForm1.Show
End Sub
ご回答頂きありがとうございます。
Wendy02様、tinu2000様共に前回の質問もごらん頂きありがとうございました。
お二方のご回答はおおよそ同じ内容と判断致しましたので、先に回答して頂きましたWendy02様のご回答をベストアンサーに致しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで指定したセルの増減ボタンを作りたい 2 2022/12/02 11:03
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) エクセルでのVBA 2 2022/08/03 06:48
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
スピンボタンで小数点
Visual Basic(VBA)
-
EXCEL VBE ユーザフォームのスピンボタンの増減値
Excel(エクセル)
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
-
4
エクセルの画面にユーザーフォームでテンキーを表示させたい
Excel(エクセル)
-
5
Excel vba ユーザーフォームテキストボックス内の小数点表示
Visual Basic(VBA)
-
6
Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい
Excel(エクセル)
-
7
ラベルを表示したり非表示にしたりしたい
Visual Basic(VBA)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
10
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
EXCELマクロ 保護されているシートのダイアログを表示させない方法
Visual Basic(VBA)
-
13
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
14
【VBA】計算結果に小数点第2位までを表示させる方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クライアントに出すメールで、...
-
独身男性はどうやって性欲をお...
-
エクセルで特定の値を含む列の...
-
丁寧語の「ご質問」「お問い合...
-
「データ」のスペルはdataとdat...
-
「ありますか」と聞く場合、Is...
-
何度も同じ事を言わせる人は何...
-
エクセル対数近似曲線のX値を代...
-
就活生です。 「チームで成し遂...
-
「行かなきゃ」と「行かないと...
-
学術書と一般書の簡単な見分け...
-
ご講義ありがとうございました...
-
一般常識が無さすぎて自信をな...
-
副詞「さっぱり~ない」と「全...
-
エクセルVBA「スピンボタンで小...
-
チェーンソーの耐用年数
-
1合って何リットル?
-
活線メガって?
-
FOB、C&F、CIFの違い...
-
.大新グループのCMに出ている...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
クライアントに出すメールで、...
-
独身男性はどうやって性欲をお...
-
「ありますか」と聞く場合、Is...
-
「データ」のスペルはdataとdat...
-
何度も同じ事を言わせる人は何...
-
接骨院の受付事務 訳が分から...
-
丁寧語の「ご質問」「お問い合...
-
FOB、C&F、CIFの違い...
-
Yahoo知恵袋の回答が心無いもの...
-
一般常識が無さすぎて自信をな...
-
学術書と一般書の簡単な見分け...
-
会計用語で"Plug"とは?
-
1合って何リットル?
-
チェーンソーの耐用年数
-
エクセル対数近似曲線のX値を代...
-
一坪何m2?
-
LINEで、質問されたから答えた...
-
本当に下らないのですが、オ、...
-
副詞「さっぱり~ない」と「全...
-
ステーキ、300グラム?
おすすめ情報