エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1240 for カレンダー (0.001 sec.)

[[20190807162402]]: #score: 6122; @digest: c2f7394495c57e7ca59fba22cf54773d; @id: 80421; @mdate: 2019-08-07T09:11:53Z; @size: 2399; @type: text/plain; #keywords: 屋貸 (30995), トz (9739), 速修 (4434), 部屋 (4329), ontime (2760), カレ (2709), mys (2458), 「カ (1895), 文だ (1797), 付欄 (1723), レン (1686), 象シ (1630), 「部 (1569), ンダ (1486), し出 (1389), ダー (1377), 今日 (1369), 構文 (1245), application (1167), ー") (1132), isnumeric (1078), auto (855), ー」 (802), 貸し (719), 渡辺 (672), 年間 (597), に今 (565), columns (553), screenupdating (539), 日付 (535), 」シ (524), 付が (497); 『開いた時に今日の日付にジャンプ』（たかだ）
「カレンダー」「部屋貸し出し」「その他」というシートがあります。「カレンダー」「部屋貸し出し」シートには1年間の日付がずらっと並んでいる感じです。そのエクセルを開いた時に、「カレンダー」「部屋貸し出し」共に今日の日付が上の方に表示されるようにしたいのが希望です。このサイトとかを参考にさせてもらって下記のような構文が出てきたのですが、少し違うようです。。。。。 -------------------------- ↓こちらの構文だと「カレンダー」シートのみに反映するので、シートをいくつか表記する事は可能でしょうか? Sub Auto_Open() Dim z As Variant Dim sh As Worksheet Set sh = Sheets("カレンダー") '対象シート 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 -------------------------- ↓こちらの構文だと今日の日付が入っているシートが二つ選ばれて今日の日付欄にカーソルはあるのですが、スクロールの下の方に隠れてしまいます。 Dim mys As Worksheet Application.ScreenUpdating = False On Error Resume Next For Each mys In Worksheets mys.Activate Columns("A:A").Find(What:=Date).Select If Err.Number = 0 Then Exit Sub Err.Clear Next mys Application.ScreenUpdating = True End Sub -------------------------- よろしくお願いいたします。＜使用 Excel:Excel2010、使用 OS:Windows8 ＞ ---- ちょっといじりました Sub Auto_Open() Dim z As Variant Dim sh As Worksheet For Each sh In Sheets(Array("カレンダー", "部屋貸し出し")) '対象シート 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 Next End Sub なぜに Application.OnTimeを使っているのかわかりませんがそのままにしてあります。（渡辺ひかる） 2019/08/07(水) 16:51 ---- 早速修正していただきまして、ありがとうございます! こちらで問題なく動きました。＞なぜに＞Application.OnTimeを使っているのかわかりませんがそのままにしてありますその通りでした・・・。必要ないですね。コピペなどをしていて残っていたようです。（たかだ） 2019/08/07(水) 18:11 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201908/20190807162402.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ