Ｐａｇｅ 563 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼全てのワークシートのA1を選択するには ken 03/1/16(木) 18:24 ┣Re:全てのワークシートのA1を選択するには ハマゾウ 03/1/16(木) 23:11 ┗Re:全てのワークシートのA1を選択するには ポンタ 03/1/16(木) 23:50 ┗Re:全てのワークシートのA1を選択するには ken 03/1/17(金) 14:50 ─────────────────────────────────────── ■題名 ： 全てのワークシートのA1を選択するには ■名前 ： ken ■日付 ： 03/1/16(木) 18:24 -------------------------------------------------------------------------
| すいません教えて下さい！ 同じような内容のワークシートが十数枚あります。 閉じるときにＬ４セルを選択して保存しようと思いますが うまくいきません。 For Each Nextを使いたいと思っているのですが・・・ どうか宜しくお願いします。 |
| ▼ken さん： For Each Nextでないとだめですか？ For Nextなら簡単なのですが・・・ Sub test() Dim i As Long For i = 1 To Worksheets.Count Sheets(i).Select Range("L4").Select Next i End Sub |
| こんなやり方もあります。 標準モジュールにTset1とTest2を貼り付けて、 テストしてみてください。 動きが若干違います。 Test1→L4をアクティブにする、 Test2→L4をアクティブにして、左上に持ってくる Sub test1() Dim Ws As Worksheet With Application .ScreenUpdating = False For Each Ws In Worksheets Call .Goto(Ws.Range("L4"), False) Next .ScreenUpdating = True End With End Sub Sub test2() Dim Ws As Worksheet With Application .ScreenUpdating = False For Each Ws In Worksheets Call .Goto(Ws.Range("L4"), True) Next .ScreenUpdating = True End With End Sub |
| ポンタさんハマゾウさんありがとうございました。 解決しました。 こうやって書いていただくとなるほどなぁと思うのですが 本とにらめっこしていてもエラーばっかりで。。。(笑) 自分なりにがんばりますが、それでもだめなときは また､宜しくお願いします。 |