Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11953 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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　　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　　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が以下のようであると仮定します。

　　　　Ａ　　　　Ｂ　　　　　　　Ｃ
1　　　月度　　　期間１　　　　　期間２
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

Ｅ列の例えばＥ２には、

「=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 -
引用なし
パスワード
   ありがとうございました。
やりたいことが、できる様になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11953 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free