• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Stačí takýto vzorček
=IF(ISNUMBER(SEARCH($C$2;A2));"T";IF(ISNUMBER(SEARCH($C$3;A2));"H";IF(ISNUMBER(SEARCH($C$4;A2));"PPC";IF(ISNUMBER(SEARCH($C$5;A2));"OCC";IF(ISNUMBER(SEARCH($C$6;A2));"T";"")))))

@excelstuden.
Väčšinou tu niekto zadáva problém a iní sa ho snažia vyriešiť.

Ty tu máš riešenie a k tomu teraz doplňuješ zadanie?

Do jednej bunky sa to dá dostať makrom.
Ale zadávateľ by mohol prejaviť aspoň trochu snahy a priložiť súbor ako by to malo vyzerať.
Predsa sa nebudeme triafať presne do jeho riešenia.

Ale pridám UDF. Do bunky, kde chceš výsledok napíš =ppp(C3:C30)

Function ppp(oblast As Range) As String
Dim text As String
Dim i As Long
i = 0
text = vbNullString
For Each bunka In oblast
If x = bunka Then
i = i + 1
Else
If i > 0 Then text = text & i & ","
i = 1
End If
x = bunka
Next bunka
ppp = text & i
End Function

tak si tam daj takéto

=IFERROR(1/A4;"nenašli")

=IFERROR(SVYHLEDAT(a1;b1:c10;2;0);"nenašli")

Príloha

Tak si na to nadefinuj vlastnú funkciu vo VBA.
Najjdenoduchšie je opraviť data(vzorce) tak aby nevyhadzovali "N/A".

Napríklad namiesto =1/0 daj IFERROR(1/0;"")

Môžeš si aj definovať názov
Napríklad:
_A1
A priradiť mu hodnotu:
INDIRECT("A1")

Potom vo vzorcoch budeš používať namiesto A1 toto _A1.

Možno takto?

Prípadne INDIRECT("A1")
Nepřímý.odkaz("A1")

Asi si nerozumieme.
Čo myslíš pod tým "sloučením"?
1. Urobiť z celej oblasti jednu bunku.
2. Spočítať sumy vo všetkých bunkách danej oblasti.

Príloha by nebola? Zaregistruj sa, spakuj tabuľku do ZIP a prilož sem.

HorizontalAlignment je vodorovné zarovnání.

Mohol by si to konkretizovať na nejakú oblasť? Napríklad D5:F12. O ktorú bunku by išlo? G4?

Sub Makro1()
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub

Alebo
Sub Makro1()
Selection.MergeCells = True
End Sub
Makro si priraď k nejakému tlačítku, napríklad CTRL+m.
ALT+F8 > možnosti.

Skús použiť funkciu VLOOKUP teda SVYHLEDAT.

A ako budem vedieť, že sloupec4 má ísť pred sloupec5?
Tie názvy budú číslované alebo nejaké všeobecné?

A patrilo by sa pridať aj prílohy.

Skús funkciu RANK.

Tak teda mňa ani nenapadne, aby som si vytváral nejaké tabuľky.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje