
Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。
※イメージ
For ~ To ~
Worksheets("シートA").Activate
シートAの値取得
:
Worksheets("シートB").Activate
シートBの値取得
Next
このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください!

No.3
- 回答日時:
Activate しなければいいのでは?
Dim Value1, Value2
Value1 = ThisWorkbook.Worksheets("シートA").Cells(1, 1).Value
Value2 = ThisWorkbook.Worksheets("シートB").Cells(1, 1).Value
とか。
セル番地の書き方を ThisWorkbook からフルで書けば、複数のブックが開いている状態でも VBA 実行中のブックの特定のシートの特定のセルに直接アクセスできます。
面倒なら
Dim SheetA As Worksheet, SheetB As Worksheet
Set SheetA = ThisWorkbook.Worksheets("シートA")
Set SheetB = ThisWorkbook.Worksheets("シートB")
Dim Value1, Value2
For ~
Value1 = SheetA.Cells(1, 1).Value
Value2 = SheetB.Cells(1, 1).Value
Next
とか
No.1
- 回答日時:
処理の直前(forの前)に
Application.ScreenUpdating = False
処理の直後(nextの後)に
Application.ScreenUpdating = True
を入れてみたら、どうなりますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルVBA 別シートの複数のセルの値をコピーする方法
Excel(エクセル)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
-
-
4
別のシートを参照して計算する方法
Visual Basic(VBA)
-
5
VBA 別シートのセルから、文字列を参照するには?
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
9
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
10
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
11
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
14
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
15
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
18
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
19
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
20
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同じ作業を複数のシートに実行...
-
【ExcelVBA】全シートのセルの...
-
別のシートから値を取得するとき
-
【VBA】指定した検索条件に一致...
-
ユーザーフォームに入力したデ...
-
ブック名、シート名を他のモジ...
-
指定文字が含まれるシートを削...
-
excelのマクロで該当処理できな...
-
エクセルのマクロでアクティブ...
-
XL:BeforeDoubleClickが動かない
-
実行時エラー'1004': WorkSheet...
-
コマンドボタンをクリックでシ...
-
VBA 存在しないシートを選...
-
セルのコピーで「オブジェクト...
-
Excel チェックボックスにチェ...
-
Excel VBA での計算について…
-
【VBA】シート名に特定文字が入...
-
Access エクセルシート名変更
-
シートが保護されている状態で...
-
別のシートを参照して計算する方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
ブック名、シート名を他のモジ...
-
Pythonを勉強しています。
-
【VBA】指定した検索条件に一致...
-
excelのマクロで該当処理できな...
-
C#でExcelのシートを選択する方法
-
VBA 検索して一致したセル...
-
A2~I4179列にあるリストを支社...
-
【VBA】シート名に特定文字が入...
-
VBA 存在しないシートを選...
-
VBAを用いて繰り返し自動的...
-
ExcelのVBAのマクロで他のシー...
-
Excel チェックボックスにチェ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
【Excel VBA】Worksheets().Act...
-
エクセル・マクロ シートの非...
おすすめ情報