Excelで日計表みたいなものを作っています。

A-1に日付
A-2に醤油ラーメン  B-2に売上金額¥2,530
A-3に味噌ラーメン  B-3に売上金額¥1,830
A-4に塩ラーメン   B-4に売上金額¥2,450

のような表が毎日繰り返されています。3月なら定休日の水曜を除いて26のシートがあります。

この味噌ラーメンの月合計を出すにはどうしたら良いのかお知恵を貸して下さい。B-2の3月の合計ということで・・・

※架空でラーメンやさんの売り上げにしてますが、本当は違いますのでご了承下さい。

このQ&Aに関連する最新のQ&A

A 回答 (6件)

いわゆる串刺し演算でしょうか。


シートが違っても1つ1つのセルをシートをめくって足していくことができます。
串刺しは異なるシートの同じセル番号を範囲指定する方法です。

通常通り合計を表示したい位置に「=sam()」を用意して(オートサムをクリック)、まず先頭のシートを開き合計したいセルをクリックします。
次に範囲の最後になるシートを開くのですが、このときにshiftキーを押しながらタブをクリックします。
これで範囲にシートを串刺ししたものがはいりますので、enterキーを押せば、セルに串刺し演算の結果が入ります。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。

できました!!簡単でした!!

お礼日時:2005/04/08 13:05

日毎集計シート "3月1日"


3月1日
品名売上金額
みかん1
りんご2

日毎集計シート "3月2日"
3月2日
品名売上金額
みかん10
りんご20

日毎集計シート "3月xx日" ・・・


月間まとめ 出力シート  3月 
2005年3月
品名売上金額
りんご=全部のシートの項目の合計(A3)
みかん=全部のシートの項目の合計("みかん")

動作
日毎集計シートの シート名を判断して
各シートで指定した品名の 右隣の売上金額を集計します。
※各シートで同じ品名のセルが無いこと。
※月間まとめ 出力シート のシート名に シート名判定 文字・語句を含まないこと。

 
↓ツール マクロ 標準モジュールに追加↓

Function 日毎シートの項目の合計(検索語句)

シート名判定 = "日" 'を含む 日付け名に応じて"3/" など

If IsObject(検索語句) Then
品目語 = 検索語句.Value
Else
品目語 = 検索語句
End If

For Each シート In Worksheets
If シート.Name Like "*" & シート名判定 & "*" Then
Set 発見品目セル = シート.Cells.Find(what:=品目語, Lookat:=xlWhole)
If Not 発見品目セル Is Nothing Then
合計 = 合計 + 発見品目セル.Offset(0, 1) '品目の右隣の品目売上金額/日
End If

End If
Next
全部のシートの項目の合計 = 合計
End Function
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます

ほとんど意味が分かりませんでした!
勉強して出直してきますm(_ _)m

お礼日時:2005/04/08 13:15

補足です。



結果を書いてなかったですね。
=sam(Sheet1:Sheet26!B2)
となるはずです。

で、1つコツがありますが、毎日シートを増やす場合、シートが増えると合計の最後のシート名が変わってしまうので、合計セルを一々書き換えないと行けなくなります。
そこで、日計のシートの前後に表紙と裏表紙にあたるシートを挟み
=sam(表紙:裏表紙!B2)
とすれば、間にシートが何枚になっても、どのシートを追加・削除したとしても合計がでてくれますし、合計シートに手を加える必要もありません。

私の場合は、裏表紙を日計表の原本にして、追加のシートはこれをコピーして使うようにしています。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます

>>日計のシートの前後に表紙と裏表紙にあたるシートを挟み
>>=sam(表紙:裏表紙!B2)とすれば

うーーんと、、、、後でやってみます(^_^;)

お礼日時:2005/04/08 13:13

3D集計(串刺し集計)でできます。



文字だけの説明では理解しづらいと思いますので、
解説してるHPを紹介しておきます。
     ↓

参考URL:http://www.eurus.dti.ne.jp/~yoneyama/Excel/ex-q- …
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます

参考URLもありがとうございます

お礼日時:2005/04/08 13:10

串刺し計算させれば良いのでは?


シート名が1日~31日(定休日や存在しない日は未入力)として
=SUM('1日:31日'!B2)
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます

串刺し計算という言葉自体はじめてしりました!

お礼日時:2005/04/08 13:08

手入力するのであれば


=Sheet1!B2+Sheet2!B2+Sheet3!B2・・・
みたいな感じでいけると思いますよ。

1個作ればあとはコピーで。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。

できました!

お礼日時:2005/04/08 13:04

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qシートベルトの固定解除

チャイルドシートを取りはずそうとして,(シートベルトの固定機能が作動しているときに)誤って,チャイルドシートの固定する金具の軸に引っかけてしまい,そのためチャイルドシートが取り外せなくなってしまいました。つまり引っ張っても,固定されてしまってシートベルトが伸びずにはずせなくなってしまったのです。
一度,シートベルトを巻き戻すほかに,シートベルトの固定を解除する方法はないのでしょうか。
車屋さんに頼むしかないのでしょうか。

Aベストアンサー

最近の車のリアシートの、最後までシートベルトを引き出すとカチカチカチカチと引き込まれるタイプですね?

探してもないかとは思いますが、お車によってはどこかをどうにかするとシートベルトが、チャイルドシート固定機構が外れる構造になっているかもしれません。その場合は、お車の取扱説明書に書かれている場合もあると思いますので、まずは探してみて下さい。(外車や高級車ですと、電気的に、裏コマンドで、例えば“どこかのスイッチを何回繰り返し押すとチャイルドシート固定機構が外れる。”なんてことになっているかもしれませんので、)無理に何かをやってみる前に、その辺(取扱説明書や、ディーラーに電話 問い合わせ)をまずよく確かめてみて下さい。

次に、“知恵の輪”的にやってみるしかないです。まず、反対側のシートベルトで、どこまで引き込めばチャイルドシート固定機構がフリーになるのかを確認し、その長さまで何とか引き込めないかを、知恵の輪の様にやってみるのです。これでしばらくやってみても無理でしたら、もう無理です。


次に、どこかを外し始めることになりますが、セダンですと、取扱説明書に、リアシートの外し方が載っている場合が多いです。これは、最近のリアシートは、シートカバーを付けたり外したりしやすいように、工具なしで簡単にリアシートが外れる場合が多いのです。リアシートが外れれば、その分すき間ができますので、その分引き込めてチャイルドシート固定機構がフリーになるかもしれません。
これも、シートを外す前に、反対側ベルトで長さを確認してから作業を始めたほうが良いですね。


フロントシートベルトに付いているアンカー(肩の上にある、肩ベルトの高さを調節する部分。)のようなものがリアシートベルトにも付いておりましたら、最後の手段があります。

(上記が全てが不可でしたら、)“最後の手段”、シートベルトの一番上のアンカーのところのボルトだけを外します。自転車の車輪が外せる程度のDIYが出来るかたがおられましたら、可能な作業ではありますが、100%の自信がある場合以外は、専門家に頼んで下さい。
ラチェットハンドル(http://www.koken-tool.co.jp/img/products/tec/ratchet/3753n.jpg)と ソケットレンチ(http://www.koken-tool.co.jp/catalog/img/main/h4/4400m.jpg)といった工具を必ず使って下さい。

決してこんな モンキレンチ(http://www.kyototool.co.jp/products/catalog/nepros/nwm.jpg)や スパナ(http://www.kyototool.co.jp/products/catalog/nepros/ns2.jpg)は使ってはいけません。

どこのボルトを緩めるかといいますと、リアシートベルトを支えてる、一番上の部分てありますよね?座った時に肩より上に来る部分です(アンカーといいます。)。これは、ボルト1本で取り付けられているのですが、きっとプラスチックの めくらぶた が付いていると思いますが、まずこれを外し、 ボルトを緩める前に、油性マジックインキなどでボルトの頭の一番上に印を付けておくと、あとで締め付けるときの目安になります。
その後、ソケットレンチにて、反時計回りにじわっと緩めます。この時注意して頂きたいのは、緩んだ瞬間に工具がリアガラスに当たって割れないように充分に気を付けて下さい。

ボルトが緩みさえすれば後は簡単です。手でボルトをクルクル緩め、完全に外れる前に、アンカー内にあるスペーサーやワッシャーをなどを なくさないように気を付けて、付いてる順番などを覚えながら外して下さい。

これでかなりの量のベルトが引き込めるようにはなるのですが、これを外したところで、必ずチャイルドシート固定機構が外れるかどうかは分からないというのが実際です。なぜなら、お車が、どの程度ベルトが引き込まれれば固定機構が外れるかや、チャイルドシートがどの程度ベルトを消費(巻き付き)しているかによって、変わってくるのです。

(リアシートの方は、アンカーが内装トリムの中に隠れているタイプの車もあり、その場合は、トリムを外すといったことは、出来そうな気がしても、お勧めできません。  トリムはなれない人が外すと割れてしまったりします。)


リアシート座面を外して、腰より下の部分のシートベルト(左シートなら腰の左側)の取り付け部を外す方法もありますが、ここまでやる場合は、よほど自信がある場合だけにして下さい。
(車をいじくるのが好きでいつもやっているかたですと簡単な作業ですが、そうでない場合は、工具を使う作業については専門家に頼んで下さい。)

最近の車のリアシートの、最後までシートベルトを引き出すとカチカチカチカチと引き込まれるタイプですね?

探してもないかとは思いますが、お車によってはどこかをどうにかするとシートベルトが、チャイルドシート固定機構が外れる構造になっているかもしれません。その場合は、お車の取扱説明書に書かれている場合もあると思いますので、まずは探してみて下さい。(外車や高級車ですと、電気的に、裏コマンドで、例えば“どこかのスイッチを何回繰り返し押すとチャイルドシート固定機構が外れる。”なんてこと...続きを読む

QシートAとシートBのあるセルの合計をシートCに出したい

Office2003のVBAを勉強中です。

2つのエクセルファイル(ファイルA、ファイルB)があります。
ファイルA、Bにはシートが一つづつあり、そこには同じフォーマットで表が書かれています。

ファイルA、Bのシートに書かれている表の合計を新規に作成したエクセルファイルCに書き込みたい場合、皆さんならどのようにされるでしょうか?

僕は下記のように考えました。
1.ファイルCを作成
2.ファイルAの対象シートをファイルCのシート1へコピー
3.ファイルBの対象シートをファイルCのシート2へコピー
4.ファイルCのシート3にシート1とシート2の合計を計算表示

「そんな手間な事をせずとももっと・・・」だとかあるようでしたら、
皆さんのご意見をお聞かせください。

それともう一つ、シート1の指定セルとシート2の指定セルの合計をシート3の指定セルに計算表示するのはどのようなロジックを書けばよいのでしょうか?

Aベストアンサー

こんばんは。

>Office2003のVBAを勉強中です。

私のいつもの持論なのですが、VBA勉強中は、なるべく、ワークシートのごちゃごちゃしたものには、手を出さないほうがよいですね。1年掛かるものが、2年になってしまいます。ワークシートを扱うと、結構つまらないことで振り回されるので、「ロジック」とは関係のないところに行ってしまいます。

とはいえ、実務上の問題は避けては通れないのですから、軽く流す程度にしたほうがよいと思います。

>僕は下記のように考えました。
1~4
それで良いとは思うけれど、それを現実化させるというのは、実は、意外とつまらない部分でつまづくことが多いかもしれません。

まったく、同じ造りのシートだとしたら、#3の[統合=Consolidation] が最も便利かなって思います。

ただ、元のデータのブックが開けてある状態なら、意外に単純な方式で出来ます。C列だけを計算すればよいのですね。

1~3行目まであるデータで、A列,B列が項目と明細が入っていて、C列が計算行です。

ひとつのSheet1は、
 A   B    C
日時  名前  金額
20061201  Aさん  100
20061202  Cさん  200
20061203  Bさん  100

同じようなシートで、金額だけ違うような場合は、

マクロは、以下のようになります。

Sub TestSample1()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim newWb As Workbook
Set wb1 = Workbooks("TEST061.XLS")
Set wb2 = Workbooks("TEST062.XLS")

Set newWb = Workbooks.Add
With wb1.Worksheets("Sheet1")
'項目のコピー
 .Range("A1", .Range("A65536").End(xlUp).Offset(, 2)).Copy _
  newWb.Worksheets(1).Range("A1")
End With

With newWb.Worksheets(1)
  'C列に数式を作る
  .Range("A2", .Range("A65536").End(xlUp)).Offset(, 2).FormulaLocal _
   = "=[" & wb1.Name & "]Sheet1!RC +[" & wb2.Name & "]Sheet1!RC"
  '値貼り付け
  .Range("A2", .Range("A65536").End(xlUp)).Offset(, 2).Value = _
  .Range("A2", .Range("A65536").End(xlUp)).Offset(, 2).Value
  '合計を出す
  .Range("A65536").End(xlUp).Offset(1, 2).FormulaLocal = _
  "=SUM(" & .Range("A2", .Range("A65536").End(xlUp)).Offset(, 2).Address(0, 0) & ")"
 
End With
End Sub

なお、保存は手動でしてください。

こんばんは。

>Office2003のVBAを勉強中です。

私のいつもの持論なのですが、VBA勉強中は、なるべく、ワークシートのごちゃごちゃしたものには、手を出さないほうがよいですね。1年掛かるものが、2年になってしまいます。ワークシートを扱うと、結構つまらないことで振り回されるので、「ロジック」とは関係のないところに行ってしまいます。

とはいえ、実務上の問題は避けては通れないのですから、軽く流す程度にしたほうがよいと思います。

>僕は下記のように考えました。
1~4
それで良いとは思...続きを読む

Q野球のシートを購入した時の会計処理について

野球のシートを購入した時の会計処理について
中小企業で経理をしています。
野球の年間ボックスシートを購入した際の会計処理について教えてください。

最初はお客さんに配るためにシートを購入したのですが、実際にはほとんど社員が観戦に行っています。
この場合は交際費ではなくて、福利厚生費に直すべきでしょうか。
ちなみに一番はじめは交際費にしてありました。

どなたか詳しい方がいらしたら、教えてください。

Aベストアンサー

実情が福利厚生費なので、そうするべきです。
交際費だと全額損金にならないため、税務上は損をしていることになります。

QExcelで複数シートの同一セルをカウントしたいのですが・・・。

Excelで複数シートの同一セルをカウントしたいのですが・・・。

1bookに対して100sheetほどあります。

カウントするセルはA1。

数値は1~10のみで、それぞれ1が10個、2が15個・・・
とカウントしたいのです。

方法はありますでしょうか?
初心者ですので分かり易くご教授願います。。

Aベストアンサー

=SUMPRODUCT(COUNTIF(INDIRECT("'Sheet"&ROW(1:100)&"'!A1"),"=1"))

で最後の数値=1をそれぞれ=10まで変更してください。

Q輸出車のボンネットなどに貼られている白いシートについて

 輸出車のボンネットなどに貼られている白いシートですが、あれは、塗装の保護のためでしょうか。
 
 また、シートを貼り付けて塗装を傷めないような接着の方法があると思いますが、どのようなものでしょうか。

 このシートは買い求めることは可能でしょうか。

 ご回答をお待ちしています。

Aベストアンサー

>あれは、塗装の保護のためでしょうか。

 御意。コイツとか↓
http://www.kansai.co.jp/products/automotive/lap.html
コイツなど。↓
http://www.tyvek.co.jp/cover/index.html

 輸出車でなくても、国内向けのクルマにも貼ってますよ。ディーラではがして納車しています。
 昔は保護用塗料を吹いていたんですが(白く粉っぽい、ザラザラした保護塗装です)、ディーラで完全に洗い落とすのが結構面倒で、より手軽なシートに変わりました。
 実はシートをキレイに剥がすのもちょっと難しく、上記下段URLのデュポンのシートは現在使われているシートの代替として最近登場したモノです。

>このシートは買い求めることは可能でしょうか。

 フツーに買うことは可能ですが、1~2枚などという小口で買えるかどうかは判りません(100枚セットなどという箱入りになっています。)
 メーカに問い合わせてみるか、或いは板金屋などで分けてもらうという手もありそうです。 

QExcelで、複数のシートの同じセル番地の数値の合計を出したいのですが…。

今、Excelの作業をしています。
そこで、もっと効率のいい方法を知りたくて質問いたしました。

例えば、1つのブックに、シート1・シート2・シート3・シート4とあったとします。
(どのシートも数値は違いますが、形式は同一)
そのシート1~シート4の各セルの合計をシート5に作るには、どうすればいいのでしょうか?

数字の量が多すぎて、とても一つ一つ足していけません。
詳細な回答をよろしくお願いします。

追記:数字の量が多いので、式(+)を入力する方法以外でお願いします。

Aベストアンサー

> シート名を例えば「○○店」「××店」「△△店」「□□店」の順に並べていたとしたら、どう表記すればいいのでしょうか?

No1です。
おなじですよ。最初と最後のシート名ですから
=SUM(○○店:□□店!A1)
でOKです。

QYAMAHASRV250のシートの取り外し方

質問です。

YAMAHASRV250のウィンカーを取り替えているのですが、どうやらシートの下部で配線されているようなのです。
シートを持ち上げてみるのですが中央の部分がしっかりと固定されているようで女のわたしには取り外しができません。

どこかにロックのようなものがついているのでしょうか
どなたかシートの取り外しの方法を教えて下さい。

Aベストアンサー

リアフェンダーの内側を覗き込んで、シートベルトの裏あたりにボルトがあります。
それを取ってください。
左右です。

バイクに男女は関係ありません。
そのようなexcuseはあまり好感が持てません。

Q【エクセル】複数シートの同一セルの内容を別のシートに自動反映させたい

エクセルについて教えてください。エクセル初心者なので、説明がうまくできないのですが、やりたいことを汲み取っていただけると助かります。

現在複数シートのシートの同一セル上に数字が記入されています。
新たに別シートを作成し、その表に数字が自動入力されるように
したいのですが、何か方法はありますでしょうか。
例)(1)シート1~12のA10セルに4月-3月までの支出合計が
   記入されている。
  (2)別シートに縦罫4月-3月、横罫支出合計とした表を作成。
  この表に月ごとの支出合計が自動的に反映されるように
  したいのですが、今はセル一つずつに"=シート1のセルA10"を
  入力しています。
  この方法以外に便利な方法があったら教えてください。

  説明下手で申し訳ございませんが、宜しくお願い致します。

Aベストアンサー

>>=INDIRECT("支出"&A2&"!A10")
上記の計算式でやってみたのですが、#REF!となってしまいます。

A2セルに「4月」などの月がシート名と同じフォント(数字が半角で月が全角など)で入力されているのでしょうか?

念のため、「=INDIRECT("支出4月!A10")」と数式を使わずに文字列でそのまま参照したときに正しい値が返るか調べてみてください。

Qチャイルドシートの固定金具

チャイルドシートを固定するときに使う、固定金具(ロッキングクリップ)はどこで売っているのでしょうか。
ご存知でしたら教えてください。よろしくお願いします。

Aベストアンサー

お近くのオートバックス、イエローハット、ジェームスなどで売ってます。
シートベルトだけでなく、補助ベルトも使ってつけるとしっかり固定できます。

Q【補足回答希望】同一フォルダ内の複数ブックの複数シートの特定セルの集計を出したい

すみません、下記質問をすでに締め切ってしまった為
再度投稿しました。
1点再度ご教授願います。
https://oshiete.goo.ne.jp/qa/9760333.html

下記のマクロは合計シートの集計の際のマクロなのですが
合計シートより左側のシートを集計するという指示だと思うのですが
それ以外シートという別シートでも別の項目を集計する為、集計する際、それ以外シートが合計シートの右側にある為、エラーが出てしまいます。
そういった場合は、どういった内容に修正すればエラーにならずに処理できますでしょうか?

'1つのブックを処理する
Private Sub Read1Book(ByVal bookname As String)
Dim ws As Worksheet
Dim i As Long
Workbooks.Open Folder & "\" & bookname
For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
If ws.Name = "合計" Then Exit For '追加①
Call Read1Sheet(bookname, ws)
Next
Workbooks(bookname).Close
End Sub

すみません、下記質問をすでに締め切ってしまった為
再度投稿しました。
1点再度ご教授願います。
https://oshiete.goo.ne.jp/qa/9760333.html

下記のマクロは合計シートの集計の際のマクロなのですが
合計シートより左側のシートを集計するという指示だと思うのですが
それ以外シートという別シートでも別の項目を集計する為、集計する際、それ以外シートが合計シートの右側にある為、エラーが出てしまいます。
そういった場合は、どういった内容に修正すればエラーにならずに処理できますでしょうか?
...続きを読む

Aベストアンサー

合計シートの右側でも「それ以外」シートは処理したいということでしょうか。
処理対象となるのは
①合計シートの左側のシート
②それ以外シート(どこにあっても良い)
となります。

'1つのブックを処理する
Private Sub Read1Book(ByVal bookname As String)
Dim ws As Worksheet
Dim i As Long
Dim flag As Boolean
flag = True
Workbooks.Open Folder & "\" & bookname
For i = 1 To Worksheets.count
Set ws = Worksheets(i)
If ws.name = "合計" Then
flag = False
End If
If flag = True Or ws.name = "それ以外" Then
Call Read1Sheet(bookname, ws)
End If
Next
Workbooks(bookname).Close
End Sub

合計シートの右側でも「それ以外」シートは処理したいということでしょうか。
処理対象となるのは
①合計シートの左側のシート
②それ以外シート(どこにあっても良い)
となります。

'1つのブックを処理する
Private Sub Read1Book(ByVal bookname As String)
Dim ws As Worksheet
Dim i As Long
Dim flag As Boolean
flag = True
Workbooks.Open Folder & "\" & bookname
For i = 1 To Worksheets.count
Set ws = Worksheets(i)
If ws.name = "合計" Then
...続きを読む


人気Q&Aランキング

おすすめ情報