Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4511 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56253】コマンドボタンを一つにまとめる方法 たく 08/6/11(水) 16:02 質問[未読]
【56256】Re:コマンドボタンを一つにまとめる方法 マクロマン 08/6/11(水) 16:08 発言[未読]
【56257】Re:コマンドボタンを一つにまとめる方法 たく 08/6/11(水) 16:15 質問[未読]
【56261】Re:コマンドボタンを一つにまとめる方法 マクロマン 08/6/11(水) 17:25 発言[未読]
【56269】Re:コマンドボタンを一つにまとめる方法 まさっぴ 08/6/12(木) 13:44 質問[未読]
【56270】Re:コマンドボタンを一つにまとめる方法 マクロマン 08/6/12(木) 13:57 発言[未読]
【56271】Re:コマンドボタンを一つにまとめる方法 たく 08/6/12(木) 14:01 質問[未読]
【56273】Re:コマンドボタンを一つにまとめる方法 マクロマン 08/6/12(木) 14:09 発言[未読]
【56276】Re:コマンドボタンを一つにまとめる方法 たく 08/6/12(木) 14:26 質問[未読]
【56277】Re:コマンドボタンを一つにまとめる方法 マクロマン 08/6/12(木) 14:31 発言[未読]
【56278】Re:コマンドボタンを一つにまとめる方法 たく 08/6/12(木) 14:57 お礼[未読]
【56253】コマンドボタンを一つにまとめる方法
質問  たく  - 08/6/11(水) 16:02 -
引用なし
パスワード
   現在コマンドボタンを２つに分けて操作しています。

それを一つにコマンドボタンを集約したりとかできるのでしょうか･･

トグルボタンとやらも
知りましたが
いまいちVBAの文法などどのように書いていったらよいかわかりません･･


アドバイスよろしくお願いします
【56256】Re:コマンドボタンを一つにまとめる方法
発言  マクロマン  - 08/6/11(水) 16:08 -
引用なし
パスワード
   どのようなコードを一つのボタンで実行したいのでしょう？
【56257】Re:コマンドボタンを一つにまとめる方法
質問  たく  - 08/6/11(水) 16:15 -
引用なし
パスワード
   現在１つのコマンドボタンに動画を再生する文法を書き込んでいます

WindowsMediaPlayer1.Controls.Play

Range("E3").Interior.ColorIndex = 5
Range("E3").Value = "再生"


二つ目のボタンは一時停止のボタンを作っています

WindowsMediaPlayer1.Controls.pause

Range("E3").Interior.ColorIndex = 10
Range("E3").Value = "一時停止"


これらをひとつのボタンにして

一回目押すときは
再生して

もう一回押したら
一時停止

また押したら再生のように

一つのボタンで交互に実行したいと思っています
【56261】Re:コマンドボタンを一つにまとめる方法
発言  マクロマン  - 08/6/11(水) 17:25 -
引用なし
パスワード
   やはりトグルボタンがよさそうですね。

ヒントです。

Private Sub ToggleButton1_Click()
MsgBox Me.ToggleButton1.Value
End Sub

戻り値で条件分岐してみてください。
【56269】Re:コマンドボタンを一つにまとめる方法
質問  まさっぴ  - 08/6/12(木) 13:44 -
引用なし
パスワード
   トグルボタンを一度押すと
なんか画面が表示されて
そこをクリックすれば一時停止するみたいですが

トグルとはそういうものなのでしょうか・・

作ったトグルボタン1つで
両方とも操作するようにしたいのですが・・
【56270】Re:コマンドボタンを一つにまとめる方法
発言  マクロマン  - 08/6/12(木) 13:57 -
引用なし
パスワード
   まさっぴさんへ。

こちらはたくさんが立ち上げたスレッドです。
横からの質問はやめて、ご自分でスレッドを立ち上げるようにしましょう。
関連があると思われるのなら、リンクを貼りましょう。
【56271】Re:コマンドボタンを一つにまとめる方法
質問  たく  - 08/6/12(木) 14:01 -
引用なし
パスワード
   すみません
名前間違えてました
汗・・

もう一度質問させてください

トグルボタンを一度押すと
なんか画面が表示されて
そこをクリックすれば一時停止するみたいですが

トグルとはそういうものなのでしょうか・・

作ったトグルボタン1つで
両方とも操作するようにしたいのですが・・
【56273】Re:コマンドボタンを一つにまとめる方法
発言  マクロマン  - 08/6/12(木) 14:09 -
引用なし
パスワード
   >Private Sub ToggleButton1_Click()
>MsgBox Me.ToggleButton1.Value
>End Sub

これはクリックした時の戻り値を確認してもらうための
サンプルです。
クリックするごとに戻り値が切り替わりませんでしたか？
ですので、戻り値によって処理を変えればいいのです。
【56276】Re:コマンドボタンを一つにまとめる方法
質問  たく  - 08/6/12(木) 14:26 -
引用なし
パスワード
   ▼マクロマン さん：
切り替わりました
ボタン押すごとに
ValueとFalseに表示されました・・

＞＞戻り値によって処理を変えればいいのです。

というのが
いまいち分かりません

汗
【56277】Re:コマンドボタンを一つにまとめる方法
発言  マクロマン  - 08/6/12(木) 14:31 -
引用なし
パスワード
   >ValueとFalseに表示されました・・

？？
TrueとFalse
ではありませんでしたか？

If Me.ToggleButton1.Value = True Then
　　'処理A
Else
　　'処理B
End If

最初にトグルボタンにどちらの値を与えておくかも
考えておきましょう。
【56278】Re:コマンドボタンを一つにまとめる方法
お礼  たく  - 08/6/12(木) 14:57 -
引用なし
パスワード
   マクロさんへ

うまくいきました☆
とてもうれしいですーっ

またとても勉強になりました

ありがとうございました

また分からないことがありましたら
よろしくお願いします
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4511 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free