エクセル2003又は2007 IF文

質問

私は老人ホームのショートステイ（宿泊施設）で働いているものですが、今回はお泊りにくる利用者さんの予約表をエクセルで作ろうと思いやっていましたが、IF文を使った命令文？で少しわからなくなったので皆様のお力を借りたいと思います。

画像の表が見れたらいいのですが、見て頂きたいのは「予約太郎」さんの所なのですが、太郎さんは月に何度もショートステイ（宿泊）を利用されます、IF分で8月1日～9日までは「-（ハイフン）や>、<（大なり小なり）」が入るようにしてみたのですが、残りの入所2、退所2や入所3、退所3にも日付どおりのところにハイフン等を入れたいのですが、本を見ながらやっても詳しく書いておらず試行錯誤して命令文をいじってみてもエラーばかりになってしまい煮詰まってしまいました。

使用している命令文はこんな感じで

=IF(C4=Sheet2!$C$46,"<-",IF(AND(C4>Sheet2!$C$46,C4<Sheet2!$D$46),"-",IF(C4=Sheet2!$D$46,"->","")))

でくみ上げています、利用する日付等がSheet2が入っているのは、利用する方が多く一つのシートでは入りきらずSheet2を使用しています。

また、予約太郎さんは毎月必ずこの日程でのお泊りではなく月に2～3日ほどのズレが生じます、なので8月1日～8月9日で予約をとってますが、帰る日は11日まで伸びたりするので、翌日の12日から先ほどのIF文のセルの値を変えるわけにもいかず…今使用している命令文の入所日1であるC46だけでなくE46、G46の3つを混同できるような命令文というのは作れないでしょうか。

退所日も然りでD.F.Hの各46セルの3つを一つの命令文に組み込めれたらと思っています。

使い方としては、シート2のC46から入所される日を、D46からは退所される日を入力すれば、日付がシート1のC5のカレンダー通りに、ハイフン等が入る用になっています。
それを同じ行であるシート1のC5行に「E46とF46」と「G46とH46」に日付を入力した時に同じ行にハイフン等を入る用にしたいのです。
要約したほうが伝わるかもしれませんが・・・なんかもう書いてて訳がわからなくなってすみません。
こんな説明で理解できる方がおられればご助力をお願いいたします・・・。

回答No.3

TAKA_R · ベストアンサー

関数は苦手なのですが、書いてみました。
単純なつくりなので分かりやすいかと思います。
カレンダー（シート１）の日付は、no1さんのものを使わせていただきました。（便利です）

=IF(ISERROR(MATCH(C$4,Sheet2!46:46,0)),IF(OR(B5="<-",B5="-"),"-",""),IF(MOD(MATCH(C$4,Sheet2!46:46,0),2)=1,"<-","->"))

お礼

苦手な関数ですのに考えていただきありがとうございます！！

他の皆様のもとてもよかったのですが、一番望んでいるものと近いものでした。
上司にVBAの話をしてみたところ、関数で使いたいといわれたのも多きく、先の回答者様方のも全て職場で使わせていただいております。

皆様をベストアンサーに選びたかったのですが、できずでした。
ですが、お三方様の協力がなければこれはできませんでした、本当にありがとうございました！

回答No.2

tom04

こんばんは！
何とか関数で！と思って頑張ってみましたが
かなり厄介になるようですので、無理やりVBAでやってみました。

↓の画像のようにSheet2にデータを入力すると、Sheet1に表示されるようにしています。

画面左下のSheet2のSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてSheet2に日付データを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Columns("C:H")) Is Nothing Or Selection.Count <> 1 Then Exit Sub
Dim i As Long, j As Long, k As Long, L As Long, ws As Worksheet
Set ws = Worksheets("Sheet1") '←「Sheet1」は実際のSheet名に！
k = Target.Row
i = WorksheetFunction.Match(Cells(k, 2), ws.Columns(1), False)
ws.Rows(i).ClearContents
ws.Cells(i, 1) = Cells(k, 2)
For j = 3 To 33
For L = 3 To 7 Step 2
If ws.Cells(4, j) = Cells(k, L) Then
With ws.Cells(i, j)
.Value = "(-"
.HorizontalAlignment = xlCenter
End With
End If
Next L
For L = 4 To 8 Step 2
If ws.Cells(4, j) = Cells(k, L) Then
If ws.Cells(i, j) = "" Then
With ws.Cells(i, j)
.Value = "-)"
.HorizontalAlignment = xlCenter
End With
Else
ws.Cells(i, j) = "(-)"
End If
End If
Next L
Next j
For j = 3 To 33
For L = 3 To 7 Step 2
If Cells(k, L + 1) <> "" Then
If ws.Cells(4, j) > Cells(k, L) And ws.Cells(4, j) < Cells(k, L + 1) Then
With ws.Cells(i, j)
.Value = "-"
.HorizontalAlignment = xlCenter
End With
End If
End If
Next L
Next j
End Sub 'この行まで

尚、Sheet1の黄色い部分（日付セル）はシリアル値にするため、
No.1のKURUMITOさんが回答されていらっしゃる通りの数式を入れておきます。

※　関数でないので、Sheet2のデータを削除してもSheet1には反映されません。
月替わりの場合等はデータを削除しなくてはならないと思いますので、
Sheet1のデータも一緒に削除しておきます。
（日付部分の数式はそのまま残す）

※　Sheet1に数式を入れている場合は数式ぞのものが消えて生データになってしまいますので
別Sheetで試してみてください。

関数で簡単にできる方法があればごめんなさいね。m（_ _）m

お礼

こんばんは！

お返事遅くなり申し訳ありませんでした、関数だけではやはり難しいものなのですね・・・、動作確認もしてみて、使っていけそうなので凄く嬉しいです。

求めていたものでしたので、明日会社に持っていって早速試してみます、本当にありがとうございます！

回答No.1

KURUMITO

シート１の表で日付の１日から３１日までの表示についてはC４セルに次の式を入力し、右横方向のAG４セルまでドラッグコピーします。

=IF(MONTH(DATE($B1,$B2,COLUMN(A1)))=$B2,DATE($B1,$B2,COLUMN(A1)),"")

月末での日付が表示されます。
１日のように表示を変える場合にはC４セルからAG４セルまでを範囲として選択したのちに右クリックし、「セルの書式設定」から「表示形式」で「ユーザー定義」にし、d日　と入力してOKします。

その後にC５セルには次の式を入力しAG５セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(OR($B5="",C$4=""),"",IF(OR(COUNTIF(INDEX(Sheet2!$B:$J,MATCH($B5,Sheet2!$B:$B,0),2):INDEX(Sheet2!$B:$J,MATCH($B5,Sheet2!$B:$B,0),9),C$4)>0,MOD(MATCH(C$4,INDEX(Sheet2!$B:$J,MATCH($B5,Sheet2!$B:$B,0),2):INDEX(Sheet2!$B:$J,MATCH($B5,Sheet2!$B:$B,0),0)),2)=0),"-",""))

お礼

ありがとうございます、早速試してみたのですが私のやり方が悪いのか…上手くいかずでした…。
シート1のB5セルには何か入力するようになってるみたいでしたが、あそこには何を入れたらよろしいでしょうか、申し訳ございません、私が不出来なばかりに。