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

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

[[20131101095507]]: #score: 6122; @digest: 90bbe83ccc49d7447666906018fe20df; @id: 63750; @mdate: 2013-11-01T05:20:22Z; @size: 2995; @type: text/plain; #keywords: cell2 (10055), cell1 (9114), 木葉 (8062), 対角 (6176), 土1 (6142), 日セ (4023), 年○○ (3606), る四 (3540), 間カ (3218), カレ (2709), 月│ (2493), 成") (2486), 動() (2422), 式変 (2369), 2013 (2293), ￣￣ (2215), 年11 (2113), 角形 (1862), 「20 (1709), 金土 (1702), レン (1686), 水木 (1629), 木金 (1627), 火水 (1624), 月火 (1594), 日月 (1521), ンダ (1486), 月」 (1485), 付セ (1422), 四角 (1397), ダー (1377), ー作 (1338); 『範囲内のみで作動』（木葉）
Excel2003,WindowsXP おはようございます。以前、ブックを開いた時の日付を、カレンダー内から探し出して当日セルの書式を変えて、ブックを開いた日が分かるようにしたく、質問させていただきました。 [[20131009100213]] 以下コードを利用させていただいております。今回このブックを使用するのに月をまたぐのは初めての事なのですが、一つ、改善したい点が出たので、再度質問させていただきます。 Sub 自動() Dim FR As Range Set FR = ThisWorkbook.Worksheets("年間カレンダー作成") _ .Range("B:H", "J:P").Find(Date, , xlFormulas, xlWhole, MatchCase:=False, MatchByte:=True) If FR Is Nothing Then MsgBox "当日セル、見つかりません。" Else With FR .Borders.LineStyle = xlContinuous .Interior.ColorIndex = 36 End With End If End Sub 2013年10月日月火水木金土 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 _ _ _ 27 │28│ 29 │30│ │31│ ￣￣￣ _____ │2013年11月│ ￣￣￣￣￣日月火水木金土 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 こんな感じのカレンダーなのですが、今までだと開いた日の日付セルが10月のカレンダーのように罫線（細）と、パタ-ンカラーを薄黄色（ColorIndex = 36）になります。 10月28日、30日、31日に開いた事がわかります。しかし、本日11月1日になって、いつもどおり上記コードを登録したボタンを押したら・・・上カレンダーの11月のように、2013年11月のセルが書式変更されてしまいました。金曜日にある「1」を書式変更させるにはどうしたら良いでしょうか? 「2013年○○月」と言う部分は検索対象に入れないようにすればいいのかな・・・? ・日付の「1」「2」「3」・・・というのは、1,2,3・・・という数列ではなくて、書式設定により「2013/11/1」→「1」、「2013/11/2」→「2」・・・としたものです。・カレンダーの配置は、 A列に「2013年1月」〜「2013年6月」 I列に「2013年7月」〜「2013年12月」 B〜H、J〜P列に日が入力されており、1カ月につき10行を設けています。例:1月 A1=「2013年1月」 B2〜H2=曜日 B3〜H8=日残り2行は空白上コード「.Range("B:H", "J:P")」の入力があるのでこの範囲内でのみ作動するとばかり思っていたので・・・よろしければご教示ください。 ---- .Range("B:H", "J:P")という書き方はその間にある、I列も含みます。「"B:H"と "J:P"の二つの範囲」という意味で書くとしたら、 .Range("B:H,J:P")と書きます。 Range(Cell1,Cell2) Cell1とCell2を対角とする四角形の範囲という意味です。 .Range("B:H", "J:P")という書き方は"B:H"と "J:P"という範囲ではなくて、 B1とP列の最終セルを対角とする四角形の範囲という意味になります。（みやほりん） 2013/11/01(金) 13:31 ---- **みやほりん様なるほど、そういうことだったのですね! 無事解決いたしました! 少し勘違いもしていたみたいです・・・＞＞Range(Cell1,Cell2) てっきり部分的な範囲指定?をするものだと思っていました! 少し賢くなった気がします!ありがとうごうざいます^^ （木葉） 2013/11/01(金) 14:20 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201311/20131101095507.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ