[[20150720142101]] 『エクセルでファイルを開くと今日の日付のセルにカ』(ssrk) ページの最後に飛ぶ

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

 

『エクセルでファイルを開くと今日の日付のセルにカーソルを移動する方法』(ssrk)

質問です。
エクセルで業務日誌を作成しています。
A列に◯◯◯◯/☓☓/△△の日付が入っていますが、月日が経つと、今日の日付に移動させるの面倒になってきました。ファイルを開くと同時に今日の日付のセルにカーソルを移動させる方法を教えて下さい。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 自動じゃないですが、たとえば、どこかのセルに =HYPERLINK("#Sheet1!$A$"&MATCH(TODAY(),A:A,0),"今日の日付")

 といれておいて、それをクリックというのはいかがですか。

(β) 2015/07/20(月) 14:49


 もし、自動でということであればマクロになります。
 ThisWorkbookモジュールに

 Private Sub Workbook_Open()
    Dim z As Variant
    Dim sh As Worksheet

    Set sh = Sheets("Sheet1")   '対象シート
    z = Application.Match(CDbl(Date), sh.Columns("A"), 0)
    If IsNumeric(z) Then
        Application.Goto sh.Range("A" & z)
    Else
        Application.OnTime Now(), "ThisWorkbook.NFD"
    End If

 End Sub

 Public Sub NFD()
    MsgBox "今日の日付がないんですが?"
 End Sub

(β) 2015/07/20(月) 17:06


ご回答、ありがとうございます。

考えていたとおりに動いてくれました。

ただ、Web版のExcel Onlineでは、動かないようですが、これは仕様でしょうか?

(ssrk) 2015/07/21(火) 12:51


 もし、VBA(マクロ)が動かないということであればそれはOnline版の仕様。

 VBAを含むブックを開くことはできるがVBAは実行されない。
(ねむねむ) 2015/07/21(火) 13:09

 もし、HYPERLAINK関数のほうであれば以下のような違いがあるようだ。

https://support.office.com/ja-jp/article/%e3%83%96%e3%83%a9%e3%82%a6%e3%82%b6%e3%83%bc%e3%81%a8-Excel-%e3%81%a7%e3%81%ae%e3%83%96%e3%83%83%e3%82%af%e3%81%ae%e4%bd%bf%e7%94%a8%e3%81%ae%e7%9b%b8%e9%81%95%e7%82%b9-f0dc28ed-b85d-4e1d-be6d-5878005db3b6?ui=ja-JP&rs=ja-JP&ad=JP#__functions

 通常版
 >クリックして移動できるアクティブなリンクを返します。

 Online版
 >ブックに指定されているブックの対話機能およびブックのナビゲーションの設定によっては、ハイパーリンク関数が
 >アクティブなリンクまたは非アクティブなリンクのテキスト文字列を返す可能性があります。

 あいにくOnline版を触ったことがないため、具体的にどうなるかはわからない。
(ねむねむ) 2015/07/21(火) 13:24

HYPERLINE関数でWeb版が動いてくれましたので、作業上支障はありません。

本当に助かりました。

ありがとうございます。

(ssrk) 2015/07/21(火) 20:42


コメント返信:

[ 一覧(最新更新順) ]


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