Excel VBA質問箱 IV

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

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


13408 / 13644 ツリー ←次へ | 前へ→

【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.仕事はの○:満足 ○:やや満足・・・を2行目に作るとして、

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

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

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

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

集計したい物が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の答えがいくつかという結果を求めたいので、
少し違いますが、勉強にはなりました。
診断系&問題集などのプログラムを作る時に役立ちそうですね!
メモしておきます!

本当にありがとうございました!!!

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