シートの表に簡単に入力する方法

質問

現在は手動でそのセル毎に入力しています。
皆さんのお知恵をお借りして省力化したいと願っています。
当方は　XP EXCEL2003です。
下記のようなシートが１２枚(１～１２月)あります。

　　A 　　B　　　 C D E AH
1 顧客ID 顧客名　合計　１日 　２日　～　３１日
2 001 A社　　10,000 10,000
3 002　 B社
4 003 C社

180 181 X社
　　　　 合計 10,000 10,000 0 0

この場合、「顧客ID」「日付」「数値」の３点をシートの表に入力する
カードがあってOKボタンをクリックしたら表に入力される方法がありませんか。

例
「顧客ID」001　「日付」１日　「数字」１００００と入力してOK しますと
上の表に入力されるカードみたいなもの。

余り詳しくない小生ですがどうぞよろしく御願いします。

回答No.6

hallo-2007

No2　No4です。
No5の方の回答見て考えたら前回も全く同じ事アドバイスしていますね。
一度新しいブックで以下のこと試してみてください
Sheet1
日付　会社ID　金額　作業列
7/1　AAA　　　100 =TEXT(A2,"yymmdd")&B2
7/1　BBB　　　200
・・・
適当にA　B　C列入れて　D列に上記式入れて下までフィル（コピイ）してください。
Sheet2
　　　　7/1　7/2　　7/2・・・
AAA　　=SUMIF(Sheet1!$D:$D,TEXT(B$1,"yymmdd")&$A2,Sheet1!$C:$C)
BBB
CCC
・・・・
B2セルに
=SUMIF(Sheet1!$D:$D,TEXT(B$1,"yymmdd")&$A2,Sheet1!$C:$C)
入れて右フィル下フィルでシートいっぱいにコピイしてください。
Sheet1にデータ入れると勝手に希望の部分に数値が集計されると思います。更にデータのシートには入力した順番に記録が残りますのでミスも
発見できます。

エクセルは集計を得意としています。一般的な集計のシートならばピボットテーブルで自動でもできます。
データシートもNo4で紹介した入力規則とかVBAを利用して入力しやすいシートを考えます。
しつこいようですが一般的な使い方でシートを構成すると　
エクセルの一般の機能で便利なファイルが出来ます
（MSさんも一般的な使い方で便利な機能を付加しているのでしょう）
集計の結果から入力を考えると順番が逆になるので
入力のシートから集計の結果を考えて見てください。

お礼

ご指導有難うございました。
ご指導通りで完成間近です。
私が求めていた物です。
本当に有難うございました。６６６

回答No.5

stingy

ご苦労されているようですが、前の質問たちは〆てくださいね。
ご要望のカードみたいなものは自作しないとありません。
失礼ですが、ご質問者様のレベルではきついと思います。
ところで、「ウィンドウ枠の固定」と「オートフィルタ」は使ってますか？
少しだけだけど入力しやすくなります。
それと、「条件付合計式ウィザード」を調べてみてください。
ANo.2さんの方法の集計シートのD3(?)などに入れる数式を作成できます。

回答No.4

hallo-2007

No2ですが　ついでに
データ（シート）
　A　　　　 　B　　　　C
「顧客ID」「年月日」「数値」
に入力する際には
A列　「顧客ID」には　顧客マスターシートの顧客IDを入力規則のリストに設定（ミスも防げる上にマウスで選択できます）

データシートのシート名のタブクリックして　コードの表示　クリック
VBエディター内に
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1).Value = Date
Target.Offset(0, 2).Activate
End If
End Sub
を貼り付けてみてください。
A列　「顧客ID」を変更すると　B列に日付がはいって　C列へ移動します。

お礼

ご協力感謝します。
有難うございました。

回答No.3

imogasi

MATCH関数ーINDEX関数があるおかげで入れる位置は判る。
顧客ID でA列で一致する行数（X)をMATCH関数で見つける。
月中すべての日付の入っている第１行目で、日付の列（Y)をMATCH関数で見つける。
INDEX関数で表のX行、Y列のセルを指し示せるので、そこに計数を入れることになる。
ーー
しかし、関数の本質論から、
多分質問者の考えているレベルの「関数！」では、セルを指定して、C1の計数を入れられない。
すなわち,入力する場所をいつも１セル（ｃ１など）にして、指定情報で（顧客ID+日付で）データを、表の各セルに振り向けるということは関数では出来ない。
VBAならC1計数が変わったら上記のセルの場所を計算し、そのセルに
C1計数を入れられる。
ーーーー
既回答でも出ているのではないかと思うが、
結論として関数では、別シートにでも、全顧客の計数データを一度１行１行、別行に記録したものを作らないとダメです。
そこ（計数データシート）からMATCHとINDEX関数を使って、集計シートのしかるべき位置に、データを採ってくることの理屈は前述の通り。

お礼

ご協力いただき誠に有難うございました。

回答No.2

hallo-2007

私だったら　データのシートを作成します。
データ（シート）
　A　　　　 　B　　　　C
「顧客ID」「年月日」「数値」
としてひたすら　縦方向に入力

顧客マスター（シート）
　A　　　B　　　 C　　D
顧客ID 顧客名　住所　電話番号　・・・

集計シート
　　A 　　B　　　 C D E AH
1　年月　2008年7月
2　顧客ID 顧客名　合計　１日 　２日　～　３１日
3　001 A社　　10,000 10,000
4　002　 B社
・・・・
とB1に日付入れるとその月の集計が出るシートを考えます。
月単位のグラフなどほかの集計を依頼されたときでもデータがひとつの
シートに並んでいたほうが便利です。

お礼

ご協力いただき誠に有難うございました。

回答No.1

n-jun

>「顧客ID」001　「日付」１日　「数字」１００００と入力してOK しますと
>上の表に入力されるカードみたいなもの。
例えば２日なら２日の列にとかみたいな事でしょうか？

第９章　1.ユーザーフォームの挿入～　以降のページ
http://excelvba.pc-users.net/fol9/9_1.html
多分こんな感じで自作しないと無理かなと思います。
それ以外に該当する（交差する）所に、入力したデータを入れるための
コード作成も必要かな。

お礼

ご協力いただき誠に有難うございました。