Excel VBA質問箱 IV

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

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


2718 / 13645 ツリー ←次へ | 前へ→

【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

99.5%は、これで問題ないかと思いますが、100%を期するなら

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

かもしれません。

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

失礼しました。

2718 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free