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

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *