[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『エクセルでファイルを開くと今日の日付のセルにカーソルを移動する方法』(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関数のほうであれば以下のような違いがあるようだ。
通常版 >クリックして移動できるアクティブなリンクを返します。
Online版 >ブックに指定されているブックの対話機能およびブックのナビゲーションの設定によっては、ハイパーリンク関数が >アクティブなリンクまたは非アクティブなリンクのテキスト文字列を返す可能性があります。
あいにくOnline版を触ったことがないため、具体的にどうなるかはわからない。 (ねむねむ) 2015/07/21(火) 13:24
本当に助かりました。
ありがとうございます。
(ssrk) 2015/07/21(火) 20:42
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.