Discussion:
[EXCEL] Zamiana oznaczenia kolumny: cyfra na literę i odwrotnie
(Wiadomość utworzona zbyt dawno temu. Odpowiedź niemożliwa.)
Darek D.
2006-02-01 18:27:59 UTC
Permalink
Czy istnieje coś podobnego do pary chr() i asc(), co pozwalałoby w prosty
sposób zamieniać oznaczenie literowe kolumna na cyfrowe i odwrotnie?

Pozdrawiam - Darek D.
--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
Tajan
2006-02-01 19:59:03 UTC
Permalink
Witam!
Czy istnieje co¶ podobnego do pary chr() i asc(), co pozwala³oby w
prosty sposób zamieniaæ oznaczenie literowe kolumna na cyfrowe i
odwrotnie?
Nie ma, trzeba tworzyæ samemu. Jednak nie jest to zbyt skomplikowane.
Przyk³adowo:

nrkolumny = 256
symbolKolumny = Split(Columns(nrkolumny).Address(False, False), ":")(0)

symbolKolumny = "AA"
nrkolumny = Columns(symbolKolumny).Column

Tajan
--
Tadeusz Jankowski (MS Excel MVP)
Darek D.
2006-02-09 17:17:32 UTC
Permalink
Post by Tajan
symbolKolumny = Split(Columns(nrkolumny).Address(False, False), ":")(0)
Proszę o rozjaśnienie w sprawie ostatniego zera w nawiasie :)
Składnia funkcji Split wygląda następująco:
Function Split(Expression As String, [Delimiter], [Limit As Long = -1], _
[Compare As VbCompareMethod = vbBinaryCompare])

Dlatego jestem jak zawsze ciekawy, skąd się wziął ten dodatek (0)?! ;)
Czy występuję inne wartości oprócz zera i jedynki, gdzie można znaleźć coś na
ten temat, bo w helpie ani w googlach poza tym, że jest używany taki zapis,
nie znalazłem żadnego opisu :(

Natomiast metodą na tzw. "czuja" ;) doszedłem, że:
Split("***@o2.pl", "@")(0) - daje w rezultacie string: adres
Split("***@o2.pl", "@")(1) - daje w rezultacie string: o2.pl
Czyli (0) wycina to co znajduje się przed pierwszym wystąpieniem "@",
a (1) to co po pierwszym wystąpieniu "@".

Czy to jakaś ukryta cecha tej funkcji?
Są jeszcze jakieś inne dotyczące tej lub innych funkcji VBA?


Pozdrowienia - Jak zawsze niezaspokojony Darek D. :)
--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
Tajan
2006-02-09 19:00:02 UTC
Permalink
Witam!
Post by Tajan
symbolKolumny = Split(Columns(nrkolumny).Address(False, False), ":")(0)
Proszê o rozja¶nienie w sprawie ostatniego zera w nawiasie :)
(...)

Jest to, po prostu, odwo³anie siê do pierwszego elementu tablicy zwracanej
przez funkcjê Split. Inaczej mo¿na to zapisaæ nastêpuj±co:

zmienna= Split(Columns(nrkolumny).Address(False, False),":")
symbolKolumny = zmienna(0)

Tajan
--
Tadeusz Jankowski (MS Excel MVP)
Loading...