Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11954 / 13646 ツリー ←次へ | 前へ→

【13091】月度の自動表示について dream 04/4/22(木) 22:18 質問
【13095】Re:月度の自動表示について BOTTA 04/4/23(金) 11:11 回答
【13143】Re:月度の自動表示について dream 04/4/24(土) 6:08 質問
【13146】Re:月度の自動表示について ichinose 04/4/24(土) 9:56 発言[未読]
【13147】Re:月度の自動表示について たくや 04/4/24(土) 10:57 お礼[未読]

【13091】月度の自動表示について
質問  dream  - 04/4/22(木) 22:18 -

引用なし
パスワード
   お世話になります。
sheet1は
   A   B   C   D   E
1  日付          月度
2  4/25           4
3  4/26           5
4  4/27           5
  (以下続く)
となっていて、sheet2は
   A    B       C
  月度  期間1    期間2
1  4  2004/03/21  2004/04/20
2  5  2004/04/21  2004/05/20  
3     (以下続く)
なっています。
sheet1のA2に入力すると、E5にsheet2から参照で自動的に入力できるようにしたいのですが、可能でしょうか?

【13095】Re:月度の自動表示について
回答  BOTTA  - 04/4/23(金) 11:11 -

引用なし
パスワード
   dreamさん、こんにちは。

説明の趣旨が今ひとつ理解できていませんが、
Sheet2を参照するのではなく、
3/21〜4/20→4
4/21〜5/20→5
5/21〜6/20→6
つまり、21日以降は次月度と表示させる場合、
A1に日付
B1に
=IF(DAY(A1)>20,MONTH(DATE(,MONTH(A1)+1,1)),MONTH(A1))
という式を入力するってのはどう?

【13143】Re:月度の自動表示について
質問  dream  - 04/4/24(土) 6:08 -

引用なし
パスワード
   すいません、質問欄に間違いがありました。
sheet2は下記が正解です。
   A    B       C
  月度  期間1    期間2
1  4  2004/03/26  2004/04/25
2  5  2004/04/26  2004/05/25 
3     (以下続く)

つまり、26日以降は基本的に次月度と表示させるのですが、月により締め日が異なる場合があります。

>A1に日付
>B1に
>=IF(DAY(A1)>25,MONTH(DATE(,MONTH(A1)+1,1)),MONTH(A19))

では、毎月締め日が固定されます。
締め日が変動する場合のことを考えると、どうしても固定するわけにはいかず、毎月の締め日をどこかに入力しておき、その日を参照するようにした方がよいのではと思っています。

よい方法があれば、お願いします。

【13146】Re:月度の自動表示について
発言  ichinose  - 04/4/24(土) 9:56 -

引用なし
パスワード
   dream さん、BOTTAさん、おはようございます。

>つまり、26日以降は基本的に次月度と表示させるのですが、月により締め日が異なる場合があります。
月々の締め日が異なるなんてあるんですねえ!!
Sheet2が以下のようであると仮定します。

    A    B       C
1   月度   期間1     期間2
2    4   2004/3/21    2004/4/20
3    5   2004/4/21    2004/5/20
4    6   2004/5/21    2004/6/25
5    7   2004/6/26    2004/7/25
6    8   2004/7/26    2004/8/20
7    9   2004/8/21    2004/9/25

E列の例えばE2には、

「=IF(OR(A2<MIN(Sheet2!$B$2:$C$7),A2>MAX(Sheet2!$B$2:$C$7)),"",OFFSET(Sheet2!$A$2,MATCH(A2,Sheet2!$B$2:$B$7,1)-1,0,1,1))」

ではいかがですか?

【13147】Re:月度の自動表示について
お礼  たくや  - 04/4/24(土) 10:57 -

引用なし
パスワード
   ありがとうございました。
やりたいことが、できる様になりました。

11954 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free