Vba: jak uzyskać numer kolumny z zakresu
Możesz użyć następujących metod, aby uzyskać numer kolumny z zakresu w Excelu za pomocą VBA:
Metoda 1: Uzyskaj numer kolumny z określonego zakresu
Sub GetColumnNumber()
colNum = Range(" D7 ").Column
MsgBox colNum
End Sub
To konkretne makro wyświetli okno komunikatu z numerem kolumny odpowiadającym komórce D7 , który będzie wynosić 4 , ponieważ D jest czwartą kolumną w arkuszu.
Metoda 2: Uzyskaj numer kolumny aktualnie wybranego zakresu
Sub GetColumnNumber()
colNum = Selection.Column
MsgBox colNum
End Sub
To konkretne makro wyświetli okno komunikatu z numerem kolumny odpowiadającym aktualnie wybranemu zakresowi w Excelu.
Na przykład, jeśli po uruchomieniu tego makra zostanie wybrana komórka B3 , pojawi się okno komunikatu z wartością 2 , ponieważ kolumna B jest drugą kolumną w arkuszu.
Poniższe przykłady pokazują, jak zastosować każdą metodę w praktyce.
Przykład 1: Uzyskaj numer kolumny z określonego zakresu
Załóżmy, że chcemy uzyskać numer kolumny dla odwołania do komórki D7 .
W tym celu możemy utworzyć następujące makro:
Sub GetColumnNumber()
colNum = Range(" D7 ").Column
MsgBox colNum
End Sub
Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:
W oknie komunikatu zostanie wyświetlona wartość 4 , która odpowiada numerowi kolumny odwołania do komórki D7 .
Przykład 2: Uzyskaj numer kolumny aktualnie wybranego zakresu
Załóżmy, że chcemy uzyskać numer kolumny aktualnie aktywnej komórki.
W tym celu możemy utworzyć następujące makro:
Sub GetColumnNumber()
colNum = Selection.Column
MsgBox colNum
End Sub
Załóżmy, że komórka B3 jest aktualnie wybrana.
Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:
W oknie komunikatu wyświetlana jest wartość 2 , która odpowiada numerowi kolumny aktualnie aktywnej komórki w B3 .
Dodatkowe zasoby
Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:
VBA: Jak uzyskać numer wiersza z zakresu
VBA: Jak znaleźć wartość w kolumnie
VBA: Jak policzyć liczbę użytych kolumn