[[20080529115508]]　『カーソル位置を』（とく）　ページの最後に飛ぶ

『カーソル位置を』（とく）

 シートを開いた時にもしくは、
 ボタン登録でカーソル位置をその日の先頭のB9に表示したいです、
 全くの初心者ですが宜しくお願いしたいです
 お手数を掛けます。
 エクセル2007

 　　A    B    C　～ AA
　
－－－－－－－－－－－－－－－－－－－－－
 7 
   5/28－－－－－－－－－－－－－－－－－－
 8
－－－－－－－－－－－－－－－－－－－－－
 9
   5/29－－－－－－－－－－－－－－－－－－
10
－－－－－－－－－－－－－－－－－－－－－

 B列に日付けが入っているとして、
 今日の日付けのセルにジャンプするハイパーリンク関数
 です。

 =HYPERLINK("#B"&MATCH(TODAY(),B:B,0)&"","今日")

 >シートを開いた時にもしくは
 自動的に、でしたら、VBAになります。
 (MARBIN)

MARBINさんへ
返答有難う御座います、
あっ、図が間違ってますね、
B列には日付が入ってませんでした、
VBAでお願いしたいです

 ブックのOpenイベントに記述します。
 Findメソッドでいけると思います。
 (MARBIN)

MARBINさん、ありがとう御座います、
しかしながら私にはチンプンカンで・・・、
生意気にVBA言ってごめんなさい。

 過去ログ探してみましたか？
[[20070318223307]]『activeセルにする方法を教えてください』（國井）
[[20070319082012]]『月別シートの今日のセルをアクティブにするには』（ＦＡＬＣＯＮ）

 他にも有ると思いますので、思いつくワードで検索してみて下さい。
https://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi

 レイアウトに合わせて変更して、実行してみて
 上手く行かない時は　上手く行かないコードと
 「どの様に上手く行かないのか」のご説明を合わせて
 聞いてみましょう。

 (HANA)

 MARBINさんの方法もお奨めなんですけどね～。
 =HYPERLINK("#A"&MATCH(TODAY(),A:A,0)&"","今日")

 （川野鮎太郎）

 昨日は有り難う御座いました、何とかVBA?コードの記載する事が出来ました！
 感謝します、

 それで欲がでまして・・・、以下のコードで日付がアクティブに
 成っているのですが、図で言うと昨日C9をアクティブにするのには
 どの様に変更をしたら良いのかをご教示願いたいのですが
 お手数ですが

 Private Sub Workbook_Open()
    Worksheets(1).Activate
    Dim rg As Range
    For Each rg In Range("A9:A70")
        If rg = Date Then
            rg.Activate
            Exit Sub
        End If
    Next
 End Sub

(とく)

 Date
 ↓
 Date-1
 でいけます。

 あと、
 >Exit Sub
 は
 Exit For
 の方がいいかと。
 (MARBIN)

MARBINさん、返答有難う御座います。
質問の仕方が間違ってますね
以下のコードに変更したら前日の日付がアクティブに、
今日でしたらC67をアクティブにしたかったのですが

 Private Sub Workbook_Open()
    Worksheets(1).Activate
    Dim rg As Range
    For Each rg In Range("A9:A70")
        If rg = Date - 1 Then
            rg.Activate
            Exit For
        End If
    Next
 End Sub
とく
済みません、図を修正しました、
とく

 ＞済みません、図を修正しました、
 の「図」ってどれのことですか？

 ＞今日でしたらC67をアクティブにしたかったのですが
 この御質問では
 ・「今日」が何日か分からない
 　（これ、伝言メモを書くときも言われますよね？
 　　今日の日付を書いておかないと「明日」と書いてあった場合
 　　何日のことを指すのかを判断するのは、不安定です。）

 ・御呈示の表を見ただけではどういう理由でC67なのか不明
 　「日付が書いてない！！」といっても、投稿日付は分かるわけで・・・
 　　新規投稿が5/29ですから、それが昨日と言う事は今日は5/30ですね。
 　　ただ、最初の表に5/30が無いので　どうしたらC67に成るのか分かりません。
 　　例えば、最初の表の中に有る日付を使用して
 　　　●今日の日付が5/29だった場合、C7をアクティブにしたい
 　　　　（前日の日付が有る行と同じ行のC列をアクティブに）
 　　と言う書き方ですと、どのセルのことを言っておられるのか
 　　分かりやすい様に思いますし
 　　最初に載せて居られる表は、実際の表とはレイアウトが違うようですので
 　　上記マクロに合っている（実際の）表を再度載せる　等
 　　しても良いと思います。

 また、特定のセルに「1日」から始まりその月の末尾迄有る１月分のカレンダーですと
 どの行にどの日付が入っているかは決まっているので
 日付を捜す必要もなさそうに思います。
（私が過去ログをリンクして於いて、勝手な言い分ですが。笑）

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20080529115508]] 『カーソル位置を』（とく） ページの最後に飛ぶ

[[20080529115508]]　『カーソル位置を』（とく）　ページの最後に飛ぶ