Kilka przykładów unikania wyboru
Użyj Dimzmiennych „d”
Dim rng as Range
Setzmienna do wymaganego zakresu. Istnieje wiele sposobów odniesienia do zakresu jednokomórkowego
Set rng = Range("A1")
Set rng = Cells(1,1)
Set rng = Range("NamedRange")
lub zakres wielu komórek
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)
Państwo może używać skrótu do Evaluatemetody, ale to jest mniej wydajny i generalnie należy unikać w kodzie produkcyjnym.
Set rng = [A1]
Set rng = [A1:B10]
Wszystkie powyższe przykłady odnoszą się do komórek na aktywnym arkuszu . Jeśli nie chcesz pracować tylko z aktywnym arkuszem, lepiej jest również przyciemnić Worksheetzmienną
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
Jeśli nie chcą pracować z ActiveSheet, dla jasności, że najlepiej być jawne. Ale uważaj, ponieważ niektóre Worksheetmetody zmieniają aktywny arkusz.
Set rng = ActiveSheet.Range("A1")
Ponownie odnosi się to do aktywnego skoroszytu . Jeśli nie chcesz pracować tylko z ActiveWorkbooklub ThisWorkbook, lepiej jest również przyciemnić Workbookzmienną.
Dim wb As Workbook
Set wb = Application.Workbooks("Book1")
Set rng = wb.Worksheets("Sheet1").Range("A1")
Jeśli nie chcą pracować z ActiveWorkbook, dla jasności, że najlepiej być jawne. Ale uważaj, ponieważ wiele WorkBookmetod zmienia aktywną książkę.
Set rng = ActiveWorkbook.Worksheets("Sheet1").Range("A1")
Możesz także użyć tego ThisWorkbookobiektu, aby odnieść się do książki zawierającej działający kod.
Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1")
Częstym (złym) fragmentem kodu jest otwieranie książki, pobieranie danych, a następnie zamykanie
To jest złe:
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
I byłoby lepiej, jak:
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
Karnet waha się swoimi Subs i Functions jako zmienne klasy
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
Powinieneś także zastosować metody (takie jak Findi Copy) do zmiennych
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
Jeśli zapętlasz zakres komórek, często lepiej (szybciej) jest najpierw skopiować wartości zakresu do tablicy wariantów i zapętlić
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
To jest mały degustator tego, co jest możliwe.
Selecti / lubActiveSheetitp. Itp. Jest całkowicie nieuniknione. Oto przykład, który znalazłem: stackoverflow.com/questions/22796286/…