[[20101018190518]] 『本日の日付のセルに合わせる』(kk) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『本日の日付のセルに合わせる』(kk)
 今日の日付けのセルに合わせたいのですが教えてください。
 A列に日付が縦に10/1がA3:A9で結合されてます。次にA10は空白で10/2が
 A11:A17で結合されてます。次にA18は空白ですこんな風に縦に最大31日分になります。
 前ここで教えてもらったコードを色々ためしましたが上手くいきませんので教えて
 ください。そのコードは
 Dim i As Long
    i = Date - Range("b2").Value
    If i < 0 Or 364 < i Then
        MsgBox "カレンダーを変更してください。"
    Else
        Range("B" & i + 1).Select
    End If
 End Sub
 '------
 こんなコードです。



 未が入らないのは何故(kk)

 >今日の日付けのセルに合わせたい

 とは?

 勝手に「そのシートがアクティブになったら、その日のセルを選択する」
 と考えました。また、

 >縦に最大31日分

 ということは、1枚のシートは特定の月になっているとしました。

 シートモジュールに

 Private Sub Worksheet_Activate()
    If Month(Date) <> Month(Range("A3")) Then
        MsgBox "今月のシートと違います。"
        Exit Sub
    End If

    Dim d As Integer
    Dim r As Integer

    d = Day(Date)
    r = 8 * d - 5
    Range("A" & r).Select

 End Sub

 とします。エラー処理等は特に考えてません。

 *************************************************

 ところで

 >未が入らないのは何故(kk)

 って、なんのこと??

 (P)

 Pさん当たりです。ありがとうございました。
未が入らないのは何故とは新規投稿で左に緑の文字で未と出るはずが何度やり直してもでませでした。
(kk)


 >未が入らないのは何故
 '------
 こんなコードです。
 最初のご質問の最後のほうで、-を4以上使っておられるからでしょうね。

 (川野鮎太郎)

 補足すると、この掲示板では1行に「----」だけの行があると表示の際にはそれを区切り線に変換して表示します。

 で、それに合わせて「未」を表示しないようになっているようですが「未」の判定の場合には
 単純に「----」があるかどうかだけで判定しているようです。
 (独覚)

 [未回答マーク導入の経緯]
[[20050206180741]] 『[雑談]未解決過去ログ掘り起こし企画』(みやほりん) 
 (dack)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.