[[20101213091144]] 『最後に入力した日付の行以降を出す』(パオ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『最後に入力した日付の行以降を出す』(パオ)
A9:A200で随時日付が入ります。
ウインド枠の固定を使っていて
共有化されており
いろんな行にて保存をかけらて
開けたとき
探さなくてはならないときがあります。
開けたときに
最後に入力した日付の行以降を出すことは
できるのでしょうか
よろしくお願いします。
Excel2003,WindowsXP

 回答ではありませんが、
 まず、「最後に入力した日付」の意味を確認します。

 1.A9:A200の一番下に入力されているセルですか?
 2.一番下ではないが、一番新しい日付ですか?
 3.一番下でもなく、一番新しくもなく、文字通り最後に入力したせるのことですか?

 (奈々氏)

奈々氏様 返事ありがとうございます。

	A	B	C			A	B	C
	日付	納品量	品物			日付	納品量	品物
1	12月7日				16	12月13日		
2	12月7日				17	12月13日		
3	12月7日				18	12月13日		
4	12月8日				19	12月13日		
5	12月9日				20	12月13日		
6	12月9日				21	12月13日		
7	12月9日				22			
8	12月9日				23			
9	12月10日			→	24	
10	12月10日				25	
11	12月10日				26	
12	12月11日				27	
13	12月12日				28	
14	12月12日				29	
15	12月12日				30	
16	12月13日				31	
17	12月13日				32	
18	12月13日				33	
19	12月13日				34	
20	12月13日				35	
21	12月13日				36	

 このようにしたいのです。
 よろしくお願いします。

(パオ)


 VBAでの処理です。
 ThisWorkbookモジュールに、

 Private Sub Workbook_Open()

    Dim i As Integer
    Dim l As Integer

    Worksheets("Sheet1").Activate
    l = Range("A200").End(xlUp).Row
    Application.Goto Reference:=Cells(l, 1), Scroll:=True

    For i = l To 2 Step -1
        If Cells(l, 1).Value = Cells(i, 1).Value Then
            Application.Goto Reference:=Cells(i, 1), Scroll:=True
        End If
    Next i
    Cells(l + 1, 1).Select

 End Sub

 これで希望通りになりますか。
(奈々氏)


 奈々氏様 回答ありがとうございます。
ThisWorkbookモジュールには
Private Sub Workbook_Open()
ActiveSheet.Protect Password:="pass", DrawingObjects:=True, _
        contents:=True, UserInterfaceonly:=True

    Columns("AU:AU").ColumnWidth = 0
    Columns("AV:AV").ColumnWidth = 0
    Columns("AW:AW").ColumnWidth = 0
    Columns("AX:AX").ColumnWidth = 0
    Columns("O:O").ColumnWidth = 0
    Columns("P:P").ColumnWidth = 0
    Columns("Q:Q").ColumnWidth = 0
    Columns("R:R").ColumnWidth = 0
    Columns("S:S").ColumnWidth = 0
    Columns("T:T").ColumnWidth = 0
    Columns("AY:AY").ColumnWidth = 0

Selection.AutoFilter

End Sub

 入っています。
 どうしたらよいのでしょうか
 お願いします。

(パオ)


 とりあえず、そのコードの下に続けて書いても問題なさそうです。
 なお、このデータはSheet1というシートにあると仮定しています。
 その他の場合はシート名のところを適当に直してください。
(奈々氏)

 こんな風でもジャンプできそうですが...

  Private Sub Workbook_Open()
    Dim d As Long
    Dim m As Variant

    With Worksheets("Sheet1").Range("A:A")
      With Excel.Range(.Item(2), .Item(.Count).End(xlUp))
        d = WorksheetFunction.Max(.Cells)
        m = Application.Match(d, .Cells, 0)
        If IsNumeric(m) Then
            Application.Goto .Item(m), True
        End If
      End With
    End With

 End Sub

   (kanabun)


 奈々氏様
 Kanabun様
 できました。
 ありがとうございました。

 もう一点お願いします。
 一つのブックに
 A,B,C,D,E,F,Gの名前のシ−トが7つあります。

[[20090924233610]]

 私の質問では
 ないのですが
 使わせていただいております。

 このような場合は
 どのように組み入れれば
 よいのか
 よろしくお願いします
(パオ) 


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.