いつもお世話になります。
コードで、スピンボタンの値をC4セルに入れて変化させています。
下記やりたいことに対して、コードにどのような編集を加えればいいかアドバイスをお願いいたします。
◆やりたいこと
C4セルに任意の数字を手入力⇒enterボタンを押した後に、スピンボタンの値をその数字がら追従して変化させたい。
たとえば、スピンボタンで11⇒12⇒13と変化させているところで、C4セルに77と入力した後にスピンボタンを押すと、78⇒79⇒80と変化できるようにさせたいです。
'◆スピンボタンコード
Private Sub SpinButton1_Change()
Range("C4").Value = SpinButton1.Value
SpinButton1.Min = 1
End Sub
No.1
- 回答日時:
C4の変化を捉えるのは
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
と思うが、スピンBの▼などクリックでもC4(とLinkedCellにしていると)が変わるので、やりにくい。
仕組みに無理があるのでは。
ーー
しかしMinをWorksheets("Sheet1").SpinButton1.Min を決めるセルをC4とは別のセルに設定するのもわずらわしいよね。
テキストボックスを1つ貼り付けるか。
Private Sub TextBox1_LostFocus()
Worksheets("Sheet1").SpinButton1.Min = Val(Worksheets("Sheet1").TextBox1.Text)
Worksheets("Sheet1").Range("C4") = Val(Worksheets("Sheet1").TextBox1.Text)
End Sub
C4(値入力を考えているセル)が普通は変化していくのではないのかな。
回答ありがとうございます。まだご提案頂いた内容について、試しておりませんが、無理があるという事が分かって良かったです。
これならば、初めから、スピンボタンを使わずにC4セルの数値を変える▲▼のコマンドボタンを考えればいいのかな。とも思いました。
どんなコードを作ればいいのか、イメージ出来ませんが、、、
No.2ベストアンサー
- 回答日時:
手順:
1.現在の「スピンボタンのコード」を消して白紙に戻します
2.デザインモードでスピンボタンを右クリックしてプロパティを表示します
LinkedCellに Sheet1!C4 と記入
Minに 1 を記入
3.デザインモードを解除して使います
スピンボタンをアップダウンすれば,C4の値が変化します
C4に任意の値を記入すれば,その値からまたアップダウンします。
#何かの理由でどうしてコードで制御したいなら,プロパティでLinkedcellは設定せず,changeイベントはヤメにして
Private Sub SpinButton1_SpinDown()
Range("C4") = Application.Max(1, Range("C4") - 1)
End Sub
Private Sub SpinButton1_SpinUp()
Range("C4") = Range("C4") + 1
End Sub
などのようにしておくような方法もあります。
回答が遅くなりません。
回答者様のアドバイスを試したところ、完全に期待通りの結果でした。
またコードでの方法まで、教えていただき、本当にありがたいです。
こんなに理想どおりのアドバイスを頂けて、幸せです。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) C3とC4のセルに、Visual basicで実行した時入力した値をC3に表示させ、その後に、C3に 1 2023/07/14 09:43
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) VBA カゥントで数値の範囲を規制 1 2022/05/20 06:20
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Excel(エクセル) エクセルで指定したセルの増減ボタンを作りたい 2 2022/12/02 11:03
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) 列の最終行に新たに入力されたらその値を自動参照 1 2023/01/21 09:59
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
腕を見たら黄色くなってる部分...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
精子が黄色?
-
勃起する時って痛いんですか? ...
-
尿検査前日に自慰行為した時の...
-
尿検査の前日は自慰控えたほう...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
精子に血が・・・
-
中出しをするとお腹が痛い・・・。
-
納豆食べた後の尿の納豆臭は何故?
-
甲状腺腫れ
-
EXCELで式からグラフを描くには?
-
EXCELで条件付き書式で空白セル...
-
筋トレするとチンコが縮んじゃ...
-
爪が紫色?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報