Příspěvky uživatele

v tom texťáku popisuješ něco co v tom souboru vůbec není (asi nějaký starší soubor), tak nikde nevidím ty pojmenované listy, ani požadovaný výstup.
No ale třeba pomůže příloha.

M@

Otázkou je, jestli to dobře chápu :-)

M@

V příloze je příklad jak to lze řešit na tom krátkém vzorku bez offsetu, ale tvůj soubor asi bude větší a je třeba to přizpůsobit jemu, ale třeba pomůže nástřel s použitím rozlišení jedná li se o buňku, či oblast buňek.

M@

A je logické ověření že všechny podmínky v závorce jsou splněny, jinými slovy, že je splněno to A to :-), akorát že A je před závorkou a jednotlivá kritéria nejsou oddělovány A, ale středníkem.

mimo tabulku je pro jistotu :-), kdyby to bylo 30 a víc :-)

M@

Pro Tiff
Třeba když BMI bude v buňce A1:
=KDYŽ(A1<20;"podváha";KDYŽ(A(A1>=20;A1<25);"normální stav";KDYŽ(A(A1>=25;A1<30);"mírná nadváha";"mimo tabulku")))
Nebo by to šlo i přes pomocnou tabulku stavů.
M@

Tak ode mě už poslední pokus, tentokrát bez řešitele ale s pomocným listem, kam se vytvoří všechny kombinace zároveň s počtem potřebných profilů pro danou kombinaci. V zadávacím listu je pak zobrazen počet variací a je možno mezi nima přepínat od té s nejnižším počtem profilů, po nejvyšší.

Snad by to mohlo fungovat :-)
M@

Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = False
If Target = "AB" And Target.Column = 1 Then
With Range("A" & Target.Row, "D" & Target.Row)
.Merge
.BorderAround 1
.HorizontalAlignment = xlCenter
End With
End If
Application.DisplayAlerts = True
End Sub

Ty Alerty si tam můžeš nechat, nebo je smazat, takhle jak to je, tak pokud budeš mít v buňkách C-D nějaké hodnoty tak ti je to sloučením zruší bez ptaní.
Jinak v tá buňce má opravdu zůstat jen to AB?
No jdu spát :-)
M@

Takhle v noci přemýšlet :-).

Další pokus s využitím řešitele v makru v příloze, tak aby to fungovalo automaticky při změně.

M@

Jedině makrem, přes podmíněné formátování určitě ne.

něco jako
for radek to max radku
když buňka sloupec A, řádek radek = "AB" tak
range A-D daného řádku merge
a pak ještě ten samý range BorderAround 1
jdi na další řádek a opakuj.

Kód napsán česko-VB, ale pro aplikaci je potřeba z něj udělat jen VB :-)

Pak je ještě otázka co by ho mělo spouštět.

M@

Nebudu moc konkrétní, ale popíšu jak to dělám já :-)
do proměnné uložím co chci zapsat, pak do jiné proměnné načtu obsah texťáku a potom znova zapíšu do texťáku, nejprve poslední data a pak ten zbytek z druhé proměnné.

M@

Asi by se dalo napsat makro jenž otestuje tisíce možností každý s každým, přčemž kombinace s pořžadovaným výsledkem si uloží a pak je vypíše, ale asi by to bylo na dost dlouho.

Excel jako takový (teda minimálně 2003) má doplněk zvaný řešitel, jenž se dá použít... Nástroj -> Doplňky -> Řešitel, tomu se pak navolí požadované hodnota, oblast proměnných, podmínky, pak v možnostech přesnost apod. a spoustí se řešení.
Sám jsem to nikdy nepoužil, ale v příloze je pokus jak by to asi mohlo fungovat.

M@

Asi je trochu zbytečné v případě shody do sloupce D přenášet hodnotu ze sploupce A druhého listu, jelikož podle této hodnoty porovnáváme a musí tudíž být shodná s hodnotou ve sloupci A listu 1. Ale na druhou stranu to ničemu nevadí :-).

M@

Jen pokus :-)
Private Sub CommandButton1_Click()
Dim tmp As String
For rd = 27 To 226 Step 2
For sl = 3 To 18
If tmp <> "" Then tmp = tmp & "|" & Cells(rd, sl) Else tmp = Cells(rd, sl)
Next

If tmp <> "" Then
If TextBox1.Text <> "" Then TextBox1.Text = TextBox1.Text & Chr(10) & tmp Else TextBox1.Text = tmp
End If
tmp = ""
Next
End Sub
M@

V rámci mého porozumění popisu je v příloze pokus :-)

M@

Pokud se popisky odkazují na oblast s daty, tak to jde nastavit po měsíci viz. obrázek v příloze. Pak je taky otázka, jestli data vynášíš i mezi, nebo jen jednou měsíčně.

M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje