- ベストアンサー
再びＥｘｃｅｌの自動スクロールアップのマクロについて
- Ｅｘｃｅｌ２００２をＯｐｅｎした時自動的にスクロールアップするマクロを識者より教えて頂きました。
- 結論は上記で目出度く目的が達せられましたが実はＢｏｏｋの中の複数あるＳｈｅｅｔの内、立ちあがった時、開いているＳｈｅｅｔにしかこのマクロが働いて後の複数のＳｈｅｅｔはスクロールアップはしません。
- 質問はＢｏｏｋをＯｐｅｎした時Ｂｏｏｋの中にある全部のＳｈｅｅｔがスクロールアップすることが出来る方法はあるのでしょうか。
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- Excel 2007 マクロ 別ブックのシートをコピーする方法
Excel 2007 マクロ 別ブックのシートをコピーする方法 別ブックのシートをコピーして アクティブなブックのシートにコピーしたいと思います。 下記マクロを作成しました。 貼り付ける際に、クリップボードに保存するかどうか 聞かれるメッセージが表示されてうまくいきません。 またもっとシンプルな書き方があればアドバイスお願いします。 Sub 取り込み() Dim wb As Workbook Set wb = Workbooks.Open("\") Sheets("Sheet1").Select Cells.Select Selection.Copy ThisWorkbook.Activate ThisWorkbook.Sheets("特定").Select ActiveSheet.Cells(1, 1).Select ActiveSheet.Paste wb.Close End Sub
- ベストアンサー
- その他MS Office製品
- EXCELマクロを無効にして開く方法
掲題の通りなのですが、EXCEL2007で作成されたマクロ有効ファイル（XLSM形式）を マクロ無効の状態で開く方法が分からず困っております。 マクロの内容は Workbook_Open 処理で、特定セルに入力されている EXCELファイルを開き、自身は閉じるというものです。 Private Sub Workbook_Open() Dim FileName As String '１ファイル目 Range("A2").Select FileName = ActiveCell.FormulaR1C1 Workbooks.Open FileName:=FileName ThisWorkbook.Activate '２ファイル目 Range("A3").Select FileName = ActiveCell.FormulaR1C1 Workbooks.Open FileName:=FileName ThisWorkbook.Activate ・・・・・・繰り返し DoEvents ThisWorkbook.Close End Sub 上記の特定セルに設定してあるファイルパスを変更するためには マクロを無効にして開かなければなりません。 マクロのセキュリティを変更して、「すべてのマクロを無効にする」を設定して 該当のファイルを開けば良い事は分かっているのですが、他に分かりやすい方法で マクロ無効状態で開く方法があれば、ご教授頂ければと思います。
- ベストアンサー
- オフィス系ソフト
- 特定のブックにのみ作動するマクロを教えてください。
ブックAに指定時間で作動するマクロを入れました。 ブックAしか開いていないときは作動するのですが、同時にブックBを開いて、ブックBがアクティブの場合に、そのマクロがブックBに対して作動してしまいます。 ブックが複数開いていても、ブックAにのみマクロを作動させる方法をどなたかご教授願います。 ********* ■ブックAのThisWorkBook Private Sub Workbook_Open() Application.OnTime TimeValue("00:15:00"), "sakujyo" End Sub ■標準モジュールのModule1に"sakujyo"を置いています。 よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- エクセル マクロ初心者です。同時スクロール教えて
エクセル マクロ初心者です。同時スクロール教えて下さい。 マクロの記録ですと下記のようになります。 Windows.CompareSideBySideWith "計画11.04:1" これを他のブックからブック名を呼びだすようにしたいのですがエラーが出ます。 ブック名 = ThisWorkbook.Sheets("更新").Cells(6, 16) Windows.CompareSideBySideWith "ブック名 & :1" 実行時エラー'g:' インデックスが有効範囲にありませんとでます。 よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- エクセルでマクロを組み始めたばかりの者です。下記の
エクセルでマクロを組み始めたばかりの者です。下記のようなマクロを組んでみましたが、27行目もしくは41行目のActiveSheet.Pasteで「実行時エラー‘1004‘： 変更しようとしているセルまたはグラフは保護されているため読み取り専用となっています…」というエラーメッセージが出て止まってしまいます。 しようとしている内容は、転送ボタンを押し各シートの指定セルへ一括転送（コピー）をしたいのです。 その際、転送先はシート保護をしておきたいのです。 エラーはエクセル2010で確認しましたが、職場のＰＣを使用するため2007や2003等他のバージョンを利用する可能性もあります。また、仕事で使用するため早急に使わなければならず焦っています。 Option Explicit Private Sub CommandButton2_Click() Call Macro2 End Sub Sub Macro2() Workbook.Open Filename:=”K:¥共有¥○○○.xlsm” ActiveSheet.Unprotect ThisWorkbook.Activate Range(”D4:G20”).Select Selection.Copy Windows(”○○○.xlsm”).Activate Range(”E7”).Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.Save ActiveWindow.Close Application.CutCopyMode = False Workbook.Open Filename:=”C:¥Users¥Desktop¥×××.xlsm” ActiveSheet.Unprotect ThisWorkbook.Activate Range(”D4:G20”).Select Selection.Copy Windows(”×××.xlsm”).Activate Sheet(”△△△”).Select Range(”AF18:AI34”).Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.Save ActiveWindow.Close Application.CutCopyMode = False Workbook.Open Filename:=”K:¥共有¥□□□.xlsm” ActiveSheet.Unprotect ThisWorkbook.Activate Range(”D4:G20”).Select Selection.Copy Windows(”□□□.xlsm”).Activate Sheet(”▽▽▽”).Select Range(”AF18:AI34”).Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.Save ActiveWindow.Close Application.CutCopyMode = False MsgBox " 『○○○』と" & vbCrLf & "『×××』と" & vbCrLf & "『□□□』の" & vbCrLf & "規格を変更しました。" End Sub どの様に修正すれば良いのでしょうか？ マクロが原因でしょうか？または他の原因があるのでしょうか？ マクロ初心者のため、修正方法など具体的な詳細をお教えいただけないでしょうか。 お手数をおかけして申し訳ございませんが、よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルのマクロ イベントプロシージャについて
エクセルのマクロについて教えて下さい 今 book1を開いたら動くマクロを組んでいます 「Private Sub Workbook_Open（）」を 使って 内容は この中で別のブック（仮にbook100とします） を開いてその中のデータ （すでに選択してあります） をコピーして book１に貼り付けて book100を閉じる。 という作業なのですが book100を選択しようとするとエラーが起きてしまいます。 Private Sub Workbook_Open() の中では違うブックに対して 作業ができないようになっているのでしょうか？ よかったら御教授ください
- ベストアンサー
- オフィス系ソフト
- Auto_Openマクロ
Excel2003のマクロで、 Sub Auto_Open() ActiveSheet.DisplayAutomaticPageBreaks = True End Sub としているのですが、起動時に開くシートにしか適用されません。 ページが増えていくのでブック内の全シートに適用するにはどうしたらいいでしょうか？
- 締切済み
- その他MS Office製品
- エクセル ブック（マクロを含む）を保存してとじると、また開きます。
ブックに保護をかけた状態で保存してあります。 共有状態にあり、マクロを有効にしてもらいたいので、 (1)開くときに保護解除 (2)保存のときに、保護をかけて保存後、（まだ閉じるとは限らないので）保護解除 ということをやろうとし、以下のように書きました。 エクセルごとではなく、このファイルのみ終了しようとすると、 開いた後と上書保存後に保護を解除する為、 ファイルを終了する時には必ず「変更を保存しますか？」と訊かれ、 その時に「はい」を選択すると、一度はそのファイルが終了するのですが、 すぐに マクロを含むファイルを開くときに出るメッセージ「セキュリティ警告マクロ マクロ有効 マクロ無効 詳細」が出て、また開こうとします。 保存「いいえ」を選択すると、普通に終了します。 エクセルごとを終了すれば保存「はい」にしても、普通に終了します。 このファイルのみ終了する時、保存の確認で、「はい」を選び、普通に終了するには、何を直したらよいでしょうか？ その前に、根本的に間違ってたりしますでしょうか・・・。 よろしくお願いします。 ThisWorkbookに、 Private Sub Workbook_Open() ActiveSheet.Unprotect Password:="（パスワード）" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.Protect Password:="（パスワード）" Application.OnTime Now, "保護解除" End Sub 標準モジュールに、 Sub 保護解除() ActiveSheet.Unprotect Password:="（パスワード）" End Sub
- ベストアンサー
- オフィス系ソフト
- Excelのマクロが実行されない
Excelを立ち上げ、VBEでThisWorkbookに以下のマクロを記述します。 Dim WithEvents a As Workbook, WithEvents b As Workbook, WithEvents c As Workbook, WithEvents d As Workbook Private Sub Workbook_Open() Stop End Sub ファイルを保存してから起動し、マクロを有効にすると Stop で停止します。 ここで一旦 Stop を削除してから再度 Stop を挿入してから保存します。 再びこのファイルを起動し、マクロを有効にしても Stop で停止しません。 今回は簡単のため Stop にしていますが、実際には起動時の処理が実行されないため困っています。 OSはWindows7,Excelは2007です。
- 締切済み
- その他MS Office製品
- 複数のブックの特定シートを1つのブックにまとめたい
複数のブックの特定のシートを1つのブックにまとめたいのですが そのマクロは下記のように検索してでてきたのですが Sub test() Dim Fname As String Dim Wbm As Workbook Dim Wbs As Workbook Application.ScreenUpdating = False Set Wbs = ThisWorkbook Fname = Dir(ThisWorkbook.Path & "\*.xlsx*") Do While Fname <> "" If Fname <> ThisWorkbook.Name Then Workbooks.Open ThisWorkbook.Path & "\" & Fname Set Wbm = ActiveWorkbook Wbm.Worksheets("2016.03").Copy after:=Wbs.Worksheets(Wbs.Worksheets.Count) ActiveSheet.Name = Left(Fname, InStr(Fname, ".") - 1) Wbm.Close End If Fname = Dir() Loop Application.ScreenUpdating = True End Sub たとえば、特定のシートというのが毎回変わる場合今回は”2016.03"ですが 次回は”2016.04”という風に変わる時、どこかに入力したセルの値を元にシートを検索してくることなどは可能なのでしょうか？ よろしくお願い致します。
- ベストアンサー
- Visual Basic
お礼
再再度有り難うございます。目出度く正常に働きました。感謝いたします。 追記 最初教えていただいたときにうまく働かない現象が出ましたが、よくよくいろんなとこを見ていましたらＥｘｃeｌ２００２で働いているのですがＶＢＡ上ではＥｘｃｅｌ９７に成っているのを見つけました。（長年の積み重ねのＤＡＴＡです） 最初２００２にＳｈｅｅｔをＣｏｐｙしも駄目で、なんら変化無く９７のままだったので、２００２新規にＤＡＴＡのみＣｏｐｙし新たに作り直したら最初に教えて頂いたマクロが正常に働いたわけです。それから今回の質問に成った次第です。