[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『最後に入力した日付の行以降を出す』(パオ)
回答ではありませんが、 まず、「最後に入力した日付」の意味を確認します。
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つあります。
私の質問では ないのですが 使わせていただいております。
このような場合は どのように組み入れれば よいのか よろしくお願いします (パオ)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.