Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2719 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【66402】コマンドボタンで他のコントロールを操作するには？ R.U 10/9/2(木) 21:54 質問[未読]
【66403】Re:コマンドボタンで他のコントロールを操... kanabun 10/9/2(木) 22:06 発言[未読]
【66405】Re:コマンドボタンで他のコントロールを操... R.U 10/9/2(木) 22:33 質問[未読]
【66406】Re:コマンドボタンで他のコントロールを操... UO3 10/9/2(木) 22:57 回答[未読]
【66407】Re:コマンドボタンで他のコントロールを操... kanabun 10/9/2(木) 23:07 発言[未読]
【66408】Re:コマンドボタンで他のコントロールを操... UO3 10/9/3(金) 9:29 発言[未読]
【66404】Re:コマンドボタンで他のコントロールを操... UO3 10/9/2(木) 22:30 発言[未読]
【66402】コマンドボタンで他のコントロールを操作...
質問  R.U  - 10/9/2(木) 21:54 -
引用なし
パスワード
   知恵を貸してください。
Commandbutton1でスピンボタンを操作するにはどうすればいいのでしょうか？やりたいのはSpinUpとSpinDownです。
　
【66403】Re:コマンドボタンで他のコントロールを...
発言  kanabun  - 10/9/2(木) 22:06 -
引用なし
パスワード
   ▼R.U さん：
こんにちは

>Commandbutton1でスピンボタンを操作するにはどうすればいいのでしょうか？やりたいのはSpinUpとSpinDownです。
>　
よく分かりません。
SpinButton は CommandButtonが2つ組み合わさったようなものとも
考えられるから、

▲　　<---ここをClickすれば SpinUp
▼　　<---ここをClickすれば SpinDown

ですよね？
で、おやりになりたいことは？
【66404】Re:コマンドボタンで他のコントロールを...
発言  UO3  - 10/9/2(木) 22:30 -
引用なし
パスワード
   ▼R.U さん：

こんばんは

kanabunさんからレスあるとおり、コマンドボタンをクリックするのであれば
スピンボタンの▼か▲をクリックすればいいのでは？

コマンドボタンを押しても、アップかダウンか、そこはどうなんですか？

コマンドボタンのクリックルーティンで様々な処理があり、その中で
スピンボタンがアップ（またはダウン）されたと同じ処理も行うということであれば
以下のように、やることはできますが・・・

Private Sub CommandButton1_Click()
　SpinButton1.Value = SpinButton1.Value + 1
　'SpinButton1.Value = SpinButton1.Value - 1
End Sub
【66405】Re:コマンドボタンで他のコントロールを...
質問  R.U  - 10/9/2(木) 22:33 -
引用なし
パスワード
   質問を変えます。スピンボタン1をupにすると、スピンボタン2もupになるよう連動させたいのですが、どうすればいいのでしょうか？
【66406】Re:コマンドボタンで他のコントロールを...
回答  UO3  - 10/9/2(木) 22:57 -
引用なし
パスワード
   ▼R.U さん：
>質問を変えます。スピンボタン1をupにすると、スピンボタン2もupになるよう連動させたいのですが、どうすればいいのでしょうか？

こんばんは

それなら、スピンボタン1のアップイベントでスピンボタン2のValueに1を加算すれば
よろしいかと。ただし、スピンボタンのValueがMaxに到達していたばあい加算すると
エラーになりますので加算前にチェックが必要です。
【66407】Re:コマンドボタンで他のコントロールを...
発言  kanabun  - 10/9/2(木) 23:07 -
引用なし
パスワード
   ▼R.U さん：

>質問を変えます。スピンボタン1をupにすると、スピンボタン2もupになるよう連動させたいのですが、どうすればいいのでしょうか？

そういう使い方あまりしたこと無いけど...
たとえば、こうしたら、どうですか？

'-----------------------------------
Option Explicit

Private Sub SpinButton1_SpinDown()
　　With SpinButton2
　　　　.Value = .Value - .SmallChange * -(.Value > .Min)
　　End With
End Sub

Private Sub SpinButton1_SpinUp()
　　With SpinButton2
　　　　.Value = .Value + .SmallChange * -(.Value < .Max)
　　End With
End Sub
【66408】Re:コマンドボタンで他のコントロールを...
発言  UO3  - 10/9/3(金) 9:29 -
引用なし
パスワード
   ▼kanabun さん：

おはようございます。

ちょっと、ちゃちゃです。
たとえばアップの

>With SpinButton2
>　　.Value = .Value + .SmallChange * -(.Value < .Max)
>End With

９９．５％は、これで問題ないかと思いますが、１００％を期するなら

With SpinButton2
　　.Value = .Value + .SmallChange * -(.Value + .SmallChange <= .Max)
End With

かもしれません。

（たとえばMaxが10でSmallChangeが2の場合で、コードから　SuppinButton2.Value = 9
　なんてのが実行されているかもしれませんので）

失礼しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2719 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free