【Excel】この場合、計算式は？

解決済

質問者：Meuniere
質問日時：2008/10/02 16:14
回答数：2件

下記のような【予約シートA】があったとします。

----------------------------------
記帳日　　予約日　　何日後？
10/2　　　10/8　　　6
10/2　　　10/6　　　4
10/3　　　10/4　　　1
10/3　　　10/10　　 7
----------------------------------

「何日後？」のセルは、=(予約日－記帳日)とします。
更に、下記のような【集計シートB】があったとします。

----------------------------------
　　　　1　　　2　　　3　　　4　　　5
10/3
10/4
10/5
10/6
----------------------------------

この【シートB】に、【シートA】の予約日から、何日前に予約をとったか、という計算式を入れることは可能でしょうか。
例えば【シートA】によると、10/6の4日前に予約がひとつ取れているので、【シートB】の「10/6」行、「4」列に「1」と
カウントするような計算式、ということです。

解りづらくてゴメンナサイ。必要がありましたら、補足しますのでご指摘ください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： kaisyainO
回答日時：2008/10/02 16:53

予約シートAに作業列を加えてもよろしければ、

このやり方でいけると思います
　 A　　　　　B　　　　　C
1　記帳日　　予約日　　何日後？
2　10/2　　　10/8　　　6

D行にこの作業列を追加（例としてD2に入力する式）D列全てにコピペ
　=B2&"&"&C2

予約シートB
「10/1」行、「１」列（ここのセルがB2ということで）
B2に下の式を入れて　計算式を入れたいところにコピペ
=COUNTIF(SheetA!$D:$D,$A2&"&"&B$1)

できると思いますがいかがでしょうか？

- 0
- 件

通報する

この回答へのお礼

ご回答ありがとうございました！
ANo.1、ANo.2いずれの方法でも成功しました！
どちらにも20P付与したいところですが不可能ですので・・・
先にご回答いただいた方から、ということでご了承ください。

通報する

お礼日時：2008/10/02 18:51

No.2

回答者： mt2008
回答日時：2008/10/02 17:16

集計シートBのセルB2に

=SUMPRODUCT((予約シートA!$B$2:$B$5=$A2)*(予約シートA!$C$2:$C$5=B$1))
と入れてコピーでどうでしょう？

- 0
- 件

通報する

この回答へのお礼

通報する

お礼日時：2008/10/02 18:51

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

質問する（無料）

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

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

Q【OpenOffice】改ページプレビューで「新規シート」「シートコピー」をすると表示範囲（青線）が表示されない【Excelでも？】

こんにちは、はじめまして。
OSはWindowsXPで、
office系ソフトは使用せず、
無料で見つけた「OpenOffice.org 3.1」を使用しています。
「表計算ドキュメント」についてどうしても解決出来ないので質問させて下さい。

便利なので「改ページプレビュー」を利用するのですが、
この状態で「新規シートの作成」もしくは「コピー」を行うと、
改ページ特有の青い線が表示されず、
全部がグレイになってしまうのです。

この青い線を表示させ、
グレイ部分を白色（＝表示）するにはどうすれば良いのでしょ...続きを読む

Aベストアンサー

> 便利なので「改ページプレビュー」を利用するのですが、
この状態で「新規シートの作成」もしくは「コピー」を行うと、
改ページ特有の青い線が表示されず、全部がグレイになってしまうのです。

試してみましたが、ご質問のような現象は見られません。

「改ページプレビュー」の青い線は「印刷範囲」を示しています。
従って、適当なセル範囲を選択して、右クリックから「印刷範囲の指定」を指定すると、選択したセル範囲が太い青の線で囲まれると思います。

また、この太い青の線にマウスの先端を...続きを読む

他の回答も見る

Q【VBA】シート１の入力表をシート２に並び替えて表示させたい【VBA】

はじめて質問させて頂きます。
駄文で伝わりづらいかと思いますが、大変困っておりますので、ご教授下さい。宜しくお願いします。

【シート１】

　　　　　　商品コード
店舗コード　００１　　００２　００３
００００Ａ　　￥１　　　￥２　　￥３
００００Ｂ　　￥４　　　￥５　　￥６
００００Ｃ　　￥７　　　￥８　　￥９

【シート２】

店舗コード　商品コード　金額
００００Ａ　　００１　　　￥１
００００Ａ　　００２　　　￥２
００００Ａ　　００３　　　￥３
００００Ｂ　　...続きを読む

Aベストアンサー

それほど詳しくはないですが、こんなかんじでしょうか

Option Explicit

Sub sample()
Dim y As Integer
Dim i As Integer
Dim x As Integer
i = 2
y = 3
Do Until Sheets(1).Cells(y, 1).Value = ""
For x = 2 To 4
Sheets(2).Cells(i, 1).Value = Sheets(1).Cells(y, 1).Value
Sheets(2).Cells(i, 2).Value = Sheets(1).Cells(2, x).Value
Sheets(2).Cells(i, 3).Value = Sheets(1).Cells(y, x).Value
i = i ...続きを読む

他の回答も見る

Q"西暦 1933 年 6 月 20 日" のような日付をエクセルで1933/6/20に変換する。

"西暦 1933 年 6 月 20 日" のような日付をエクセルで1933/6/20のように取扱い可能なものに変換したいのですがよい方法がないでしょうか。

年と数字の間などの半角スペースなどが障害かと思います。

Aベストアンサー

こんばんは。

#5の回答者です。
>年のフォントの問題か数式ではうまくいきませんでしたがマクロではできました。
実は、私のところもそうだったのです。それで、年という文字を新たに入れ直したら、通ったのですが、大量だと大変ですね。

それで、マクロが設置できたのは、本当に、良かったなって思います。今回の方法は「正規表現(RegExp=Regular Expression)」というのですが、これが入れば、もう怖いものナシです。どんなものでも、数字を拾いだしてきます。後々で、修正するのが簡単なのです。欠点は、少し遅いということです。
どこの掲示板でも、「正規表現」を知っている人がいますから、こういう日付だと言えば、誰かが答えます。
.Pattern = ****** の部分を書き換えるだけで、ほとんど済ませられます。

>ただこの日付がいろいろなセルにあるのですが、選択したところのみを変換する、というふうにはできないでしょうか。

やっぱりそうなんだろうなって思いました。ふと、後で気になりました。
簡単に換えられます。

もしも、前のコードをそのまま使うならですが、以下をそのまま貼り付けてもよいです。
もともとは、実験的なものでしたから、今回のものが良ければ、そのまま、こちらに切り替えてください。

ただし、心のこりとしては、、平成・昭和・大正・明治の元号がついている場合と、それから、年号そのものがない場合は、対応出来ていません。必要な場合は、今のを元にして考えられると思います。それと注意点は、今のシステムを利用したものは、1900年以降になってしまいます。

変更点：
'-------------------------------------------
1．SUbの後の最初の名前を換えました。
2．3．「（コメント）ブロック」というのは、センテンスの先頭に「'（シングルクオート）」を書き入れただけです。むろん、削除してしまっても問題ないレベルです。
4．A1～A列のデータの終わりまでとあった所を、Selection.Cells　に換えます。
セル上のみで、オートシェイプの上は、ダメです。
'-----------------------------------------------
2.3.を変えたことで、例えば、西暦があっても、なくても、1936年2月13日でも、1936・02・13　でも、西暦1936　年　2月13　日でも、数字の塊が、3つあれば、それを拾ってきます。

'//
Sub ChangingDate() '←名前は同じでなければなんでもよい
　Dim Matches
　Dim n As String
　Dim buf As String
　Dim c As Range
　With CreateObject("VBScript.RegExp")
　　Application.ScreenUpdating = False
　　For Each c In Selection.Cells　'←このように書き換えるだけでよい。
　　　'If InStr(1, c.Text, "西暦") > 0 Then　'←この制限を「'」でブロックします。
　　　　n = c.Text
　　　　.Pattern = "(\d{4})\D+(\d{1,2})\D+(\d{1,2})\D*"
　　　　.Global = False
　　　　Set Matches = .Execute(n)
　　　　If Matches.Count > 0 Then
　　　　　With Matches(0).SubMatches
　　　　　　If .Count = 3 Then
　　　　　　　buf = .Item(0) & "/" & .Item(1) & "/" & .Item(2)
　　　　　　　If IsDate(buf) Then
　　　　　　　　c.Value = buf
　　　　　　　　c.Value = c.Value
　　　　　　　End If
　　　　　　　buf = ""
　　　　　　End If
　　　　　End With
　　　　End If
　　　'End If　　'←ここも「'」でブロックします。
　　Next c
　　Application.ScreenUpdating = True
　End With
End Sub
'//

他の回答も見る

Qエクセルマクロについてお伺いします。例なのですが、 A1に2016/6/9 B1に2016/6/1

エクセルマクロについてお伺いします。
例なのですが、
A1に2016/6/9
B1に2016/6/14
と入力したら、下記のようにその期間中の曜日に数字の1を表示させるようなマクロは可能でしょうか？

A B C D E F G H I
1 月火水木金土日
2 今週 1 1 1 1
3 来週 1 1

Aベストアンサー

「下記」の部分が表になってないので細かいところわかりませんが、
C1に
=today()

今週・月　のセルに
=IF(AND($A$1>=$C$1-WEEKDAY($C$1,3),$A$1<=$C$1-WEEKDAY($C$1,3)+6,WEEKDAY($A$1,11)=1),1,"")

来週・月　のセルに
=IF(AND($B$1>=$C$1-WEEKDAY($C$1,3)+7,$B$1<=$C$1-WEEKDAY($C$1,3)+13,WEEKDAY($B$1,11)=1),1,"")

と入力してください。
火曜日～日曜日は、各数式最後の「,1,"")」の部分を、火曜なら「,2,"")」、水曜なら「,3,"")」と増やしていってコピーしてください。

質問中の表だと１がたくさん表示されてますが、本文どおりですとこのようになります。

他の回答も見る