=INDEX($A$1:$A$30;POZVYHLEDAT(0;$A$1:$A$30;0)-1)citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: MSGBox - zobrazení hodnoty
MS Excel
Téma: MSGBox - zobrazení hodnoty 
Zaslal/a ondrapisklak 13.8.2013 9:57
Dobrý den
Mám sloupec kde jsou samé nuly (součty s jiných listů). Postupne se ten sloupec zaplnuje poporade, není zádná buňka prázdná. Exituje nějaký příkaz, že bych měl tlačítko to zmáčkl a napsalo by mi to poslední zapsanou hodnotu ve sloupci? napr. (Hodnota poslední buňky je ta a ta.
Děkuji
Nemohl bys te mi to prosim vepsat do přiloženého souboru?Kdyby to šlo děkuji.
Příloha: 
14671_tab325.zip (14kB, staženo 17x)
citovat14671_tab325.zip (14kB, staženo 17x)Na toto jsem přišel taky ale nedokažu to vymyslet aby mi to zobrazilo hlásku jako msgbox.citovat
Tak Děkuju už jsem na to přišel, zapišu do buňky a buňku vyvolám. Děkujicitovat
Pokud by to mělo fungovat na tlačítko, tak třeba takto:
Private Sub CommandButton1_Click()
While Cells(1 + lin, 1) <> 0
lin = lin + 1
Wend
MsgBox "poslední číslo je " & Cells(lin, 1)
End Subcitovat
Private Sub CommandButton1_Click()
While Cells(1 + lin, 1) <> 0
lin = lin + 1
Wend
MsgBox "poslední číslo je " & Cells(lin, 1)
End Subcitovat
Díky zkusím, ale až zítra vídím buňky uz uplne vsude :-)citovat
Taky postačuje (a je jednodušší) použít vzoreček od eLCHa, dát ho "někam" (zde Cells(1,2)) a pak jen krátké makro, když bys to chtěl do MSGBOXU
Private Sub CommandButton1_Click()
MsgBox "poslední číslo je " & Cells(1, 2)
End subcitovat
Private Sub CommandButton1_Click()
MsgBox "poslední číslo je " & Cells(1, 2)
End subcitovat
Mno pokud to musí být makrem tak už nikde tu hodnotu neukládejte, ale přesto použijte ten vzorec
Private Sub CommandButton1_Click()
With Application.WorksheetFunction
MsgBox "Hodnota poslední buňky je " & .Index(Range("A:A"), .Match(0, Range("A:A"), 0) - 1)
End With 'Application.WorksheetFunction
End Sub
Nicméně toto vám pouze řekne, jaké číslo je poslední a ne kde se nachází - ale když to tak chcete
A jen technická
Pokud přeskočíte, nebude fungovat správněcitovat
Private Sub CommandButton1_Click()
With Application.WorksheetFunction
MsgBox "Hodnota poslední buňky je " & .Index(Range("A:A"), .Match(0, Range("A:A"), 0) - 1)
End With 'Application.WorksheetFunction
End Sub
Nicméně toto vám pouze řekne, jaké číslo je poslední a ne kde se nachází - ale když to tak chcete
A jen technická
Pokud přeskočíte, nebude fungovat správněcitovat
(22.7.2015 16:51)#025945
Zdravím Vás,
potřeboval bych radu ohledně práce s checkboxy. Nastavil jsem podmínku, že pokud je zakliklý checkbox u hodnoty ve sloupci o XY buněk, zobrazí se mi v nějaké buňce nějaký text. Potřebuji ale vybrat postupně celkem 3 hodnoty (záleží na pořadí vybraných buněk). Nevím jak napsat podmínku, aby se mi zvolené buňky řadily pod sebe podle pořadí v jakém zaškrtávám checkboxy.
Jinak řečeno: potřebuji kontrolovat, zda jsou jednotlivé buňky 1. až 3. zaplněny a pokud ano, tak hodnotu zapsat o jednu buňku níže.
Předem moc děkuji za rady.
citovat
potřeboval bych radu ohledně práce s checkboxy. Nastavil jsem podmínku, že pokud je zakliklý checkbox u hodnoty ve sloupci o XY buněk, zobrazí se mi v nějaké buňce nějaký text. Potřebuji ale vybrat postupně celkem 3 hodnoty (záleží na pořadí vybraných buněk). Nevím jak napsat podmínku, aby se mi zvolené buňky řadily pod sebe podle pořadí v jakém zaškrtávám checkboxy.
Jinak řečeno: potřebuji kontrolovat, zda jsou jednotlivé buňky 1. až 3. zaplněny a pokud ano, tak hodnotu zapsat o jednu buňku níže.
Předem moc děkuji za rady.
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články