Niektoré praktické osobné makrá: Vráťte písmeno stĺpca pre číslo stĺpca.

Anonim

Je to dobré, ak chcete namiesto buniek (1,1) používať príkazy ako Rozsah („A1“).

Napríklad ColLetter (1) = A, ColLetter (2) = b, …, ColLetter (100) = CV, atď.

3) ColLetter (číslo stĺpca) => vráti stĺpcový list.

Verejná funkcia ColLetter (číslo stĺpca dlhé) ako reťazec

Ak je colNumber <27 Potom
Ak je colNumber = 0 Potom
ColLetter = "Z"
Inak
ColLetter = stred ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", stĺpcové číslo, 1)
Koniec Ak
Inak
Ak je colNumber <26 2 + 27 Potom
ColLetter = stredný ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", PODLAHA (stĺpcové číslo / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Inak
ColLetter = stred („ABCDEFGHIJKLMNOPQRSTUVWXYZ“, FLOOR ((číslo stĺpca - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Koniec Ak
Koniec Ak

Koncová funkcia