Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38535 / 76807

←次へ　｜　前へ→


	【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

0 hits

▼

【43405】数式を変えるには？ たろうくん 06/10/13(金) 12:27