Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13410 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5485】ラジオボタンでの集計 mkmk 03/5/15(木) 15:31 質問
【5491】Re:ラジオボタンでの集計 ぴかる 03/5/15(木) 17:24 発言
【5503】Re:ラジオボタンでの集計 Jaka 03/5/16(金) 15:18 回答
【5519】Re:ラジオボタンでの集計 mkmk 03/5/17(土) 13:44 お礼
【5520】あれ〜，遅かったぁ〜(T_T) こう 03/5/17(土) 13:53 発言
【5561】Re:あれ〜，遅かったぁ〜(T_T) mkmk 03/5/20(火) 11:52 お礼
【5485】ラジオボタンでの集計
質問  mkmk  - 03/5/15(木) 15:31 -
引用なし
パスワード
   はじめまして。
初心者で、どなたかにご教授願いたく投稿しました。

Excelでアンケートを作り、
1　1.仕事は
　　　○：満足　○：やや満足　○：普通　○：やや不満　○：不満　○：該当なし
　 2.上司は
　　　○：・・・・・
2　1.＊＊＊は
　　　○：・・・・・

“○：”ラジオボタンで、その結果、満足（2件）やや満足（5件）・・・

と集計したいと思っています。

コマンドボタンを押したイベントで集計結果を出したいのですが、どのようなコードを
書けば良いのでしょうか？

教えて下さい。
　　
【5491】Re:ラジオボタンでの集計
発言  ぴかる  - 03/5/15(木) 17:24 -
引用なし
パスワード
   mkmkさん、こんにちは。

>Excelでアンケートを作り、
>1　1.仕事は
>　　　○：満足　○：やや満足　○：普通　○：やや不満　○：不満　○：該当なし
>　 2.上司は
>　　　○：・・・・・
>2　1.＊＊＊は
>　　　○：・・・・・
>
>“○：”ラジオボタンで、その結果、満足（2件）やや満足（5件）・・・
>
>と集計したいと思っています。
う〜ん、こういうのは無理っぽいんじゃないかな？。
・ソフト製作依頼に近い。（ほぼ丸投げ）
・具体的な構成が書かれていない。

ていう事で、まずベースをご自分で作成してみて下さい。
そして分からなくなった所をコード等をアップして、具体的にして質問して下さい。
そしたら達人のみなさまが、答えてくれるはずです。（私は、達人じゃないからネ）
気分を悪くされたかもしれませんが、私のちょっとした意見でした。失礼しました。
【5503】Re:ラジオボタンでの集計
回答  Jaka  - 03/5/16(金) 15:18 -
引用なし
パスワード
   こんにちは。
例えば、1.仕事はの○：満足　○：やや満足・・・を２行目に作るとして、

表示　→　ツールバー　フォーム　を表示して、グループボックスを選び２行目にグループボックスを作ってください。
その中にオプションボタンを５個つくっったら、その中の１つを右クリックして

コントロール書式設定　→　コントロール　→　リンクするセル　に「$I$2」と入れOKで閉じます。

１番左のオプションボタンをクリックするとI2に１、１番右のオプションボタンをクリックするとI2に５でます。

同じように必要な文だけグループボックスとオプションボタンを作り

集計したい物が5番目だったら集計結果を出したいセルに

=COUNTIF(I1:I7,5)

こんな感じに関数を入れればいいです。
I列を非表示にしたり文字を白にすれば、見た目I列の文字が見えなくなります。
色々工夫して見て下さい。
【5519】Re:ラジオボタンでの集計
お礼  mkmk  - 03/5/17(土) 13:44 -
引用なし
パスワード
   こんにちわ。
Jakaさん、教えて頂いた方法で、望みのものが出来ました。
VBAを使わずに、関数のみで出来るとは思いもしませんでした。
奥が深い・・・大変勉強になりました。
また、お世話になるかもしれません。
よろしくお願いします。

本当にありがとうございました！！！
【5520】あれ〜，遅かったぁ〜(T_T)
発言  こう E-MAIL  - 03/5/17(土) 13:53 -
引用なし
パスワード
   mkmkさん，こんにちわ。
>Jakaさん、教えて頂いた方法で、望みのものが出来ました。
>VBAを使わずに、関数のみで出来るとは思いもしませんでした。

折角なので別回答です。(´･ω･`)ｼｮﾎﾞｰﾝ

シート上に
OptionButton1,OptionButton2,OptionButton3
CommandButton1
を作成して...

Private Sub CommandButton1_Click()
　　
　　If OptionButton1.Value = True Then
　　　　flg = 1
　　End If
　　If OptionButton2.Value = True Then
　　　　flg = 2
　　End If
　　If OptionButton3.Value = True Then
　　　　flg = 3
　　End If
　　MsgBox "答えは" & flg & "です", , "結果"
　　
End Sub

でも集計結果を取ることができます。
【5561】Re:あれ〜，遅かったぁ〜(T_T)
お礼  mkmk  - 03/5/20(火) 11:52 -
引用なし
パスワード
   こうさん、ありがとうございます！
返信が遅くなってすいませんでした。

Aの答えがいくつ、Bの答えがいくつかという結果を求めたいので、
少し違いますが、勉強にはなりました。
診断系＆問題集などのプログラムを作る時に役立ちそうですね！
メモしておきます！

本当にありがとうございました！！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13410 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free