- 締切済み
VBA ブックを並べて同時にスクロール
Raistlinの回答
- Raistlin
- ベストアンサー率63% (65/102)
「選択範囲が変わった」というイベントはありますので、それを利用してみました。 添付のコードを、比較するシートのシートモジュールに貼り付けてください。 コードを貼り付けたシートの選択範囲が変わると、そのウィンドウの左上隅のセルを記憶し、他の全てのウィンドウの左上隅のセルを揃えます。 注意事項 ・整形用に全角スペースを使用していますので、使用前に置換してください。 ・残りのウィンドウの状態を判定していません(グラフシートなどでこける)ので、必要に応じて適当に改変してください。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) '残りのウィンドウの表示範囲をアクティブウィンドウと同期する Dim lRw As Long, lClmn As Long Dim objWDW As Window Application.ScreenUpdating = False With ActiveWindow lRw = .ScrollRow lClmn = .ScrollColumn End With For Each objWDW In Windows With objWDW .ScrollRow = lRw .ScrollColumn = lClmn End With Next Application.ScreenUpdating = True End Sub
関連するQ&A
- excel vba 作成について教えて下さい。
excel VBAを使ってあるブックのセル範囲を別のブック(日報.XLS)のシートへコピー貼り付けをしたいのですが、コピーする側のブックがランダムに取り込まれ(例 8時間ピッチにて自動的にブックが作成される)そのブックを日にちごとに集計し、一か月ごとにまとめるということをやらなければなりません。 例)8時間ごとにフォルダが作成されます。 000001.XLS 000002.XLS 00000F.XLS ・・・・・・・・16進数にて 上記ブックのSheet1のA2:A11までの数値を別のブック(日報月報集計)のに貼り付ける。 別のブック(日報月報集計)は項目ごとに10個のシートがあり 8時間ごとのファイルのセルA2は別ブックのSheet1の日付けに対応するセルへ貼り付け B2は Sheet2 上記操作を8時間ごと(可変可能)に自動的にコピー貼り付けをやりたいのですが ブック間のコピー貼り付け等わからないことが(初心者です。)多々あり、いろいろ調べてはいるのですが、STOPした状態です。 出来れば、初心者にも理解しやすい解説等あれば宜しくお願いします。
- 締切済み
- Visual Basic
- 【Excel-VBA】アクティブセルが参照しているブックを開くには?
いろいろ検索したのですが、見つからないので質問させていただきます。 対象のセルが他ブックのセルを参照しているとき、そのブックが開かれていない場合、正しい値にはなりません。 (例:A1に =[Book2.xls]Sheet1!$A$3 が入力されている) そこで、そのセルが参照しているブックをVBAで自動的に開く方法を考えています。 つまり、例で言えば、Book2.xlsを開きたいのです。 文字列関数を使ってひとつひとつの文字を取得し、ファイル名を得て開く方法しかないのでしょうか? 何かいい方法があれば教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCELのブック間リンクの自動変更について
EXCELのブック間リンクの自動変更について C:\aaa に2つのブックがあります。 book1.xls book2.xls それで book1.xls のあるセルに以下の計算式があります ='C:\aaa\[book2.xls]Sheet1'!A1 この2つのファイルを別のPCの任意のフォルダ(例えばD:\eee\)移動した場合、 移動後の上記のbook1.xlsを開くと計算式が ='D:\eee\[book2.xls]Sheet1'!A1 に自動で変わってます。 これはどういう仕組みでしょうか? 常にこうなるのかどこかの設定で 自動or手動など変えられるのでしょうか? 先方にメールで送るのですが、先方側でパスが自動で変わってくれるのか が心配です。どなたか教えて頂けませんか?
- ベストアンサー
- その他MS Office製品
- 【Excel VBA】ブックを複数開いている際、任意のブックをアクティブにしたい
OS:Windows XP Office:2003 複数のエクセルブックを開いている状態で、 ある任意のブックをアクティブにしてセルの操作(コピペなど)をしたいのですが、 "インデックスが有効範囲にありません"とエラーになってしまいます。 現在のソースは、 strFileName = "\\共有サーバー\共有\TEST.xls" Windows(strFileName).Activate ←ここでエラーになる Sheets("Sheet1").Select Cells.Select Selection.Copy Windows("貼り付け先.xls").Activate Sheets("Sheet1_n").Select Cells.Select ActiveSheet.Paste です。 どこが悪いんでしょうか? 正しいコーディングを教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロなどでBook1からBook3へ転記したい
Book1.xls の Sheet1 の A1セル に記入した数字を Book3.xls の Sheet3 の A3セル に転記する方法を教えてください。 ただし、book1.xls 記入したA1セルの数字は、0:00になるとクリアになる必要があります。 又、できれば、記入した直後に自動転記できた方がいいです。 何とぞご教示のほどよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Excel VBA ブックが本当に閉じられた時だけ別のブックを閉じたい
Excel VBA ブックが本当に閉じられた時だけ別のブックを閉じたい A.xls B.xls と二つのブックがあります。 A.xlsが閉じられる時、B.xlsも同時に閉じたいです。 A.xlsに以下のマクロを入れました。 Private?Sub?Workbook_BeforeClose(Cancel?As?Boolean) ?Workbooks("B.xls").Close?SaveChanges:=False End?Sub 問題はA.xlsが保存してない場合、「A.xlsへの変更を保存しますか?」というメッセー ジが 出てきますが、そこでキャンセルを押された場合でもB.xlsが閉じられてしまいます。 A.xlsが本当に閉じられた時だけB.xlsを閉じたいのですが そのようなことは可能でしょうか?
- ベストアンサー
- パフォーマンス・チューニング
- bookからbookへの数式のコピーについて教えてください
bookからbookへの数式のコピーについて ??BookのSheet1のセルにSheet2を参照にした数式が入っています =2+Sheet2!$A8 これを!!BookのSheet1のセルにコピーすると =2+[Book1.xls]Sheet2!$A8 こうなりました コピーしたセルは11,475セルあります [Book1.xls]をすべて消したいのですが、簡単な方法はありますか?
- 締切済み
- その他(ビジネス・キャリア)
- EXCEL VBA コピー貼り付け時のチェック
お世話になります。田中と申します。 VBAの練習で下記の操作を実現したいと思っておりますが、どうしたらよいのか分りません。 A.xlsというブックがあります。 A.xlsの[データ]というシートにボタンをおいてそのボタンをクリックしたら以下のような動作をしたいのです。 このA.xlsの[データ]シートのA1~L20までをコピーして、C:\Users\田中\DesktopにあるB.xlsというブックの[シート1]という名称の単にシートに貼り付けしたいのです。 ただし貼り付け時に他のユーザーがB.xlsを開いている場合は、貼り付け処理を中止したいのですが、そのようなユーザーに開かれているかどうかVBAでチェックする方法はありますでしょうか? どなたかお知恵をお借りできますでしょうか。 よろしくお願い致します。 環境 Windows7 Excel2013
- ベストアンサー
- Excel(エクセル)
- ■ 他のブックのセル値を取り込むことは可能ですか?
マクロで他のブックの特定のセルの値を取り込むことは可能ですか? 例えば、今A.xls B.xlsという2つのエクセルファイルを開いていまして、A.xlsの A4 の値を B.xls の G8 に入れたいのですが・・・。 説明分かりにくかったでしょうか? もしお分かりになった方がいらっしゃいましたら教えていただけないでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで、アクティブなBOOKのファイル名を取得し
エクセルのVBAを使用して、選択されている、BOOKのファイル名を取得し、下記のように編集してA1セルに入れたいのですが、可能でしょうか? BOOKのファイル名が「大阪_たこ焼き_1234.xls」の場合 大阪_と.xlsをは省いて、「たこ焼き_1234」がA1セルに入るようにしたい。
- ベストアンサー
- オフィス系ソフト