|
▼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
|
|