
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で質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) エクセルVBA 3 2022/06/11 16:01
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- iOS iPhone用動画保存アプリiCapのデータは外付けUSBメモリに保存できますか? 1 2022/10/18 17:48
- Gmail Gメールの受信トレイの表示が変わって、戸惑っています 1 2023/04/04 17:52
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) Excelで日付のグラフへの表示 2 2022/04/15 11:04
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) Excelのセル上の日付の不具合 3 2022/05/22 18:20
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) vba 今日の日付をブック名に 2 2023/06/04 08:22
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
エクセルを開いたとき常に同じセルを選択したい
Excel(エクセル)
-
エクセルVBAで日付に合わせて図形を動かす際に土日を考慮外にしたい
Excel(エクセル)
-
-
4
エクセル VBAマクロ セルの移動
Excel(エクセル)
-
5
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
6
ファイル起動時、毎回 シート1のA1セルを表示させたい。
その他(Microsoft Office)
-
7
TODAY()で設定したセルの日付が変わったらマクロを実施させたい
Visual Basic(VBA)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
10
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
11
本日の日付とマッチした列の値を抽出
Excel(エクセル)
-
12
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
13
ハイパーリンクでジャンプした先のセルを画面の一番上に表示させたいです。
Excel(エクセル)
-
14
エクセル:ブックを開くとき、自動で任意のシートで開きたい。
Excel(エクセル)
-
15
指定したセルと同じ日付の入ったセルを選択するVBA
その他(Microsoft Office)
-
16
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
-
17
日付を入力しカレンダーの該当する日に印をつけたい
Excel(エクセル)
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
Excelマクロ セルを行頭に移動
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のセルだけ結果がおかしい...
-
エクセルのdatedif関数を使って...
-
エクセルのVBAで集計をしたい
-
【マクロ】【配列】3つのシー...
-
vba テキストボックスとリフト...
-
エクセル ドロップダウンリスト...
-
【関数】同じ関数なのに、エラ...
-
Office2021のエクセルで米国株...
-
【マクロ】列を折りたたみ非表...
-
9月17日でサービス終了らし...
-
【マクロ】アクティブセルの時...
-
ページが変なふうに切れる
-
【条件付き書式】シートの中で...
-
【マクロ】3行に上から下に並...
-
【マクロ】オートフィルターの...
-
【マクロ】EXCELで読込したCSV...
-
【画像あり】オートフィルター...
-
他のシートの検索
-
エクセルの循環参照、?
-
Excelファイルを開くと私だけVA...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
9月17日でサービス終了らし...
-
エクセル
-
【マクロ】WEBシステムから保存...
-
エクセルの循環参照、?
-
エクセル ドロップダウンリスト...
-
エクセルのdatedif関数を使って...
-
特定のセルだけ結果がおかしい...
-
【マクロ】A列にある、日付(本...
-
【マクロ】EXCELで読込したCSV...
-
【マクロ】アクティブセルの時...
-
【エクセル】期限アラートについて
-
iPhoneのExcelアプリで、別のシ...
-
【関数】同じ関数なのに、エラ...
-
Excelの新しい空白のブックを開...
-
【マクロ】3行に上から下に並...
-
【マクロ】宣言は、何のために...
-
VBA チェックボックスをオーバ...
-
Excelについての質問です 並べ...
-
【マクロ】アクティブセルの2...
-
【関数】不規則な文章から●●-●●...
おすすめ情報