[[20050511200357]]　『ウインドウ枠固定時の表示』（Ty）　ページの最後に飛ぶ

『ウインドウ枠固定時の表示』（Ty）

 こんばんは
 下記についてご教示をお願いします。

 状況は、
 B1～IU 1に
 H17.5.1～H18.1.9が入力してあります。
 B2～IU 2に
 条件書式　=today()=B1～IU 1  にてパターン黄色です。
 その後
 B2のセルでウインドウ枠の固定をしました。

 お教えいただきたいことは
 A1のボタンを押すと、
 固定枠の右下のスクロール可能ブロック部分の左上の箇所に
 黄色(条件書式)のセルを表示をさせたい。
 (今日は5/11ですので、固定したA列の次にL列がくる。）
 (本来ならB2の位置に、L2のセルがスクロールする。)

 よろしくお願いします。

 こうかな？
Sub てすと()
Dim x As Variant
x = Application.Match(CLng(Date), Range("a1:iv1"), 0)
If Not IsError(x) Then
    ActiveWindow.ScrollColumn = x
    ActiveWindow.ScrollRow = 1
    Cells(2, x).Select
End If
End Sub
（SoulMan）

 SoulManさん
 ありがとうございました。
 ばっちりでした。（Ty）　(^o^ Y

コメント返信：

[ 一覧(最新更新順) ]

[[20050511200357]] 『ウインドウ枠固定時の表示』（Ty） ページの最後に飛ぶ

[[20050511200357]]　『ウインドウ枠固定時の表示』（Ty）　ページの最後に飛ぶ