Článek je rozpracován. Máte-li námět na vylepšení jsou k dispozici komentáře.
Článek byl aktualizován: 22.07.2024 22:12
Odměna
Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.
Pavel Lasák - autor webu
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.
Komentáře
mirog46
Přidáno: 20.07.16 17:13
mám problém. mám tabulku v excelu.
a) vodorovně: id, jmeno, 31 buněk představující dny.
b) svisle se řádek opakuje asi 150 krát.
Potřebuji provést rozdělení buněk do asi 5skupin označené a,b.c,d,e. Jen tyto hodnoty se mohou v bunkách objevit mimo prázdných buněk. potřebuji znát jen počet buběk s a,b,c,d,e.
Vše bych rád vyřešil makrem s výsledkem kolik a,b,c,d,e je v sloupci je. Vstupním paramertem má být den - tedy sloupec-zpracování. to jsem řešil pomocí INPUTBOX. Pakjsem ve řešil pomocí cyklu FOR a IF THEN ELSE. Tady jsem narazil.
prosím o pomoc a radu
Mojmír
Jojo
Přidáno: 25.07.16 10:10
To mirog46: Sub Test()
Dim rw, col
Dim cell, a, b, c, d, e
'Ak má zobrazovať vo výsledkoch aj 0(nulu), treba na začiatku nasl.riadkov odstrániť znak: '
'a = 0
'b = a
'c = a
'd = a
'e = a
col = InputBox("Zadajte deň!")
col = col + 2 ' posun stĺpcov (dni začínajú od 3.stĺpca)
For rw = 2 To 150 ' riadky
cell = Cells(rw, col)
Select Case cell
Case "a": a = a + 1
Case "b": b = b + 1
Case "c": c = c + 1
Case "d": d = d + 1
Case "e": e = e + 1
End Select
Next rw
MsgBox "Počet výskytov:" & vbCrLf & _
"a = " & a & vbCrLf & _
"b = " & b & vbCrLf & _
"c = " & c & vbCrLf & _
"d = " & d & vbCrLf & _
"e = " & e
End Sub
mirog46
Přidáno: 27.07.16 07:57
děkuji za pomoc, vždy jsem rozvětvení dělal pomocí
FOR A IF THEN ELSE a to byla chyba
velké díky