- ベストアンサー
エクセルVBAでSheet1.ActivateとSheet(n).Activate
taocatの回答
- taocat
- ベストアンサー率61% (191/310)
お師匠さん、こんにちは。 ＞しょうもない質問でごめんさない いやいやこれは「基本的なことではありますが非常に重要」なことだと思います。 こういった疑問が生じるということは、 「オブジェクト名とシート名」の区別がついてないからですね。 ＞Sheet(n).Activateが通らないのはなぜでしょう？ これは単に文法ミスです。 Sheetという名前のコレクションがないのに使ってるからです。 (n)とかのINDEXが使えるのはコレクション（同じものの集まり）の場合です。 WorkBooks(n) とか Sheets(n) 等々。。 ●ここから本題● ＞Test1のSheet1.Activate （１）Sheet1.Activate （２）Sheets("Sheet1").Activate （３）Sheets(1).Activate （１）のSheet1は、「オブジェクト名」 （２）のSheet1は、「シート名」 （３）は、シートコレクション（シートの集まり）をIndexで表わす ここで新しいブックを開き VBE画面でプロジェクトエクスプローラを見てください Sheet1(Sheet1) Sheet2(Sheet2) Sheet3(Sheet3) と同じ名前になっていますよね。 左が「オブジェクト名」で（ ）内が「シート名」です。 Sheet1のプロパティ画面を表示して Nameプロパティ（シート名）の値を "売上" に変更して 再度エクスプロラー画面を見てください、 Sheet1(売上) となってるはずです シート名を変更しても「オブジェクト名」Sheet1はそのままです。 で、上記（１）の、Sheet1.ActivateのSheet1はこの「オブジェクト名」を使っていることになりＯＫなのです。 もちろん、売上.Activate（シート名.Activate）はダメですよ。 このように新しいブックでは「オブジェクト名」と「シート名」が同じなのでそこらあたりをちゃんと理解しておかないとこんがらがってしまいます。 もちろん、オブジェクト名も変更はできますが、Sheetに関しては変更しないのが普通だと思います。 CommandButtonとかは、PrintBtnとかCmdBtn1とか変更したりはしますが。。。 以上です。
関連するQ&A
- エクセル、ワークシートが保護されているかどうかを判断するVBAは？
以下のように書いてもダメでした。 どう直せばよいでしょうか？ Sub TEST2() Dim n As Integer n = ThisWorkbook.Worksheets.Count For i = 1 To n If Worksheets(i).Protect = False Then MsgBox Worksheets(i).Name End If Next End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで、作業対象を全ワークシートか選択シートかを切り替えたい
エクセル2000です。 VBAで、作業対象を全部のワークシートか選択されたシートかを任意で切り替えたいのです。 ためしに無理とは思いながら以下のように作ってみましたが、当然のようにエラーになります。 どうかお知恵をお貸しくださいませ。 お願い致します<(_ _)> Sub test() sc = ThisWorkbook.Worksheets.Count ssc = ActiveWindow.SelectedSheets.Count If sc <> ssc Then ans2 = MsgBox(ssc & " 枚のシートだけでいいんですね？" _ & vbCr & "" _ & vbCr & "もし全部のシート（" & sc & "枚）を対象にするなら" _ & vbCr & "いいえを選択してください。", vbYesNo + vbQuestion, " o(^-^)o") ts = IIf(ans = vbNo, Worksheets, ActiveWindow.SelectedSheets)'ここでエラー End If For Each sh In ts sh.Activate sh.Cells(1, 1).Value = sh.Name Next sh End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBA シート名の部分一致検索について エクセル2007
VBAでエクセルの全シート名を部分一致で検索したいと考えています。 そこで以下のコードを書いたのですが、 インプットボックスにどんな文字列を入力しても全てのシート名を 取得してしまって途方にくれています。 どなたかお助けください。 Sub test01() Dim name As String Dim ws As Worksheet shn = InputBox("検索文字列を入力") For Each ws In ThisWorkbook.Worksheets If ws.Name Like " * " & name & " * " Then ws.Activate MsgBox ws.Name End If Next ws End Sub
- 締切済み
- オフィス系ソフト
- 最終シートからその手前まで５シートの選択したい
最終シート名が「基本」、その前が「種別」、さらにその前が「一覧」と言うシート名になっています。 またその「一覧」の前２ケは、シート名をindexで指定したいです。 以下のコードを実行してもうまく、シートを除外してくれません。どうしたらよろしいでしょうか。 Sub 各シートに関数を入力() Dim EXCEPT_NAME As String EXCEPT_NAME = " 一覧 種別 基本" & Worksheets(Sheets.Count - 4).name & Worksheets(Sheets.Count - 5).name Application.ScreenUpdating = False ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path Dim list, sheetName For Each sheetName In ActiveWorkbook.Worksheets If InStr(EXCEPT_NAME, sheetName.name) = 0 Then Sheets(sheetName.name).Activate ActiveSheet.Unprotect Call 関数貼付 End If Next End Sub
- ベストアンサー
- Visual Basic
- VBAで初歩的な質問ですシートのコピーについて
Sub SheetCopy() For i=1 to 31 WorkSheets.Add.Move after:=WorkSheets(workSheets.Count) シート名=i ActiveSheet.Name=シート名 Next End Sub と、シートをコピーするプロシージャを作りました。本当は、シート名を７月1日から、7月31日の31枚を作りたいのですが、どのように書けばよいのでしょうか？ よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルVBAで一番左の可視シート名を取得
エクセルVBAで一番左側にあるシート名を取得する場合、通常は Sub test01() MsgBox Sheets(1).Name End Sub で簡単にできますが、このSheets(1)が非表示になっている場合でもその名前が取得されるため、見た目での一番左側にあるシート名ではなくなってしまいます。 もちろん、非表示になっているシートを除外して Sub test02() Dim n As Integer For n = 1 To Sheets.Count If Sheets(n).Visible Then MsgBox Sheets(n).Name Exit For End If Next End Sub とすれば取得できるのはわかりますが、こんなまだるっこい方法以外に簡単に一番左の可視シート名を取得する方法はないでしょうか？ （＾∇＾）？ ご教示くださいませ。
- ベストアンサー
- その他MS Office製品
- ＥＸＣＥＬのシートを並べ替えすると・・・
エクセルのシートを並べ替えようと思って こちらで調べてようやく並べ替えができるようになったのですが、幾つかあるデータの中で実行するとエラーが出るものがあります。 シートの名前は１日～31日＆集計という構成なのですが、下記を実行すると実行エラー9：インデックスが有効範囲にありません！とでます…デバックを押すと Worksheets(CStr(Wwh.Cells(N, 1).Value)).Move After:=Sheets(N) のところが黄色になっています。 同じようなシートの構成があるデータで試してみると成功するものと失敗するものがありもう何がなにやら(;´Д｀) 何か変更しないとだめなんでしょうか？ 分かる人がいたらアドバイスお願いします。 Sub SortSheets() Dim Wwh As Worksheet Dim N As Integer Application.ScreenUpdating = False Sheets.Add Before:=Worksheets(1) Set Wwh = ActiveSheet For N = 2 To Worksheets.Count Cells(N - 1, 1).Value = Worksheets(N).Name Cells(N - 1, 2).Value = _ Application.GetPhonetic(Worksheets(N).Name) Next N Range("A1").CurrentRegion.Sort Key1:=Range("B1"), _ Order1:=xlAscending, Header:=xlNo, OrderCustom:=1 '昇順 'Range("A1").CurrentRegion.Sort Key1:=Range("B1"), _ Order1:=xlDescending, Header:=xlNo, OrderCustom:=1 '降順 For N = 1 To Range("A1").End(xlDown).Row Worksheets(CStr(Wwh.Cells(N, 1).Value)).Move After:=Sheets(N) Next N For N = 2 To Worksheets.Count If Worksheets(N).Visible = xlSheetVisible Then Worksheets(N).Activate Exit For End If Next N Application.DisplayAlerts = False Wwh.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True Set Wwh = Nothing End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBA シートがアクティブではないのに画面に表示される？
下記のSub test01のマクロでは、画面は常に最初のシートのままで全シートに作業が行なわれます。 ところが、同じマクロですが単にシートを保護するという1行を追加すると（それがSub test02です。）、画面が各シートに切り替わるようになるのです。 しかし、保護されてないシートにSub test02をはしらせると、最初の一回は画面は常に最初のシートのままで全シートに作業が行なわれ、その結果全シートが保護された状態になってから再度実行すると、画面が切り替わるのです。同様に、保護されたシートにSub test01を実行しても画面が切り替わります。 しかし不思議な事に、アクティブなシート名を表示させるようにしたステータスバーには常に最初のシート名しか表示されません。つまりシートがアクティブではないのに画面に表示されるようです。 もちろんScreenUpdatingをFalseにすれば画面が切り替わらなくなるのは存じておりますが、疑問なのはなぜシートがアクティブではないのに画面に表示されるのか？（しかもシートを保護あるいは保護解除する場合に限って）ということです。 どうか、ご教示下さい。 Sub test01() For Each st In Worksheets Application.StatusBar = ActiveSheet.Name st.Unprotect With st.Range("E5") For i = 50000 To 1 Step -500 .Value = Int(i / 500) Next i End With Next st End Sub Sub test02() For Each st In Worksheets Application.StatusBar = ActiveSheet.Name st.Unprotect With st.Range("E5") For i = 50000 To 1 Step -500 .Value = Int(i / 500) Next i End With st.Protect Next st End Sub
- ベストアンサー
- オフィス系ソフト
- 「 VBA の 宣言 」 がない場合の問題点は ？
下記例で、 「 宣言 」 なしでも、現在のところ、問題は発生してませんが、 今後、「 宣言 」 がなかった場合の 「 問題点の例 」 を教えて下さいませ。 ------------------------------- Sub ブックA*の全シートをコピー() Dim Wb As Workbook '宣言 For Each Wb In Workbooks If Wb.Name Like "ブックA*.xls" Then With Workbooks("ブックB.xls") Wb.Worksheets _ .Copy after:=.Sheets(.Sheets.Count) End With End If Next Worksheets(Worksheets.Count).Activate MsgBox ActiveSheet.Index Worksheets("Sheet1").Select End Sub
- ベストアンサー
- オフィス系ソフト
- VBAの書き方を教えてください ２
以前にこちらで質問をさせて頂き、（http://okwave.jp/qa/q8451754.html）これに、VBAを追記していきたいのですが、移動したシートがアクティブする方法がわかりません。 移動したシートのA1000をアクティブにする場合、教えて頂いたVBAにどこに何を入れれば宜しいのでしょうか？ よろしくお願いします。 Private Sub CommandButton1_Click() Dim k As Long, myFlg As Boolean For k = 1 To Worksheets.Count If Worksheets(k).Name = Range("A1") Then myFlg = True Exit For End If Next k If myFlg = True Then Worksheets(k).Activate Else MsgBox "該当シートなし" End If End Sub
- ベストアンサー
- Excel（エクセル）
お礼
道士さま、よくわかりました。 不勉強で申し訳ありません。