エクセルでこのような事できますか？

エクセル初心者で全然分らないので教えてください。例えば来館者を時間ごとにカウントしていきたいのですが・・・そのカウントをエクセルの表で表す事できますか？？やはりそのような事はできないのでしょうか・・・・一人ずつカウントしていき合計を横に出すといったかたちをとりたいのです。

No.5 ベストアンサー 回答者： imogasi 回答日時： 2002/08/30 21:55

私は解答後の質問の中にあるＯＫＷＥＢの中のコードをコピーアンドペーストだけでやったら、動きました。

再解説しますのでやって見てください。
（１）Dim i As Integer
Private Sub test01()
i = 1
End Subを貼りつけます。
注意事項は、ＶＢＥの画面上で
Private Sub CommandButton1_Click()とＥｎｄ及びその下の
Private Sub CommandButton2_Click()とＥｎｄの塊の外
すなわちPrivate Sub CommandButton1_Click()より上の部分
に貼りつけること。（Private Sub CommandButton1_Click()
とＥｎｄの間に貼りつけてはいけない。）
（２）Private Sub CommandButton1_Click()とＥｎｄのあいだにIf Worksheets("sheet1").Cells(i, 3) <> Minute(Time()) Then
i = i + 1
End If
Worksheets("sheet1").Cells(i, 2) = Hour(Time())
Worksheets("sheet1").Cells(i, 3) = Minute(Time())
Worksheets("sheet1").Cells(i, 4) = Cells(i, 4) + 1
を貼りつけること。
（３）Private Sub CommandButton2_Click()とＥｎｄのあいだ
にIf Worksheets("sheet1").Cells(i, 3) <> Minute(Time()) Then
i = i + 1
End If
Worksheets("sheet1").Cells(i, 2) = Hour(Time())
Worksheets("sheet1").Cells(i, 3) = Minute(Time())
Worksheets("sheet1").Cells(i, 5) = Cells(i, 5) + 1
を貼りつけること。
（４）（１）のi=1の行にカーソルを置いて（ここを間違わないこと）ＶＢＥの画面の実行／Ｓｕｂフォームの実行をクリックする。これでiに１がセットされる。初期値の設定。これが
上手くいかないと、＋１の演算（i=i+1)上手くいかない。
（５）あとはエクセルのシートの男女ボタンをクリックすると
＋１されました。

No.4 回答者： imogasi 回答日時： 2002/08/28 20:11

VBAというものが、初めての方には無理があるかと思いますが,一応易しそうに仕様・要求を簡略化して載せます。

（１）Sheet1の画面で表示－ツールバー－ＶｉｓｕａｌＢａｓｉｃをクリック。
（２）ＶｉｓｕａｌＢａｓｉｃのツールバーの中の四角い「コマンドボタン」をクリック。
（３）Ｓｈｅｅｔ１上にカーソルを持ってくると＋字状になるから右下方向に左マウスを押し下げつつ擦ると、小□が四隅と辺中間に８つ現われる。
（４）四角の中で右クリックする。プロパティをクリック。Ｃａｐｔｉｏｎの行の右列に「男」と打ちこむ。プロパティウインドウの右上の×をクリック。
（５）（２）－（４）をもう一度繰り返す。コマンドボタンをもう1つ作る。Ｃａｐｔｉｏｎの男としたところを「女」といれる。配置はＡ列辺りで、男と女が適当に離れて、上下に揃うようにする。
（６）「男」の方で、小□が四隅と辺中間に８つ現われた状態で、その中でダブルクリックする。
Private Sub CommandButton1_Click()

End Subとなる。
元のＳｈｅｅｔ１に戻りる。
（７）「女」の方でも、小□が四隅と辺中間に８つ現われた状態で、その中でダブルクリックする。
Private Sub CommandButton2_Click()

End Subが（６）の下に追加される。
（８）(6)の方のSub End間に下記コードをコピーして貼りつける
If Worksheets("sheet1").Cells(i, 3) <> Minute(Time()) Then
i = i + 1
End If
Worksheets("sheet1").Cells(i, 2) = Hour(Time())
Worksheets("sheet1").Cells(i, 3) = Minute(Time())
Worksheets("sheet1").Cells(i, 4) = Cells(i, 4) + 1
（９）(７)の方のSub End間に下記コードをコピーして貼りつける
If Worksheets("sheet1").Cells(i, 3) <> Minute(Time()) Then
i = i + 1
End If
Worksheets("sheet1").Cells(i, 2) = Hour(Time())
Worksheets("sheet1").Cells(i, 3) = Minute(Time())
Worksheets("sheet1").Cells(i, 5) = Cells(i, 5) + 1
（１０）Private Sub CommandButton1_Click()の上に
Dim i As Integer
Private Sub test01()
i = 1
End Sub
を貼りつける。
（１１）Private Sub test01()
i = 1
End Subの行にカーソルを置いて、メニューの「実行」－Ｓｕｂ／ユーザーフォームの実行をクリック。
（１２）Ｓｈｅｅｔ１に戻り、三角定規と鉛筆のアイコンをクリック。
（１３）「男」ボタンをクリックするとＤ列の数字が１カウントアップ。「女」ボタンをクリックするとＥ列の数字が１カウントアップ。時刻はＢ列＝時、Ｃ列＝分が表示されます。
パソコンの時計を使っていますので正確に合わせておいてください。
時間ごとなどの合計は、エクセルの表への操作で出したり、印刷したりしてください。
（１４）表をリセットする時は、Ｓｈｅｅｔ１をＳｈｅｅｔ２なりにコピーしてしまってから
）Private Sub test01()
i = 1
End Subの行にカーソルを置いて、メニューの「実行」－「Ｓｕｂ／ユーザーフォームの実行」をクリック。

この回答へのお礼

ありがとうございます。早速実行してみたのですが・・・エラーがでてしまいました。このような感じにプログラムを組んだのですが。なにが間違っているのでしょうか？（13）でエラーが出ます。
Dim i As Integer
Private Sub test01()
i = 1
End Sub

Private Sub CommandButton1_Click()
If Worksheets("sheet1").Cells(i, 3) <> Minute(Time()) Then
i = i + 1
End If
Worksheets("sheet1").Cells(i, 2) = Hour(Time())
Worksheets("sheet1").Cells(i, 3) = Minute(Time())
Worksheets("sheet1").Cells(i, 4) = Cells(i, 4) + 1

End Sub

Private Sub CommandButton2_Click()
If Worksheets("sheet1").Cells(i, 3) <> Minute(Time()) Then
i = i + 1
End If
Worksheets("sheet1").Cells(i, 2) = Hour(Time())
Worksheets("sheet1").Cells(i, 3) = Minute(Time())
Worksheets("sheet1").Cells(i, 5) = Cells(i, 5) + 1

End Sub
宜しくお願い致します。

お礼日時：2002/08/29 22:38

No.3 回答者： imogasi 回答日時： 2002/08/27 00:26

（１）来館者の数を、ドアーの光線さえぎりや重量がかかった

事やドアーの開閉÷２で読み取る装置とパソコンのエクセルを連動させるのは、素人では無理でしょう。
（２）貸出表とかの枚数を別途に人が数えていて、表になっている（または作る）ならエクセルの表に入力すれば、グラフ等に直ぐなるし,時刻別、日別、月別に表せる事は簡単にできます。
（３）ノートパソコンを持ったアルバイトの人が、来館客を
数えて入力する、カウンタの代わりにエクセルを使うなら
ＶＢＡというプログラムになりますが、１０行程度のものを
組めば出来ます。
Private Sub test01()
i = 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(i, 3) <> Minute(Time()) Then
i = i + 1
End If
Cells(i, 2) = Hour(Time())
Cells(i, 3) = Minute(Time())
Cells(i, 4) = Cells(i, 4) + 1
End Sub
来館者を見るごとに、エンタキーを押すと分刻みで１だけ
カウントアップします。分が進むと下行にカウント１アップ
して表上に出して行きます。
（４）最近は各図書館とも、バーコードシステムの貸出し・
返却システムが導入済みのように思います。回りの詳しい方に聞けば、来館者数をはじめ、詳しい統計データが既に出るようになっているはずと思いますが。

この回答へのお礼

（3）のようなかたちでカウントを取っていきたいのですが・・・ちょっと私には難しいのですが。どのように作成すれば良いのでしょうか？？男女別に１時間ごとにカウントしていき男女の合計も一時間ごとにだします。最後に一日の男女別の合計と全体の合計をだす表を作りたいのです。今までは紙で正の字でチェックしていました。それをノートパソコンでおこないたいのです。アドバイスお願い致します。

お礼日時：2002/08/27 19:05

No.2 回答者： miunana 回答日時： 2002/08/26 23:10

来館者と時間をデータベースとして入力後、ピボットテーブルで並べ替え・集計→単位を指定してみてはいかがでしょうか？

No.1 回答者： moccos 回答日時： 2002/08/26 22:56

初めまして。

おっしゃってる意味が良く解らないのですが？
エクセルは集計は得意ですが入力は自動では出来ません。
時間ごとの入場者数を数えるのは何処で誰が如何して・・
もう少し具体的にご質問いただけると回答も増えると思います。
人感センサー等で読み取る装置が有ってその装置から何らかのデジタルデータが受け取れるのでしたら話は別ですが？