ExcelVBAでSelectを使用しないようにする方法
.Select
Excel VBAでの使用の嫌悪感についてはよく耳にしますが、使用を避ける方法がわかりません。Select
関数の代わりに変数を使用できれば、コードはより再利用可能になることがわかりました。ただし、をActiveCell
使用しない場合の参照方法(など)がわかりませんSelect
。
私が発見した範囲でこの記事とselectを使用していないの利点にこの例を、私は上の何も見つけることができませんどのように。
回答
選択を回避する方法のいくつかの例
Dim
'd変数を使用する
Dim rng as Range
Set
必要な範囲の変数。単一セル範囲を参照する方法はたくさんあります。
Set rng = Range("A1")
Set rng = Cells(1, 1)
Set rng = Range("NamedRange")
またはマルチセル範囲:
Set rng = Range("A1:B10")
Set rng = Range("A1", "B10")
Set rng = Range(Cells(1, 1), Cells(10, 2))
Set rng = Range("AnotherNamedRange")
Set rng = Range("A1").Resize(10, 2)
あなたは可能にショートカットを使用Evaluate
する方法が、これはあまり効率的であると一般的に生産コードでは避けるべきです。
Set rng = [A1]
Set rng = [A1:B10]
上記のすべての例は、アクティブシート上のセルを参照しています。特にアクティブシートのみを操作する場合を除いて、Worksheet
変数を暗くすることをお勧めします。
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Set rng = ws.Cells(1, 1)
With ws
Set rng = .Range(.Cells(1, 1), .Cells(2, 10))
End With
を使用したい場合はActiveSheet
、明確にするために明示的にするのが最善です。ただし、一部のWorksheet
方法ではアクティブシートが変更されるため、注意してください。
Set rng = ActiveSheet.Range("A1")
繰り返しますが、これはアクティブなワークブックを指します。特にActiveWorkbook
orのみを使用する場合を除いてThisWorkbook
、Workbook
変数をDimすることをお勧めします。
Dim wb As Workbook
Set wb = Application.Workbooks("Book1")
Set rng = wb.Worksheets("Sheet1").Range("A1")
を使用したい場合はActiveWorkbook
、明確にするために明示的にするのが最善です。ただし、多くのWorkBook
方法でアクティブな本が変わるため、注意してください。
Set rng = ActiveWorkbook.Worksheets("Sheet1").Range("A1")
ThisWorkbook
オブジェクトを使用して、実行中のコードを含む本を参照することもできます。
Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1")
一般的な(悪い)コードは、本を開いてデータを取得してからもう一度閉じることです。
これは悪いです:
Sub foo()
Dim v as Variant
Workbooks("Book1.xlsx").Sheets(1).Range("A1").Clear
Workbooks.Open("C:\Path\To\SomeClosedBook.xlsx")
v = ActiveWorkbook.Sheets(1).Range("A1").Value
Workbooks("SomeAlreadyOpenBook.xlsx").Activate
ActiveWorkbook.Sheets("SomeSheet").Range("A1").Value = v
Workbooks(2).Activate
ActiveWorkbook.Close()
End Sub
そしてそれはより良いでしょう:
Sub foo()
Dim v as Variant
Dim wb1 as Workbook
Dim wb2 as Workbook
Set wb1 = Workbooks("SomeAlreadyOpenBook.xlsx")
Set wb2 = Workbooks.Open("C:\Path\To\SomeClosedBook.xlsx")
v = wb2.Sheets("SomeSheet").Range("A1").Value
wb1.Sheets("SomeOtherSheet").Range("A1").Value = v
wb2.Close()
End Sub
範囲を範囲変数としてSub
sとFunction
sに渡します。
Sub ClearRange(r as Range)
r.ClearContents
'....
End Sub
Sub MyMacro()
Dim rng as Range
Set rng = ThisWorkbook.Worksheets("SomeSheet").Range("A1:B10")
ClearRange rng
End Sub
あなたはまた、(のような方法に適用すべきであるFind
としCopy
、変数に):
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ThisWorkbook.Worksheets("SomeSheet").Range("A1:A10")
Set rng2 = ThisWorkbook.Worksheets("SomeSheet").Range("B1:B10")
rng1.Copy rng2
セルの範囲をループしている場合は、最初に範囲の値をバリアント配列にコピーして、それをループする方が良い(高速)ことがよくあります。
Dim dat As Variant
Dim rng As Range
Dim i As Long
Set rng = ThisWorkbook.Worksheets("SomeSheet").Range("A1:A10000")
dat = rng.Value ' dat is now array (1 to 10000, 1 to 1)
for i = LBound(dat, 1) to UBound(dat, 1)
dat(i,1) = dat(i, 1) * 10 ' Or whatever operation you need to perform
next
rng.Value = dat ' put new values back on sheet
これは、可能なことのための小さなテイスターです。
2つの主な理由は、なぜ.Select
、.Activate
、Selection
、Activecell
、Activesheet
、Activeworkbook
、などは避けるべきです
- それはあなたのコードを遅くします。
- これは通常、ランタイムエラーの主な原因です。
どうすればそれを回避できますか?
1)関連するオブジェクトを直接操作する
このコードを検討してください
Sheets("Sheet1").Activate
Range("A1").Select
Selection.Value = "Blah"
Selection.NumberFormat = "@"
このコードは次のように書くこともできます
With Sheets("Sheet1").Range("A1")
.Value = "Blah"
.NumberFormat = "@"
End With
2)必要に応じて、変数を宣言します。上記と同じコードは次のように書くことができます
Dim ws as worksheet
Set ws = Sheets("Sheet1")
With ws.Range("A1")
.Value = "Blah"
.NumberFormat = "@"
End With
私が以前に与えられたすべての優れた答えに追加する1つの小さな強調点:
おそらく、Selectの使用を回避するためにできる最大のことは、VBAコードで名前付き範囲(意味のある変数名と組み合わせて)をできるだけ使用することです。この点については前述しましたが、少し光沢がありました。ただし、特別な注意が必要です。
名前付き範囲を自由に使用する理由は他にもいくつかありますが、もっと考えられると思います。
名前付き範囲を使用すると、コードが読みやすく、理解しやすくなります。
例:
Dim Months As Range
Dim MonthlySales As Range
Set Months = Range("Months")
' E.g, "Months" might be a named range referring to A1:A12
Set MonthlySales = Range("MonthlySales")
' E.g, "Monthly Sales" might be a named range referring to B1:B12
Dim Month As Range
For Each Month in Months
Debug.Print MonthlySales(Month.Row)
Next Month
それは何という名前の範囲はかなり明白であるMonths
とMonthlySales
含まれており、手順が何をしていますか。
何でこれが大切ですか?他の人が理解しやすいという理由もありますが、コードを見たり使用したりするのがあなただけであっても、意図したことを忘れてしまうため、名前付き範囲と適切な変数名を使用する必要があります。1年後、コードが何をしているのかを理解するだけで30分を無駄にします。
名前付き範囲は、スプレッドシートの構成が変更されたときに(そうでない場合でも)マクロが壊れないようにします。
上記の例が次のように記述されている場合を考えてみます。
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Range("A1:A12")
Set rng2 = Range("B1:B12")
Dim rng3 As Range
For Each rng3 in rng1
Debug.Print rng2(rng3.Row)
Next rng3
このコードは最初は問題なく機能します。つまり、あなたまたは将来のユーザーが「gee wiz、列に年を含む新しい列を追加するつもりですA
!」と決定するか、月と月の間に経費列を配置するまでです。販売列、または各列にヘッダーを追加します。今、あなたのコードは壊れています。また、ひどい変数名を使用したため、修正方法を理解するのに必要以上に時間がかかります。
最初に名前付き範囲を使用していた場合はMonths
、Sales
列と列を好きなように移動でき、コードは引き続き正常に機能します。
他のみんなが長い答えをしたので、私は短い答えをするつもりです。
マクロを記録して再利用するたびに、.selectと.activateを取得します。セルまたはシートを選択すると、アクティブになります。その時点からRange.Value
、アクティブなセルとシートを使用するような非修飾参照を使用するときはいつでも。これは、コードが配置されている場所を監視していない場合や、ユーザーがブックをクリックした場合にも問題になる可能性があります。
したがって、セルを直接参照することで、これらの問題を解消できます。どちらが行く:
'create and set a range
Dim Rng As Excel.Range
Set Rng = Workbooks("Book1").Worksheets("Sheet1").Range("A1")
'OR
Set Rng = Workbooks(1).Worksheets(1).Cells(1, 1)
またはあなたはできます
'Just deal with the cell directly rather than creating a range
'I want to put the string "Hello" in Range A1 of sheet 1
Workbooks("Book1").Worksheets("Sheet1").Range("A1").value = "Hello"
'OR
Workbooks(1).Worksheets(1).Cells(1, 1).value = "Hello"
これらの方法にはさまざまな組み合わせがありますが、それは私のようなせっかちな人々のためにできるだけ短く表現される一般的な考えです。
「...そして、Select関数の代わりに変数を使用できれば、コードがより再利用可能になることがわかりました。」
.Select
直接セル参照よりも良い選択となる、孤立した一握りの状況しかSelection
考えられませんが、.Select
回避すべき同じ理由でそれを捨てるべきではないことを擁護し、指摘します。
いくつかのキーをタップするだけで利用できるホットキーの組み合わせに割り当てられた短い時間節約のマクロサブルーチンを使用すると、多くの時間を節約できる場合があります。ワークシート全体のデータ形式に準拠していないポケットデータを処理する場合、セルのグループを選択して操作コードを実行できるのは不思議です。セルのグループを選択して形式の変更を適用するのと同じように、特別なマクロコードを実行するセルのグループを選択すると、時間を大幅に節約できます。
選択ベースのサブフレームワークの例:
Public Sub Run_on_Selected()
Dim rng As Range, rSEL As Range
Set rSEL = Selection 'store the current selection in case it changes
For Each rng In rSEL
Debug.Print rng.Address(0, 0)
'cell-by-cell operational code here
Next rng
Set rSEL = Nothing
End Sub
Public Sub Run_on_Selected_Visible()
'this is better for selected ranges on filtered data or containing hidden rows/columns
Dim rng As Range, rSEL As Range
Set rSEL = Selection 'store the current selection in case it changes
For Each rng In rSEL.SpecialCells(xlCellTypeVisible)
Debug.Print rng.Address(0, 0)
'cell-by-cell operational code here
Next rng
Set rSEL = Nothing
End Sub
Public Sub Run_on_Discontiguous_Area()
'this is better for selected ranges of discontiguous areas
Dim ara As Range, rng As Range, rSEL As Range
Set rSEL = Selection 'store the current selection in case it changes
For Each ara In rSEL.Areas
Debug.Print ara.Address(0, 0)
'cell group operational code here
For Each rng In ara.Areas
Debug.Print rng.Address(0, 0)
'cell-by-cell operational code here
Next rng
Next ara
Set rSEL = Nothing
End Sub
処理する実際のコードは、1行から複数のモジュールまで何でもかまいません。私はこの方法を使用して、外部ワークブックのファイル名を含むセルの不規則な選択に対して長時間実行されるルーチンを開始しました。
つまり、Selection
と.Select
と密接に関連しているため、破棄しないでくださいActiveCell
。ワークシートのプロパティとして、他にも多くの目的があります。
(はい、私はこの質問がについて.Select
であったことを知っていますがSelection
、初心者のVBAコーダーが推測するかもしれない誤解を取り除きたいと思いました。)
回避Select
とActivate
VBAの開発者、あなたが少し良くなり動きです。一般に、Select
およびActivate
はマクロが記録されるときに使用されるため、Parent
ワークシートまたは範囲は常にアクティブなものと見なされます。
これは回避することができる方法ですSelect
とActivate
、以下の場合には:
新しいワークシートを追加し、その上にセルをコピーします。
From(マクロレコーダーで生成されたコード):
Sub Makro2()
Range("B2").Select
Sheets.Add After:=ActiveSheet
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "NewName"
ActiveCell.FormulaR1C1 = "12"
Range("B2").Select
Selection.Copy
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
に:
Sub TestMe()
Dim ws As Worksheet
Set ws = Worksheets.Add
With ws
.Name = "NewName"
.Range("B2") = 12
.Range("B2").Copy Destination:=.Range("B3")
End With
End Sub
ワークシート間の範囲をコピーする場合:
から:
Sheets("Source").Select
Columns("A:D").Select
Selection.Copy
Sheets("Target").Select
Columns("A:D").Select
ActiveSheet.Paste
に:
Worksheets("Source").Columns("A:D").Copy Destination:=Worksheets("Target").Range("a1")
派手な名前付き範囲の使用
[]
他の方法と比較して、本当に美しい、でそれらにアクセスできます。自分自身で調べて:
Dim Months As Range
Dim MonthlySales As Range
Set Months = Range("Months")
Set MonthlySales = Range("MonthlySales")
Set Months =[Months]
Set MonthlySales = [MonthlySales]
上記の例は次のようになります。
Worksheets("Source").Columns("A:D").Copy Destination:=Worksheets("Target").[A1]
値をコピーするのではなく、取得する
通常、あなたが喜んでであるならばselect
、おそらくあなたは何かをコピーしています。値のみに関心がある場合、これは選択を避けるための良いオプションです。
Range("B1:B6").Value = Range("A1:A6").Value
常にワークシートも参照するようにしてください
これはおそらくvbaで最も一般的な間違いです。範囲をコピーするたびに、ワークシートが参照されないことがあるため、VBAは間違ったシートをActiveWorksheetと見なします。
'This will work only if the 2. Worksheet is selected!
Public Sub TestMe()
Dim rng As Range
Set rng = Worksheets(2).Range(Cells(1, 1), Cells(2, 2)).Copy
End Sub
'This works always!
Public Sub TestMe2()
Dim rng As Range
With Worksheets(2)
.Range(.Cells(1, 1), .Cells(2, 2)).Copy
End With
End Sub
私は本当に.Select
または.Activate
何かのために使用することはできませんか?
- あなたが使用して正当化することができたときの良い例
.Activate
と.Select
は、特定のワークシートを視覚的理由のために選択されていることを確認したいときです。たとえば、ファイルが閉じられたときにどちらがActiveSheetであったかを無視して、Excelは常に最初に選択されたカバーワークシートで開きます。
したがって、以下のコードのようなものは絶対にOKです:
Private Sub Workbook_Open()
Worksheets("Cover").Activate
End Sub
別の良い例は、この場合に述べたように、すべてのシートを1つのPDFファイルにエクスポートする必要がある場合です-この例のVBAでselect / activeステートメントを回避するにはどうすればよいですか?
コマンド
ActiveWindow
がActiveWindow.ZoomやActiveWindow.FreezePanesのようにのみ機能する場合
以下では、選択アプローチ(OPが避けたいアプローチ)と範囲アプローチ(これが質問への回答)を比較していることに注意してください。したがって、最初のSelectが表示されたら、読むのをやめないでください。
それは本当にあなたがやろうとしていることに依存します。とにかく、簡単な例が役立つかもしれません。アクティブセルの値を「foo」に設定するとします。ActiveCellを使用すると、次のようになります。
Sub Macro1()
ActiveCell.Value = "foo"
End Sub
たとえば「B2」のように、アクティブではないセルに使用する場合は、次のように最初に選択する必要があります。
Sub Macro2()
Range("B2").Select
Macro1
End Sub
Rangesを使用すると、任意のセルの値を任意の値に設定するために使用できる、より一般的なマクロを作成できます。
Sub SetValue(cellAddress As String, aVal As Variant)
Range(cellAddress).Value = aVal
End Sub
次に、Macro2を次のように書き直すことができます。
Sub Macro2()
SetCellValue "B2", "foo"
End Sub
そしてMacro1は:
Sub Macro1()
SetValue ActiveCell.Address, "foo"
End Sub
常にワークブック、ワークシート、セル/範囲を記載してください。
例えば:
Thisworkbook.Worksheets("fred").cells(1,1)
Workbooks("bob").Worksheets("fred").cells(1,1)
エンドユーザーは常にボタンをクリックするだけであり、フォーカスがワークブックから離れるとすぐにコードが処理したいので、事態は完全にうまくいきません。
また、ブックのインデックスは絶対に使用しないでください。
Workbooks(1).Worksheets("fred").cells(1,1)
ユーザーがコードを実行したときに他にどのようなブックが開かれるかはわかりません。
これらの方法はかなり汚名を着せられているので、砂に線を引くためにVityataとJeepedの主導権を握ります。
コール.Activate
、.Select
、Selection
、ActiveSomething
メソッド/プロパティ
基本的には、主にアプリケーションUIを介したユーザー入力を処理するために呼び出されるためです。これらは、ユーザーがUIを介してオブジェクトを処理するときに呼び出されるメソッドであるため、マクロレコーダーによって記録されるメソッドです。そのため、ほとんどの状況で、それらを呼び出すことは脆弱または冗長です。選択する必要はありません。Selection
直後にアクションを実行するようにオブジェクト。
ただし、この定義は、それらが要求される状況を解決します。
ときに呼び出す.Activate
、.Select
、.Selection
、.ActiveSomething
メソッド/プロパティ
基本的に、最終ユーザーが実行で役割を果たすことを期待する場合。
開発中であり、ユーザーがコードで処理するオブジェクトインスタンスを選択することを期待している場合は、.Selection
または.ActiveObject
が適切です。
一方、.Select
そして.Activate
あなたは、ユーザーの次のアクションを推測することができますし、あなたのコードがユーザーをガイドしたい、おそらく彼/彼女のいくつかの時間とマウスクリックを保存する際に有用です。たとえば、コードがグラフの新しいインスタンスを作成したり、更新したりした場合、ユーザーはそれをチェックアウトしたいと思うかもしれません。そのため、グラフ.Activate
またはそのシートを呼び出して、ユーザーがグラフを検索する時間を節約できます。または、ユーザーがいくつかの範囲値を更新する必要があることがわかっている場合は、プログラムでその範囲を選択できます。
IMHOの使用は.select
、私のようにマクロを記録してコードを変更することで必然的にVBAを学び始め.select
、その後selection
は不要な仲介者であることに気付かずにコードを変更する人々から来ています。
.select
すでに投稿されているように、既存のオブジェクトを直接操作することで回避できます。これにより、複雑な方法でiとjを計算し、cell(i、j)を編集するなど、さまざまな間接参照が可能になります。
それ以外の場合は、.select
それ自体に暗黙の問題はなく、これの使用法を簡単に見つけることができます。たとえば、日付を入力したスプレッドシートがあり、それを使って魔法をかけるマクロをアクティブにし、別のシートに受け入れ可能な形式でエクスポートします。ただし、隣接するセルへの最終的な手動(予測不可能な)入力が必要です。そのため.select
、マウスをさらに動かしてクリックする手間を省くことができます。
この.Select
メソッドの使用を回避するために、必要なプロパティに等しい変数を設定できます。
►たとえば、値がCell A1
必要な場合は、そのセルのvalueプロパティに等しい変数を設定できます。
- 例
valOne = Range("A1").Value
►たとえばyou could set a variable equal to the
、そのワークシートの「Sheet3Codename」プロパティのコードネームが必要な場合。
- 例
valTwo = Sheets("Sheet3").Codename
これらの回答のいずれも.Offsetプロパティについて言及していないことに気づきました。これはSelect
、特に選択したセルを参照して、特定のセルを操作するときにアクションを使用しないようにするためにも使用できます(OPがで言及しているようにActiveCell
)。
ここにいくつかの例があります。
また、「ActiveCell」はJ4であると想定します。
ActiveCell.Offset(2, 0).Value = 12
- これにより、セル
J6
が12の値に変更されます - マイナス-2はJ2を参照しているでしょう
ActiveCell.Offset(0,1).Copy ActiveCell.Offset(,2)
- これにより、セルがにコピーさ
k4
れL4
ます。 - 必要がない場合は、オフセットパラメータに「0」は必要ないことに注意してください(、2)
- 前の例と同様に、マイナス1は
i4
ActiveCell.Offset(, -1).EntireColumn.ClearContents
- これにより、列kのすべてのセルの値がクリアされます。
これらは、上記のオプションよりも「優れている」と言っているのではなく、代替案をリストしているだけです。
コピー&ペーストを回避する方法は?
それに直面しましょう:これはマクロを記録するときにたくさん現れます:
Range("X1").Select
Selection.Copy
Range("Y9).Select
Selection.Paste
人が望んでいるのは:
Range("Y9").Value = Range("X1").Value
したがって、VBAマクロでコピーと貼り付けを使用する代わりに、次の簡単なアプローチをお勧めします。
Destination_Range.Value = Source_Range.Value
この例では、.Parent機能を使用して、myRng参照を1つだけ設定すると、.Select、.Activate、.Activecell、.ActiveWorkbook、.ActiveSheetなどを使用せずに環境全体に動的にアクセスできるようになります。(一般的な.Child機能はありません。)
Sub ShowParents()
Dim myRng As Range
Set myRng = ActiveCell
Debug.Print myRng.Address ' An address of the selected cell
Debug.Print myRng.Parent.name ' The name of sheet, where MyRng is in
Debug.Print myRng.Parent.Parent.name ' The name of workbook, where MyRng is in
Debug.Print myRng.Parent.Parent.Parent.name ' The name of application, where MyRng is in
' You may use this feature to set reference to these objects
Dim mySh As Worksheet
Dim myWbk As Workbook
Dim myApp As Application
Set mySh = myRng.Parent
Set myWbk = myRng.Parent.Parent
Set myApp = myRng.Parent.Parent.Parent
Debug.Print mySh.name, mySh.Cells(10, 1).Value
Debug.Print myWbk.name, myWbk.Sheets.Count
Debug.Print myApp.name, myApp.Workbooks.Count
' You may use dynamically addressing
With myRng
.Copy
' Pastes in D1 on sheet 2 in the same workbook, where the copied cell is
.Parent.Parent.Sheets(2).Range("D1").PasteSpecial xlValues
' Or myWbk.Sheets(2).Range("D1").PasteSpecial xlValues
' We may dynamically call active application too
.Parent.Parent.Parent.CutCopyMode = False
' Or myApp.CutCopyMode = False
End With
End Sub
SelectまたはActivesheetを使用しない主な理由は、ほとんどの人がマクロの実行時に少なくとも別の2、3のワークブック(場合によっては数十)を開いており、マクロの実行中にシートから離れてクリックし、他のブックをクリックすると、開いているブックを開くと、「アクティブシート」が変更され、修飾されていない「選択」コマンドのターゲットワークブックも変更されます。
せいぜい、マクロはクラッシュします。最悪の場合、値を書き込んだり、間違ったブックにセルを変更したりして、それらを「元に戻す」方法がない可能性があります。
私が従う単純な黄金律があります。WorkbookオブジェクトとWorksheetオブジェクトに「wb」と「ws」という名前の変数を追加し、常にそれらを使用してマクロブックを参照します。複数の本、または複数のシートを参照する必要がある場合は、変数を追加します。
例えば、
Dim wb as Workbook
Dim ws as Worksheet
Set wb = ThisWorkBook
Set ws = wb.sheets("Output")
「Setwb = ThisWorkbook」コマンドは絶対に重要です。「ThisWorkbook」はExcelの特別な値であり、VBAコードが現在実行されているワークブックを意味します。Workbook変数を設定するための非常に便利なショートカット。
サブの上部でそれを行った後、それらを使用することは簡単ではありません。「選択」を使用する場所で使用してください。
したがって、「出力」のセル「A1」の値を次の代わりに「こんにちは」に変更するには、次のようにします。
Sheets("Output").Activate
ActiveSheet.Range("A1").Select
Selection.Value = "Hello"
これを行うことができます:
ws.Range("A1").Value = "Hello"
これは、ユーザーが複数のスプレッドシートで作業している場合に、はるかに信頼性が高く、クラッシュする可能性が低いだけではありません。また、はるかに短く、速く、簡単に書くことができます。
追加のボーナスとして、変数に常に「wb」と「ws」という名前を付けると、ある本から別の本にコードをコピーして貼り付けることができ、通常、必要な変更があれば最小限で機能します。