Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
823 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78126】表示開始位置について まゆみ 16/4/18(月) 12:43 質問[未読]
【78127】Re:表示開始位置について β 16/4/18(月) 14:22 発言[未読]
【78126】表示開始位置について
質問  まゆみ  - 16/4/18(月) 12:43 -
引用なし
パスワード
   掲題について、ご質問させてください。

Excel2013を使っております。

ブックを開いた後、自動で表示位置を移動させたいです。

条件は、
B列に日付(yyyy/MM/dd)が入力されており、
システム日付とB列日付が一致する時、表示される位置を
一致した行が先頭に来るようにしたいです。

VBAでどのように記述すれば実現可能でしょうか。
宜しくお願いします。
【78127】Re:表示開始位置について
発言  β  - 16/4/18(月) 14:22 -
引用なし
パスワード
   ▼まゆみ さん：

たとえば　THisWorkbookモジュールに。

Private Sub Workbook_Open()
　　Dim f As Range
　　
　　Set f = Sheets("Sheet1").Columns("B").Find(What:=Date, LookAt:=xlWhole, LookIn:=xlFormulas)
　　If f Is Nothing Then
　　　　MsgBox "今日の日付が見当たりません"
　　Else
　　　　Application.Goto f.EntireRow.Range("A1"), True
　　End If
　　
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
823 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free