Windows XP Home Edition
Office XP Personal 2002
Excel 2002
画像のように、左.xls 右.xls 共に、
赤色セル「"A5"」が、画面左上にきっちりなるようにさせる
マクロ、機能なんてございましたか?
●2つのブックを左右平行に並べて、
同じ行番号の行データを閲覧したいわけでございます。
赤色セルは「"A15"」「"A1299"」となったり、上下いろいろとスクロールします。
列を非表示にすれば、「"D15"」「"D1299"」と、なったりもします。
画像のように、B列(日付)だけは、全く同じデータとなっております。
何卒、ご教示のほどをお願い致します。
No.4ベストアンサー
- 回答日時:
Sub test()
Const wBook = "右.xls" '表示させたいBook名
Const wSht = "Sheet1" '表示させたいSheet名
Dim Target As String
With ActiveWindow
Target = .VisibleRange.Item(1).Address
Application.Goto reference:=Workbooks(wBook).Sheets(wSht).Range(Target), scroll:=True
'.Activate
End With
End Sub
こんな感じです。
左.xlsの該当シートをアクティブにして実行すると
その左上セル『ActiveWindow.VisibleRange.Item(1)』の位置を基準に目的のBook、Sheetをスクロールします。
元のアクティブセルに戻りたい場合は コメントアウトしている '.Activate を活かせば良いです。
Bookを限定せず、ActivateNextでActiveになるBookが対象なら
Sub test2()
Dim Target As String
With ActiveWindow
Target = .VisibleRange.Item(1).Address
.ActivateNext
Application.Goto Range(Target), True
.Activate
End With
End Sub
#2003からは[ウィンドウ]に[並べて比較]機能ができたので不要になりますけどね。
No.3
- 回答日時:
追記:
表示されている行/2
の部分はご自身で調整してください、画面の表示サイズの変化が必要な場合はうまく表示されない可能性があります
No.2
- 回答日時:
画面サイズなどによっても異なりますが
Range("A65535").Select
Range("A" & Range("A1").Value + 14).Select
Range("A" & Range("A1").Value).Select
こんな感じで
上記の場合:
表示される行が30行、A1セルに上端に表示させたい行を入力しています
画面サイズによって一部変更が必要になります
Range("A65535").Select
Range("A" & 上端に表示させたい行数 + 表示されている行/2).Select
Range("A" & 上端に表示させたい行数).Select
こんな形
セル番地を指定してアクティブにした場合
・現在表示されている場所なら表示範囲を変化せずに目的のセルをアクティブにする
・現在表示されていない範囲にある場合は目的のセルを表示範囲の中心となるように表示範囲を変更してアクティブにする
上記のエクセル動作を利用した手法です、参考になればいいのですが
No.1
- 回答日時:
2つのブックを開いてからメニューバーの「ウィンドウ」から「整列」と進みます
この回答への補足
お答え誠に有難うございます。
説明不足で、大変申し訳ございませんでした。
>2つのブックを開いてからメニューバーの「ウィンドウ」から「整列」と進みます
次に、左.xls だけをいろいろと上下スクロールし、ある位置で止めます(左表)。
そして、★ある「マクロ、機能」によって、
右.xls(右表)にも全く同じ行番号の位置で表示させることのできる
{★ある「マクロ、機能」} を質問させて頂いております。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) エクセルのメモについて教えてください。 1 2022/06/23 11:32
- その他(プログラミング・Web制作) エクセルVBA 3 2022/06/11 16:01
- Excel(エクセル) エクセルのセルの、そのセルから左に見ていって、文字があったらそのセルの所定の行を表示する方法 7 2022/04/25 09:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで数字から名前に変...
-
エクセルのチェックボックスを...
-
エクセルで漢字を数字に変換す...
-
エクセル2007 番地の並び替え...
-
pages で「テキストを左右両端...
-
エクセルで縦書きルビの付け方
-
エクセルのマクロで悩んでます
-
エクセル関数で…
-
Excel VBAでオートフィルタ後...
-
エクセル VBA ある条件でセル...
-
エクセルの列の挿入ができない
-
Excelのマクロを勉強したいので...
-
VBAで「セルに何か入っている場...
-
エクセルで数字を1文字ずつセル...
-
折り返して表示、縮小して表示...
-
パワーポイント(表)での縦書...
-
セルに、2009/8/2 21:46:00と...
-
マックで右クリック
-
二つのセルの文字列を結合する
-
エクセルで、縦の列に順番に1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
エクセルでのセルをまたぐ文字...
-
VBAで「セルに何か入っている場...
-
Excel:セルに入力されている日...
-
エクセル関数で…
-
Excel関数 「日付を入力...
-
エクセルで漢字を数字に変換す...
-
エクセル 条件が成立した場合...
-
エクセルで縦書きルビの付け方
-
エクセルでのNULLという文字列...
-
エクセルについて、A1が1ならば...
-
(EXCEL)CELLの色をカウントす...
-
エクセルにて結合サイズが異な...
-
エクセル関数で「数値が入力さ...
-
エクセル 空白を除き左に詰め...
-
エクセルで空白のセルを探して...
-
pages で「テキストを左右両端...
-
エクセルファイルを開くとメッ...
-
折り返して表示、縮小して表示...
おすすめ情報