Excel VBA質問箱 IV

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

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


38460 / 76732 ←次へ | 前へ→

【43408】Re:数式を変えるには?
発言  たろうくん  - 06/10/13(金) 13:44 -

引用なし
パスワード
   ▼ponpon さん:
返事ありがとうございます。
感じは解りますがちょっとむずかしいです
Private Sub Workbook_Open()
Dim Today
Today = Now


Select Case
Case 1
Range(H5:H19).formula=">=INDEX(A!E:E,MATCH(E5,A!C:C,))&""""" 
Case 2
Range(H5:H19).formula=">=INDEX(A!I:I,MATCH(E5,A!G:G,))&""""" 
Case 3
Range(H5:H19).formula=">=INDEX(A!M:M,MATCH(E5,A!K:K,))&""""" 
Case 4
Range(H5:H19).formula=">=INDEX(A!Q:Q,MATCH(E5,A!O:O,))&""""" 
こんな感じかな?
もう少し詳しくおしえてー(-_-;)
>時間がないので考え方だけ
> ・フォームでするより、ワークブックのオープンイベントで
>  now関数で現在の年をyear関数で取り出して、
> 条件分岐(select case等)したらいかがでしょうか?
> 数式の入力は、
> 数式を入力する範囲.formula=">=INDEX(A!I:I,MATCH(E5,A!G:G,))&""""" 
> 等とすると相対的に入力してくれるので、フィルの必要はありません。
>
> 最近はどじな回答が多いので間違っているかも??
>
>>   E       F   G    H
>>4 日付          月    日    
>>5 2006/10/16 (月)     10    16    
>>6 2006/10/17 (火)     10    17    
>>7 2006/10/18 (水)     10    18    
>>8 2006/10/19 (木)     10    19    
>>9 2006/10/20 (金)     10    20    
>>10 2006/10/21 (土)     10    21    
>>11 2006/10/22 (日)     10    22    
>>12 2006/10/23 (月)     10    23    
>>13 2006/10/24 (火)     10    24    
>>14 2006/10/25 (水)     10    25    
>>15 2006/10/26 (木)     10    26    
>>16 2006/10/27 (金)     10    27    
>>17 2006/10/28 (土)     10    28    土休
>>18 2006/10/29 (日)     10    29    
>>19 2006/10/30 (月)    10    30
2 hits

【43405】数式を変えるには? たろうくん 06/10/13(金) 12:27 質問
【43407】Re:数式を変えるには? ponpon 06/10/13(金) 13:10 発言
【43408】Re:数式を変えるには? たろうくん 06/10/13(金) 13:44 発言
【43409】Re:数式を変えるには? ハチ 06/10/13(金) 14:23 発言
【43410】Re:数式を変えるには? たろうくん 06/10/13(金) 15:10 発言
【43411】Re:数式を変えるには? たろうくん 06/10/13(金) 15:24 発言
【43414】Re:数式を変えるには? ハチ 06/10/13(金) 16:37 回答

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