
No.4ベストアンサー
- 回答日時:
こんにちは。
KenKen_SP です。Find メソッドは文字列の検索なので、検索値を日付の表示形式に書式を
そろえてやる必要があります。Match 関数を使うと日付書式に関係なく
シリアル値で検索ができます。ご参考までに。
標準モジュールに下記をコピー&ペーストして下さい。
Sub AUTO_OPEN()
Dim lngR As Long
On Error Resume Next
Worksheets("Sheet1").Activate
lngR = WorksheetFunction.Match(CDbl(Date), Range("A:A"), 0)
If Err.Number = 0 Then
Cells(lngR, "A").Select
Else
MsgBox "今日の日付は見つかりません"
End If
On Error GoTo 0
End Sub
No.3
- 回答日時:
日付の右に移動するものです。
日付の列の場合は Offset(0, 0) にしてください。
Public Sub Auto_Open()
Dim rng As Range
On Error GoTo Func_Exit
Worksheets("sheet1").Activate
For Each rng In ActiveSheet.Range("A:A")
If IsDate(rng) Then
If rng = Date Then
rng.Offset(0, 1).Select
Exit For
End If
End If
Next
Func_Exit:
Exit Sub
End Sub
No.2
- 回答日時:
#1の回答の訂正です。
よく確認しないで、投稿してしまいました。
今日の日付にジャンプさせるには、
Sub Auto_Open()
Worksheets("Sheet1").Activate
Range("A:A").Find(What:=Format(Date, "m月d日"), _
LookIn:=xlValues, LookAt:=xlWhole).Select
End Sub
です。Offsetは余計でした。
ひとつ右隣を選択の場合には
Offset(, 1)
を付けてください。
No.1
- 回答日時:
こんばんは。
日付の入力されたシートの名前がSheet1だとして、
ファイルを開く時にマクロを動作させるには、
標準モジュールに
Sub Auto_Open()
Worksheets("Sheet1").Activate
Range("A:A").Find(What:=Format(Date, "m月d日"), _
LookIn:=xlValues, LookAt:=xlWhole).Offset(, 1). _
Select
End Sub
とするか、
ThisWorkbookの
Private Sub Workbook_Open()に
上記と同じ内容のコードを書けば出来ると思います。
サンプルでは、Format関数の書式表示文字列を
"m月d日"としていますが、この部分は実際の書式表示に
合わせて変えてください。
また日付のセルの右を選択させるには、上記で選択されたセルのOffset(,1)を
選択すれば良いと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【教えて!goo ウォッチ 人気記事】風水師直伝!住まいに幸運を呼び込む三つのポイント
記事を読む>>
-
エクセル:ブックを開くとき、自動で任意のシートで開きたい。
Excel(エクセル)
-
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
-
4
Excelのマクロで、開いた時に、行と日付が入るようにしたい
Excel(エクセル)
-
5
エクセルを開いたとき常に同じセルを選択したい
Excel(エクセル)
-
6
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
7
エクセル VBAマクロ セルの移動
Excel(エクセル)
-
8
指定したセルと同じ日付の入ったセルを選択するVBA
その他(Microsoft Office)
-
9
本日の日付とマッチした列の値を抽出
Excel(エクセル)
-
10
フォントの大きさ
Visual Basic(VBA)
-
11
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
12
【エクセル】今日の日付に赤枠をつけたい【Excel】
Excel(エクセル)
-
13
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
14
エクセルでオブジェクトを常に表記する
Excel(エクセル)
-
15
エクセルで昨日までの日付データ行を非表示するVBAについて!
Excel(エクセル)
-
16
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
17
開いたとき常に同じ大きさ・位置で表示したい
Windows 7
-
18
結合したセルを含む列内で、条件付き書式として塗りつぶしたい
Excel(エクセル)
-
19
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
20
別のシートから値を取得するとき
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
31:30:00が1900/1/1 7:30:0
-
エクセルでENTERを押すと数式が...
-
WORDで翌日や翌々日の日付を表...
-
日付入力→指定のセルの色を塗り...
-
入力後に日付順になるように自...
-
Excelで、年だけの「西暦」から...
-
エクセルのセルにカレンダーを...
-
エクセル関数で日付かどうかの...
-
Excelに入力した個々の日付の数...
-
日付だけを変更して印刷(Excel)
-
Excelで更新日時と更新者を表示...
-
エクセルで数字列の間に『/』を...
-
ファイルのオープン時に今日の...
-
日付を入力したセルをファイル...
-
エクセル 当番表の作り方 エク...
-
Excelで半年後の日付を計算したい
-
Excelで8/26等の日付を全てその...
-
エクセルで日付を別のシートに...
-
EXCELで直近の日付を抽出する関数
-
エクセルで日付を入力するとき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
31:30:00が1900/1/1 7:30:0
-
日付だけを変更して印刷(Excel)
-
入力後に日付順になるように自...
-
エクセルでENTERを押すと数式が...
-
エクセル関数で日付かどうかの...
-
日付入力→指定のセルの色を塗り...
-
Excelで、年だけの「西暦」から...
-
☆Excelエクセルで入力した日の...
-
ファイルのオープン時に今日の...
-
エクセルで日付を別のシートに...
-
エクセルで数字列の間に『/』を...
-
エクセルのセルにカレンダーを...
-
WORDで翌日や翌々日の日付を表...
-
エクセル 当番表の作り方 エク...
-
Excelで8/26等の日付を全てその...
-
Excelで、本日、前日、1週間前...
-
EXCELで直近の日付を抽出する関数
-
◆ EXCEL自動入力日付を自動で...
-
Excelに入力した個々の日付の数...
-
Excelで更新日時と更新者を表示...
おすすめ情報