Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5643 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49670】チェックボックスとオプションボタンについて れいこ 07/6/15(金) 12:00 質問[未読]
【49671】Re:チェックボックスとオプションボタンに... koshimizu 07/6/15(金) 12:51 発言[未読]
【49673】Re:チェックボックスとオプションボタンに... れいこ 07/6/15(金) 13:25 質問[未読]
【49678】Re:チェックボックスとオプションボタンに... Jaka 07/6/15(金) 17:31 発言[未読]
【49720】Re:チェックボックスとオプションボタンに... れいこ 07/6/18(月) 16:51 質問[未読]
【49725】Re:チェックボックスとオプションボタンに... ｂｙｋｉｎ 07/6/18(月) 22:08 回答[未読]
【49746】Re:チェックボックスとオプションボタンに... れいこ 07/6/19(火) 13:22 質問[未読]
【49747】Re:チェックボックスとオプションボタンに... Jaka 07/6/19(火) 13:31 発言[未読]
【49748】Re:チェックボックスとオプションボタンに... ハチ 07/6/19(火) 13:44 発言[未読]
【49749】Re:チェックボックスとオプションボタンに... れいこ 07/6/19(火) 14:13 お礼[未読]
【49670】チェックボックスとオプションボタンにつ...
質問  れいこ  - 07/6/15(金) 12:00 -
引用なし
パスワード
   エクセルでアンケートを作成しています。
コントロールボックスのチェックボックスと
オプションボタンを使って、選択肢を作成していますが、
チェックボックスやオプションボタンでチェックした
内容を一覧で見れるように回答用の別シートに
まとめて表示したいのですが、
できますでしょうか？

また、コントロールツールボックスにはグループボックスが
ありませんが、フォームのグループボックスとコントロール
ツールボックスのチェックボックス、オプションボタンは
併用できるのでしょうか？どちらを使えばいいのか
わかりません。教えて頂けないでしょうか？
よろしくお願いします。
【49671】Re:チェックボックスとオプションボタン...
発言  koshimizu  - 07/6/15(金) 12:51 -
引用なし
パスワード
   れいこ さん
こんにちは。

どの方法がよいのかわかりませんが
私もアンケートを作成しました。
フォームのオプションボタンを使って。

使い方はHTTPは小文字で
HTTP://ikutawasabi.hp.infoseek.co.jp/xlf0601.htm
【49673】Re:チェックボックスとオプションボタン...
質問  れいこ  - 07/6/15(金) 13:25 -
引用なし
パスワード
   koshimizuさんありがとうございます！
教えていただいたHPの通りに作成したらできました。
ありがとうございます。

ところで、追加で質問なのですが、
フォームのオプションボタンで「はい」と「いいえ」の
二つの選択肢を作成したとき、どちらも選択してない
状態に戻すために「リセット」ボタンを作りたいの
ですが、これはオプションボタンとどのように
関連付けたらよいのでしょうか？
これはマクロで作成しないとできないかと
思うのですが、方法がよくわかりません。
分かれば教えて頂きたいです。
【49678】Re:チェックボックスとオプションボタン...
発言  Jaka  - 07/6/15(金) 17:31 -
引用なし
パスワード
   忙しくなって、朝書き込めなかったまんま。

>エクセルでアンケートを作成しています。
なら、
フォームのグループボックスとコントロール
ツールボックスのオプションボタン
の方が良いと思います。
シート保護しなければならない欠点があるけど。
オプションボタンやグループボックスを移動させないため。

コントロールツールボックスは、デザインモードにしなければ移動できないので便利ですが、非常に重くなります。
グループボックスの代わりに、プロパティーのGroupNameでできます。

ここまでが、朝途中まで書いたもの。

で、もう帰るので簡単ですが
　　　　 For i = 0 To 3
　　　　　　 Sheets("Sheet1").Shapes("オプションボタン名前は直してね" & i).OLEFormat.Object.Value = False
　　　　 Next
【49720】Re:チェックボックスとオプションボタン...
質問  れいこ  - 07/6/18(月) 16:51 -
引用なし
パスワード
   Jakaさん回答ありがとうございます。
土日を挟んだので遅くなってしまいました。

>フォームのグループボックスとコントロール
>ツールボックスのオプションボタン
>の方が良いと思います。

ツールボックスのオプションボタンにしてしまうと、
koshimizuさんのHPで教えて頂いたコントロールの書式
設定で、リンクするセルを指定して回答を別シートに
まとめる、ということができなくなってしまいます。
また、アンケートには名前や住所を記入してもらう欄も
あるので、シート保護をかけてしまうと、入力ができなく
なってしまうのですが。。。

>　　　　 For i = 0 To 3
>　　　　　　 Sheets("Sheet1").Shapes("オプションボタン名前は直してね" & i).OLEFormat.Object.Value = False
>　　　　 Next

このコードはツールボックスのオプションボタンを使用したときの
コードですよね？フォームのオプションボタンを使った場合は
このようなコードは使えないのでしょうか？？
【49725】Re:チェックボックスとオプションボタン...
回答  ｂｙｋｉｎ  - 07/6/18(月) 22:08 -
引用なし
パスワード
   こんばんわ。

わてもフォームツールバーのオプションボタンとかを使うべきやと思ってます。
コントロールツールボックスのほうは重たくなるだけでなく、Tempフォルダに
ごみファイルが溜まるなんてこともあるみたいやしね。

・・・で、リセットってのは全部リセットでええのかな？
１行書くだけでっせ。

Activesheet.OptionButtons.Value = False

チェックボックスなら

Activesheet.CheckBoxes.Value = False

コントロールツールボックスのほうでは、こう簡単には書けんのとちゃうかな？

試してみてな。
ほな。
【49746】Re:チェックボックスとオプションボタン...
質問  れいこ  - 07/6/19(火) 13:22 -
引用なし
パスワード
   ｂｙｋｉｎ さん回答ありがとうございます。

>・・・で、リセットってのは全部リセットでええのかな？
>１行書くだけでっせ。
>
>Activesheet.OptionButtons.Value = False

アンケートにはたくさんのオプションボタンを使用している
のですが、質問１の｢はい｣と｢いいえ｣のボタンに対する
リセットボタンと、質問２の｢はい｣と｢いいえ｣のに対するリセット
ボタンを別々に作成したいのですが、その場合はどのように
オプションボタンを指定したらよいのでしょうか？
【49747】Re:チェックボックスとオプションボタン...
発言  Jaka  - 07/6/19(火) 13:31 -
引用なし
パスワード
   >フォームのグループボックスとコントロール
>ツールボックスのオプションボタン
>の方が良いと思います。
すみません。間違って書いてしまいました。
コントロールツールボックスのオプションボタンは、
フォームの方の間違いです。
　↓これは、フォームの方のコントロールの書き方です。
>Sheets("Sheet1").Shapes("OptionButton" & i).OLEFormat.Object.Value = True


コントロールツールボックス（アクティブＸコントロール）の書き方。
Worksheets("Sheet1").OLEObjects("OptionButton" & i).Object.Value = True

まぎらわしいことを書いてすみません。
【49748】Re:チェックボックスとオプションボタン...
発言  ハチ  - 07/6/19(火) 13:44 -
引用なし
パスワード
   ▼れいこ さん：

フォームのオプションボタンでセルにリンクさせているなら、
セルの値をクリアすればチェックが外れると思います。
試してませんので、はずしてたらすいません・・・

'A1にリンクされている場合
Sub Test()
　　Range("A1").Value = ""
End Sub
【49749】Re:チェックボックスとオプションボタン...
お礼  れいこ  - 07/6/19(火) 14:13 -
引用なし
パスワード
   回答ありがとうございます！！

>フォームのオプションボタンでセルにリンクさせているなら、
>セルの値をクリアすればチェックが外れると思います。

ハチさんの意見を参考に試してみたら
ちゃんとチェックがはずれました！！
大変助かりました。ありがとうございます。
またよろしくお願いします！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5643 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free