< návrat zpět

MS Excel

Téma: Adresování buňky VBA rss

Zaslal/a zac1234 13.5.2015 9:42

Zdravím,
jak ve VBA adresovat zápis do buňky s použitím proměnné?

proměnné
prvnicislo = Range("H5").Value
sloupecjc = Range("H3").Value

do buňky třeba D4 by měl být zapsán vzorec s podmínkami
Cells(4,4).Select
ActiveCell.FormulaR1C1 = "=IF(R[prvnicislo+5],C[sloupecjc-5]="""","""",IF.........

Díky za radu.

Zaslat odpověď >
Strana:  1 2 3   další »
elninoslov(13.5.2015 12:12)citovat#024928
elninoslov
Dim prvnicislo As Long, sloupecjc As Long
prvnicislo = Range("H5").Value
sloupecjc = Range("H3").Value
Cells(4, 4).FormulaR1C1 = "=IF(R" & prvnicislo + 5 & "C" & sloupecjc - 5 & "="""","""",666)"
Za to 666 si dosaď tú ďalšiu subpodmienku alebo čo ti to tam začína.
zac1234(13.5.2015 15:08)citovat#024935
avatar
Díky za radu. I by to nějak fungovalo, při zápisu do listu to za proměnné dosadí dobře, ale udělá z toho absolutní odkaz se znakem dolaru, což se mi moc nehodí, protože v dalším kroku to má buňku zkopírovat níže o x řádku (vložit jinak - vzorce). Možná bylo špatně mé původní zadání. Je nějaké řešení? Díky.
marjankaj(13.5.2015 16:34)citovat#024937
avatar
Cells(4, 4).FormulaR1C1 = "=IF(R[" & prvnicislo + 5 & "]C[" & sloupecjc - 5 & "]="""","""",666)"

Síce netuším čo sleduješ, ale asi takto.
zac1234(13.5.2015 17:06)citovat#024938
avatar
Děkuji pěkně, funguje. Jestli to dobře chápu, tak to dělá ta hranatá závorka.
zac1234(12.6.2015 19:58)citovat#025510
avatar
Zdravím,ještě se vracím k adresování buňky. Proč níže uvedené makro podle mě zapisuje do buňky něco jiného než by mělo? V čem je chyba?

Sub zkouskamakra()
Dim hod1 As Long
Dim hod2 As Long
hoa = 5
hob = 1
Cells(hoa, hoa).Select
'mělo by zapsat do buňky e5 - = R5C1, tedy = A5, ale napíše = F10
Cells(hoa, hoa).Formula = "=R[" & hoa & "]C[" & hob & "]"
End Sub

Díky za radu.
elninoslov(12.6.2015 20:29)citovat#025511
elninoslov
Tak to skúste okľukou :
Cells(hoa, hoa).Formula = "=" & Cells(hoa, hob).Address(0, 0)
zac1234(12.6.2015 20:47)citovat#025512
avatar
Zápis do buňky se různě mění, to by taky fungovalo : Cells(hoa, hoa).Formula = "=" & Cells(hoa + 1, hob + 5).Address(0, 0). V tomto případě F6.

Jak se změní zápis pro určení absolutního odkazu - $F6, F$6, $F$6? Díky
marjankaj(12.6.2015 21:03)citovat#025513
avatar
vyskúšaj tieto príkazy.
Malo by ti to docvaknúť

Cells(1, 1).Formula = "=R4C4"
Cells(3, 3).Formula = "=R[4]C[4]"
Cells(5, 5).Formula = "=R4C[4]"
Cells(7, 7).Formula = "=R[4]C4"
zac1234(12.6.2015 21:12)citovat#025514
avatar
Tam by to bylo jasné, ale co v té části za rovnítkem : = "=" & Cells(hoa + 1, hob + 5).Address(0, 0).
Jak udělat třeba z hoa + 1 nakonec $6
Díky.
elninoslov(12.6.2015 21:25)citovat#025515
elninoslov
To Address máte dobre vysvetlené na MSDN:
https://msdn.microsoft.com/en-us/library/office/ff837625.aspx

To R1C1 (konkrétne relatívny odkaz pomocou []) mi príde úplne blbý, pretože treba myslieť nielen na premenné vo vzorcoch, ale navyše aj na konkrétne súradnice bunky, pretože do [] sa zapisuje rozdiel (posun chcenej bunky oproti aktuálne nastavovanej).

Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje