Některá praktická osobní makra: Vraťte písmeno sloupce pro číslo sloupce.

Anonim

To je dobré, pokud chcete místo buněk (1,1) používat příkazy jako Rozsah („A1“).

Například ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV atd.

3) ColLetter (číslo sloupce) => předá zpět sloupec Letter.

Veřejná funkce ColLetter (colNumber As Long) jako řetězec

Pokud je ColNumber <27 Then
Pokud colNumber = 0 Pak
ColLetter = "Z"
Jiný
ColLetter = střední ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Konec If
Jiný
Pokud je colNumber <26 2 + 27 Then
ColLetter = střední ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Jiný
ColLetter = střední ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR ((číslo_sloupce - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Konec If
Konec If

Koncová funkce