Vba: jak odczytać wartość komórki w zmiennej

Aby wczytać wartość komórki do zmiennej, możesz użyć następującej składni w VBA:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

To konkretne makro tworzy zmienną łańcuchową o nazwie CellVal , a następnie wczytuje do zmiennej wartość komórki A1 aktualnie aktywnego arkusza.

Na koniec używamy MsgBox do wyświetlenia wartości tej zmiennej w oknie komunikatu.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak odczytać wartość komórki w zmiennej w VBA

Załóżmy, że mamy arkusz Excela o wartości 500 w komórce A1 :

Możemy utworzyć następujące makro, aby wczytać wartość tej komórki do zmiennej, a następnie wyświetlić wartość w oknie komunikatu:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Makro wyświetla wartość zmiennej, która zawiera wartość 500 z komórki A1 .

Należy pamiętać, że jeśli chcemy, możemy również wykonać bardziej złożone obliczenia przy użyciu zmiennej.

Na przykład możemy utworzyć następujące makro, aby wczytać wartość komórki A1 do zmiennej, a następnie utworzyć okno komunikatu wyświetlające tę wartość pomnożoną przez 5:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal * 5

End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Makro wyświetla wartość zmiennej pomnożoną przez 5, co daje 500 * 5 = 2500 .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe operacje w VBA:

VBA: Jak ustawić wartość komórki w innym arkuszu
VBA: Jak uzyskać wartość komórki z innego arkusza
VBA: Jak wybrać zakres w aktywnej komórce