
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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセル:ブックを開くとき、自動で任意のシートで開きたい。
Excel(エクセル)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
エクセル VBAマクロ セルの移動
Excel(エクセル)
-
4
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
5
Excel2010 リスト型の予定表をカレンダーに反映させたい
Excel(エクセル)
-
6
ファイル起動時、毎回 シート1のA1セルを表示させたい。
その他(Microsoft Office)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
9
【Excelマクロ】今日の日付で検索⇒データの取得
Visual Basic(VBA)
-
10
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
-
11
指定したセルと同じ日付の入ったセルを選択するVBA
その他(Microsoft Office)
-
12
エクセルのセルにカレンダーを表示させ、日付をセルに入力させたい
Excel(エクセル)
-
13
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
14
HYPERLINKとADDRESSとMATCHの組み合わせ技
Excel(エクセル)
-
15
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
16
Excelのマクロでボタンを押すと数が1足されるようにするには?
IT・エンジニアリング
-
17
【Excel VBA】セルの値が変更されたらマクロを実行
その他(Microsoft Office)
-
18
EXCEL VBA で特定の文字に色をつけるマクロを書きたいのですが
Excel(エクセル)
-
19
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
20
保存先のフォルダ名を指定したいとき
Visual Basic(VBA)
関連するQ&A
- 1 A列に文字列または数字を入力したら隣接するD列に今日の日付が入るようにしたいです
- 2 Excelを分割 A列には日付、A列以外には営業担当者や商品や金額などが入力された列があります。 営
- 3 エクセルのワークシートAの1列目(A列)の日付と、ワークシートBの1列
- 4 エクセルで、A列に日付をB列に曜日、C列からF列までにデータを入れるよ
- 5 エクセルでA列、B列、C列、D列、E列に数値が入力されており、それぞれ
- 6 A列データとB列データが対応している時C列(B列データの一部)の値に対応するA列データを 表示する。
- 7 A行に今日の日付もしくはそれ以下(今日より前の日付)を表示させたい。 エクセル 関数
- 8 A列に日付、B列に時間が記入してあり、 A列が平日かつB列が8時間以下のときをカウントする方法
- 9 エクセルVBAにてA列の数字の合計をA列のラスト行に入力したい。
- 10 エクセルでA列を特定のB列の時H列にコピーをするには
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセルのデータから「/」を抜...
-
5
31:30:00が1900/1/1 7:30:0
-
6
エクセルでENTERを押すと数式が...
-
7
入力後に日付順になるように自...
-
8
日付だけを変更して印刷(Excel)
-
9
EXCELで直近の日付を抽出する関数
-
10
Excelで、年だけの「西暦」から...
-
11
Excelで2週間後の日付を出したい
-
12
エクセル 当番表の作り方 エク...
-
13
◆ EXCEL自動入力日付を自動で...
-
14
ファイルのオープン時に今日の...
-
15
エクセルで日付が入っている数...
-
16
エクセルで数字列の間に『/』を...
-
17
エクセルで指定位置に文字を挿...
-
18
Excelの書式が変わらないです
-
19
(EXCEL)在庫管理表で、直近にあ...
-
20
エクセルの項目軸に
おすすめ情報