MS Excel

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

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)#024928

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.citovat

zac1234(13.5.2015 15:08)#024935

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.citovat

marjankaj(13.5.2015 16:34)#024937

Cells(4, 4).FormulaR1C1 = "=IF(R[" & prvnicislo + 5 & "]C[" & sloupecjc - 5 & "]="""","""",666)"

Síce netuším čo sleduješ, ale asi takto.citovat

zac1234(13.5.2015 17:06)#024938

Děkuji pěkně, funguje. Jestli to dobře chápu, tak to dělá ta hranatá závorka.citovat

zac1234(12.6.2015 19:58)#025510

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.citovat

elninoslov(12.6.2015 20:29)#025511

Tak to skúste okľukou :
Cells(hoa, hoa).Formula = "=" & Cells(hoa, hob).Address(0, 0)citovat

zac1234(12.6.2015 20:47)#025512

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íkycitovat

marjankaj(12.6.2015 21:03)#025513

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"citovat

zac1234(12.6.2015 21:12)#025514

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.citovat

elninoslov(12.6.2015 21:25)#025515

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).citovat

Strana: 1 2 3 další »

Uživatelské menu

Nejste přihlášen(a)

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.