Ｐａｇｅ 7 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Selectがきかない ぽちこ 02/8/28(水) 22:18 ┗Re:Selectがきかない りん 02/8/28(水) 22:28 ┗Re:Selectがきかない ぽちこ 02/8/28(水) 22:36 ┗Re:Selectがきかない りん 02/8/28(水) 22:47 ┗Re:嬉しい（T_T) ぽちこ 02/8/28(水) 22:52 ─────────────────────────────────────── ■題名 ： Selectがきかない ■名前 ： ぽちこ ■日付 ： 02/8/28(水) 22:18 -------------------------------------------------------------------------
| Dim TESTBook As Workbook On Error GoTo ERR_EXIT Set TESTBook = ActiveWorkbook TESTBook.Worksheets("Sheet1").Activate With TESTBook.Worksheets("Sheet1") .Range(Cells(1,1),Cells(10,10)).Select End With ERR_EXIT: if Err.Number <> 0 Then MsgBox "エラー",VBOKOnly End If としているのですが、セルが選択状態になりません。 （エラーにはなっていない） 何が間違っているのでしょうか？ 教えて下さい。よろしくお願いします。 |
| ぽちこ さん、こんばんわ。 ちょっと変えました。 Sub test() Dim TESTBook As Workbook On Error GoTo ERR_EXIT Set TESTBook = ActiveWorkbook ' With TESTBook.Worksheets("Sheet1") .Activate .Range(.Cells(1, 1), .Cells(10, 10)).Select End With ' RetLine: Set TESTBook = Nothing Exit Sub ' ERR_EXIT: MsgBox Error(Err.Number), vbCritical, "エラー" Resume RetLine End Sub 特に問題ないみたいです。A1:J10まで選択されましたよ（ActiveCellはA1）。 ところで、Selectして何をするのですか？ |
| りんさん、早速のご回答ありがとうございます。 りんさんの案でやってみましたが、やっぱり選択されません。 シートを開いた時点で、A1:C5が選択状態になってます。 EXCEL97だからでしょうか？（関係ないですよね・・・） >ところで、Selectして何をするのですか？ その範囲内をあるセルをキーにしてソートしたいのです。 |
| ぽちこさん、こんばんわ。 >EXCEL97だからでしょうか？（関係ないですよね・・・） うちも97ですよ。XL97 & Win Me >>ところで、Selectして何をするのですか？ >その範囲内をあるセルをキーにしてソートしたいのです。 セルに関するほとんどの処理はSelectせずに実行が可能です。 選択予定範囲をＡ，Ｃ，Ｅの列をキーにしてソート Sub test() Dim TESTBook As Workbook On Error GoTo ERR_EXIT Set TESTBook = ActiveWorkbook ' With TESTBook.Worksheets("Sheet1") With .Range(.Cells(1, 1), .Cells(10, 10)) 'A,C,Eをキーとして並べ替え .Sort Key1:=.Cells(1), Order1:=xlAscending, _ Key2:=.Cells(3), Order2:=xlAscending, _ Key3:=.Cells(5), Order3:=xlAscending, _ Header:=xlNo, SortMethod:=xlCodePage End With End With ' RetLine: Set TESTBook = Nothing Exit Sub ' ERR_EXIT: MsgBox Error(Err.Number), vbCritical, "エラー" Resume RetLine End Sub こんな感じです。 |
| 出来ました！実は、これ３時間くらいあれこれ悩んでたんです。 本当に嬉しいです。 りんさん、ありがとうございました！ |