Fórum Spolku

[Ghastly]

Z úplně jiného sudu :

Do práce si potřebuji udělat takovou pomůcku a z toho důvodu jsem se potopil hlouběji do Excelu a do psaní funkcí ve VBA.
Zatím metodou pokus omyl zkoumám principy a chci se zeptat na následující - v této jednoduché funkci (po zmáčknutí tlačíta načte hodnotu buňky a zapíše jí na přesně určené místo) mi samozřejmě nefunguje ta červeně zvýrazněná část:

Sub tlaèítko1_Klepnout()
Dim x As Integer
Dim y As Integer
Dim z As String
z = List5.Range("D4").Value
x = List5.Range("D6").Value
y = List5.Range("D8").Value

List5.Range("F"+y & 3 + x).Value = z
Beep
End Sub

Prosím poraďte amatérovi jak "vybrat" sloupec vzdálený o y políček od sloupku "F" ?
Děkuji za info.
_________________
Ghastly, Adept Spolku, tulák a dobrodruh

[Ursus]

Tady máš "F" jako písmeno a y jako číslo. Nemůžeš sčítat písmeno a číslo. A VBA nepochopí, že se chceš posunout o y políček od f.

Možnosti jsou 2. Buď napřed F převedeš na číslo, přičteš y, a pak to vrátíš zpátky na písmeno.

dim sloupec as string
dim sloup as integer
sloup = asc("F") + y
sloupec = chr(sloup)

EDIT: Pokud to bude vždy F, pak můžeš vlastně napsat jen
dim sloupec as string
dim sloup as integer
sloup = 6+y
sloupec = chr(sloup)

Nebo je druhá možnost, asi takto:

activecell.offset(6+y,3+x).value = z

6 je tak proto, že F je 6. v abecedě. Problém druhého řešení, že když to budeš spouštět, musí být vybraná buňka A1 (tedy ta úplně nahoře), jinak se to celé rozhází, respektive posune.
_________________
Spoléhat na druhé je vždy ponižující, ale nemít nikoho, na něhož byste se mohli spolehnout, je ještě horší.
John Wyndham - Den trifidů

[Ghastly]

Super, děkuji moc za radu.
Provizorně jsem to včera vyřešil přetransformováním "označení sloupků" jako hodnoty řádků v jednom sloupku - což už jsem adresovat uměl.
Vím, že je to hooodně "přes hlavu", ale funguje to spolehlivě a já to potřeboval hned

Ale podle tvého způsobu je to samozřejmě daleko lepší, takže k tomu sednu a předělám to.

Tohle
sloup = asc("F") + y
sloupec = chr(sloup)
jsem právě nikde nenašel a to byl ten problém.

Ještě jednou děkuji za pomoc.
_________________
Ghastly, Adept Spolku, tulák a dobrodruh

[Stillwater]

[Ursus]