- ベストアンサー
VBAで枠固定されたsheetを左上に位置を戻す
Excel2013のVBAで Sub Sample1() Sheets(Array("Sheet1", "Sheet3")).Select End Sub と何枚かのシートをグループ化しているとします。グループ化していないシートもあります。 ただし、これらのシートにはウィンドウ枠の固定をしています。 これらのグループ化を適応したシートのウインドウの位置を左上に戻して、枠を固定した外側も左上に戻したいです。左上になっても、固定化していないところは戻らなかったり、sheet1だけ戻ったりしてうまくいきません。 お願いします。
- みんなの回答 (2)
- 専門家の回答
関連するQ&A
- VBAでワークシートを変数にするとき
たとえばSheet1とSheet2を一度に選択する場合、 Sub Macro6() Sheets(Array("Sheet1", "Sheet2")).Select End Sub と書くと思います。 ワークシートを変数で書く場合は Sub test() Dim ws1 As Worksheet, ws2 As Worksheet Sheets(Array(ws1.Name, ws2.Name)).Select End Sub と、いちいち名前で指定しなければならないのでしょうか? それとももっと別の書き方があるのでしょうか?
- ベストアンサー
- その他MS Office製品
- VBAでシートのコピー
お世話になっております。 VBAの未熟者ですが、個人の資料作成のためのシステムをコツコツと作っております。 今までマクロでシートのコピーをやっていたのですが、コマンドボタンでできるように変更しようとしてうまくいきません。 ファイルAの中にある幾つかのシートの内、シート「個人事業」を「請求書」ファイルの「Sheet2」にコピーしたいのです。その後名前を変更しています。 マクロのプログラムをそのままコピーしてみたのですが、[sheets("個人事業").paste]のところでエラーが出ます。 マクロとコマンドボタンではやはり設定を変更しないといけないのでしょうか?ご教授お願いします。 Private Sub CommandButton1_Click() Sheets("Sheet2").Select Windows("未請求リスト.XLS").Activate Sheets("個人事業").Select Selection.Copy Windows("請求書.xls").Activate Sheets("Sheet2").Select Sheets("個人事業").Paste Sheets("Sheet2").Name = "個人事業請求一覧" Sheets("請求書").Select End Sub 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- シートをコピーする際のVBAコードについて
お世話になります。 sample.xls というファイルがあります。 このファイルの中にVBA処理にて、現在のシートをコピーする処理を行います。 Windows("sample.xls").Activate Sheets("sheet1").Select Sheets("sheet1").Copy after:=Sheets(Sheets.Count) sample.xlsは原本ファイルとなり、実際の運用時は拡張子の前に年月を表示する 形で保存されます。 (sample201106.xls、sample201109.xlsなど) こうなってしまうと、VBAで定義した Windows("sample.xls").Activate ファイル名が変わることで、この部分にエラーが生じます。 ファイル名が変更されても、上記コードがうまく機能するようにする方法はありますでしょうか? アドバイスいただけたらと思います。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルシートのウィンドウ枠の固定について
■エクセルのファイルに次のマクロを設定し、ファイルを開くたびに「目次」のシートが表示されるようにします。 Private Sub Workbook_Open() Sheets("目次").Activate End Sub ■この目次のシートに目次を作成し、それぞれの目的のシートにハイパーリンクでジャンプするようにします。 「目次」のシートのそれぞれのセルに、目的のシートのセルA1をハイパーリンクする。 ■目的のシートでウィンドウ枠の固定を行う(6行目) --------------- このような設定下で、このファイルを新たに開くと、必ず「目次」のシートが表示され、目次の中から目的のシートを表示したセルのハイパーリンクをクリックすると、目的のシートにジャンプします。 ところが、ウィンドウ枠(6行目)が固定してあり、普通前回閉じた行から表示されるはずですが、 たとえば、 事例(A) 1 2 3 4 5 --- 100 101 102 ですが、実際に新たにファイルを開いて、目次からジャンプすると、 事例(B) 1 2 3 4 5 ---- 6 7 8 9 となって枠の設定のない状態と同じ状態で表示されます。 これを、前回閉じた事例(A)の状態で再表示されるようにしたいのですが、何が悪くて枠の固定が当初の状態に戻るのかわかりません。 何かの設定が不適切なのだと思います。 教えてください。
- 締切済み
- Visual Basic
- EXCEL VBA シートの連続印刷に白黒印刷
EXCEL VBAの初心者です。回答、指導をよろしくお願いします。EXCEL2003を使用しています。シートAとBを連続で印刷するVBAに白黒で印刷するVBAを加えたいのですが記述方法がわかりませんのでご指導お願いします。シートの連続印刷VBAは下記ですが、これでよろしいでしょうか。どなたかご指導よろしくお願いします。 Sub purint複数シート印刷() Sheets(Array("A", "B")).PrintOut End Sub
- ベストアンサー
- その他MS Office製品
- VBAで複数シート選択
エクセルVBAで複数のシートを選択する場合、 Sheets(Array("AAA", "BBB", "CCC")).Select と書くと思いますが、マクロを回してみないことにはシート名や枚数が特定できない場合、どのように記述したらいいのでしょうか? たとえば、新たに追加されたSheets(n)~Sheets(n+x)を選択するような場合です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA(作業グループの解除)
EXCEL VBAについての質問です。 複数のシートをコピーして別ブックに保存した後、元のブックが作業グループになってしまいます。 これを解除するコードを伝授いただけませんでしょうか? Sheets(Array("1", "2", "3")).Select Sheets(Array("1", "2", "3")).Copy
- ベストアンサー
- オフィス系ソフト
- Excel2000でウインドウ枠の固定ができない
Excel2000であるブックを開いたところ3つのワークシートがあるのですが、その中で1つめのワークシートだけが「ウインドウ枠の固定」ができません。何故なんでしょう? 一応 メニューから[ウインドウ]→[ウインドウ枠の固定]にするとメニュー上で[ウインドウ]を見ると[ウインドウ枠固定の解除]と出ていますがスクロールすると固定されずスクロールしてしまいます。
- 締切済み
- Windows 95・98
- VBA 最終行を選んだシートにコピーする。
VBAど初心者です。どうしても最終行のデータを選んだシートにコピーできません。 LastRow.Selectのところで、止まってしまいます。どのように行を設定していいのかさっぱりわかりません。どなたか、ご指導のほどよろしくお願いします。 Sub copy_last_line() Dim LastRow As Long Sheets("Sheet1").Select LastRow = Cells(Rows.Count, 1).End(xlUp).Row LastRow.Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("A1").Select End Sub
- ベストアンサー
- Visual Basic
- 指定したシート名以外を非表示にするには?VBA
エクセルです。 例えば、 A,B,C,Dと言うシートがあり、 A以外を非表示にさせたい場合は、 Sub test() Dim SName As String '表示したいシート名 SName = "A" Sheets(Array("B", "C", "D")).Select ActiveWindow.SelectedSheets.Visible = False End Sub で出来ますが、 SName = "B"の場合など、どのシート名を指定した場合でも その指定したシート名以外のシートを非表示にするVBAコードを教えてくれませんか? しかも、例題でA,B,C,Dとしましたが 実際のシート名は、A会社、B会社、C事業部、D部署・・・等 関連性のないシート名だし、10シート以上あります。 Sheets(Array("B", "C", "D")).Select の部分を,VBAでどううまくやればいいのかわかりません。 SNameで指定したシート名以外をArrayしたいです。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- TR8530のPGBKがなりなり、交換しましたが黒色が印刷できません。ヘッドクリーニングを行いましたが解決しません。
- キヤノン製品のTR8530で、PGBKの交換後に黒色が印刷できない問題が発生しています。ヘッドクリーニングを試しましたが解決しません。
- TR8530のPGBKがなりなり、交換した後に黒色が印刷できない問題が発生しています。ヘッドクリーニングを行っても解決しない場合、どのような対処法がありますか?
お礼
動きました。 どうもありがとうございました。オブジェクト名で複数選択できる書き方がわかったのが案外うれしかったです。